Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
mkk157,
The following DFSORT/ICETOOL JCL will give you the desired results.
Code: |
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//I1 DD DSN=your input 9 byte file,DISP=SHR
//I2 DD DSN=your input 127 byte file,DISP=SHR
//T1 DD DSN=&&T1,DISP=(MOD,PASS),SPACE=(CYL,(X,Y),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
SORT FROM(I1) USING(CTL1)
COPY FROM(I2) USING(CTL2)
SORT FROM(T1) USING(CTL3)
//CTL1CNTL DD *
SORT FIELDS=(1,9,CH,A)
SUM FIELDS=NONE
OUTFIL FNAMES=T1,BUILD=(14:1,9,128:C'$')
//CTL2CNTL DD *
OUTFIL FNAMES=T1,OVERLAY=(128:X)
//CTL3CNTL DD *
SORT FIELDS=(14,9,CH,A),EQUALS
OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(129:SEQNUM,8,ZD,RESTART=(14,9))),
IFTHEN=(WHEN=GROUP,BEGIN=(129,8,ZD,EQ,1),PUSH=(128:128,1))
OUTFIL FNAMES=OUT,BUILD=(1,127),
INCLUDE=(128,1,CH,EQ,C'$',AND,129,8,ZD,GT,1)
//* |
|
|