ap_mainframes
Active User
Joined: 29 Dec 2005 Posts: 181 Location: Canada
|
|
|
|
Hi,
This is my first use of ICETOOL, but I am not getting desired results.
I want to write the common records between the two datasets into another dataset.
Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=XXXXXXXX.COMP,DISP=SHR
//*N2 DD DSN=YYYYYYY.COMP.A,DISP=SHR
//IN2 DD DSN=ZZZZZZZZZZ,DISP=SHR
//OUT12 DD SYSOUT=*
//OUT1 DD SYSOUT=*
//OUT2 DD SYSOUT=*
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),
// DISP=(MOD,PASS)
//TOOLIN DD *
COPY FROM(IN2) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(OUT1) USING(CTL1)
COPY FROM(IN1) TO(T1) USING(CTL2)
COPY FROM(IN1) TO(OUT2) USING(CTL2)
SPLICE FROM(T1) TO(OUT12) ON(1,16,CH) WITH(6503,1) -
USING(CTL3)
//CTL1CNTL DD *
OUTREC FIELDS=(1,6500,6502:C'11')
/*
//CTL2CNTL DD *
OUTREC FIELDS=(1,96,6502:C'22')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT12,INCLUDE=(6502,2,CH,EQ,C'12')
/*
|
I am not getting anything in OUT12?? can anybody tell me why??
Thanks |
|