Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
Permander Malik,
The following DFSORT/ICETOOL JCL will give you the desired results
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//FB20 DD DSN=Your input FB 20 byte file,DISP=SHR
//FB14 DD DSN=Your input FB 14 byte file,DISP=SHR
//TEMP DD DSN=&&TEMP,DISP=(MOD,PASS),SPACE=(CYL,(X,Y),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(FB14) USING(CTL1)
COPY FROM(FB20) USING(CTL2)
SORT FROM(TEMP) USING(CTL3)
//CTL1CNTL DD *
OUTFIL FNAMES=TEMP,OVERLAY=(21:C'1')
//CTL2CNTL DD *
OUTFIL FNAMES=TEMP,OVERLAY=(21:C'2')
//CTL3CNTL DD *
SORT FIELDS=(1,4,CH,A),EQUALS
OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(23:SEQNUM,8,ZD,RESTART=(1,4))),
IFTHEN=(WHEN=GROUP,BEGIN=(23,8,ZD,EQ,1),PUSH=(22:21,1,31:5,10),
RECORDS=2)
OUTFIL FNAMES=OUT,IFOUTLEN=30,INCLUDE=(21,1,ZD,EQ,2),
IFTHEN=(WHEN=(21,2,CH,EQ,C'2 '),BUILD=(1,20,10X)),
IFTHEN=(WHEN=(21,2,CH,EQ,C'21'),BUILD=(1,20,31,10)),
IFTHEN=(WHEN=(21,2,CH,EQ,C'22'),BUILD=(1,20,10X))
//* |
|
|