Author: Arun Raj
Posted: Mon Oct 31, 2016 12:34 pm (GMT 5.5)
This might be of some interest.
OUT1
OUT2
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Posted: Mon Oct 31, 2016 12:34 pm (GMT 5.5)
This might be of some interest.
| Code: |
| //STEP01 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * 12345 3000000 12346 2000000 12347 2500000 12348 0250000 //SORTOUT DD DSN=&T1,DISP=(,PASS),SPACE=(TRK,(1,1)) //SYSIN DD * SORT FIELDS=COPY OUTFIL REPEAT=10, IFTHEN=(WHEN=INIT, OVERLAY=(15:C'250000',X, SEQNUM,7,ZD,START=250000,INCR=250000,RESTART=(1,5),X, 22:7,7,ZD,SUB,22,7,ZD,ZD,LENGTH=7,X, SEQNUM,2,ZD,RESTART=(1,5))) //STEP02 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTOUT 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), IFTHEN=(WHEN=(22,7,ZD,LT,15,6,ZD,AND,22,7,ZD,GT,0,AND, 30,2,ZD,LT,10), BUILD=(1,6,15,6,/,1,6,23,6)), IFTHEN=(WHEN=NONE,BUILD=(1,6,15,6)) OUTFIL FNAMES=OUT2,INCLUDE=(22,7,ZD,GT,0,AND,30,2,ZD,EQ,10), BUILD=(1,6,22,7) |
OUT1
| Code: |
| 12345 250000 12345 250000 12345 250000 12345 250000 12345 250000 12345 250000 12345 250000 12345 250000 12345 250000 12345 250000 12346 250000 12346 250000 12346 250000 12346 250000 12346 250000 12346 250000 12346 250000 12346 250000 12347 250000 12347 250000 12347 250000 12347 250000 12347 250000 12347 250000 12347 250000 12347 250000 12347 250000 12347 250000 12348 250000 |
OUT2
| Code: |
| 12345 0500000 |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard