Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
itdsen,
The following DFSORT/ICETOOL JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD *
121
100
123
124
156
//IN2 DD *
121
123
121
121
121
156
156
//T1 DD DSN=&&T1,DISP=(MOD,PASS),SPACE=(CYL,(1,1),RLSE)
//T2 DD DSN=&&T2,DISP=(MOD,PASS),SPACE=(CYL,(1,1),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN1) USING(CTL1)
COPY FROM(IN2) USING(CTL2)
SPLICE FROM(T1) TO(T2) ON(1,3,CH) KEEPNODUPS -
WITHALL WITH(01,80) WITH(85,1) USING(CTL3)
COPY FROM(T2) USING(CTL4)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,BUILD=(1,3,81:1,3,C'11')
//CTL2CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(81:3X,C'22')
//CTL3CNTL DD *
OUTFIL FNAMES=T2,INCLUDE=(84,2,CH,EQ,C'12'),
REMOVECC,NODETAIL,BUILD=(1,80),
SECTIONS=(81,3,
TRAILER3=(1,3,COUNT))
//CTL4CNTL DD *
OUTFIL FNAMES=OUT,REMOVECC,
TRAILER1=('COUNT NO OF REC MATCHED : ',COUNT)
/* |
Hope this helps... |
|