Author: Arun Raj
Posted: Fri Oct 28, 2016 10:15 pm (GMT 5.5)
Here is one way of achieving this.
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Posted: Fri Oct 28, 2016 10:15 pm (GMT 5.5)
Here is one way of achieving this.
| Code: |
| //STEP01 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * 12345 2550000 //SORTOUT DD DSN=&T1,DISP=(,PASS),SPACE=(TRK,(1,1)) //SYSIN DD * SORT FIELDS=COPY OUTFIL REPEAT=10, OVERLAY=(15:C'250000',X,SEQNUM,7,ZD,START=250000,INCR=250000, 22:7,7,ZD,SUB,22,7,ZD,ZD,LENGTH=7) //STEP02 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&T1,DISP=(SHR,PASS) //OUT1 DD SYSOUT=* //OUT2 DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL FNAMES=OUT1,INCLUDE=(22,7,ZD,GE,0),BUILD=(1,6,15,6) OUTFIL FNAMES=OUT2,STARTREC=10,INCLUDE=(22,7,ZD,GT,0),BUILD=(22,7) |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard