Author: Arun Raj
Posted: Wed Sep 28, 2016 7:37 pm (GMT 5.5)
Below is a "one step" ICETOOL version of the DFSORT solution posted earlier.
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Posted: Wed Sep 28, 2016 7:37 pm (GMT 5.5)
Below is a "one step" ICETOOL version of the DFSORT solution posted earlier.
| Code: |
| //STEP0100 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN DD DISP=SHR,DSN ===> Input Data set (FB/LRECL=80) //CTL2JNF1 DD DSN=&T1,DISP=(,PASS),UNIT=SYSDA //CTL2JNF2 DD DSN=&T2,DISP=(,PASS),UNIT=SYSDA //OUT DD SYSOUT=* //* //TOOLIN DD * COPY FROM(IN) TO(CTL2JNF1) USING(CTL1) SORT FROM(CTL2JNF1) TO(OUT) USING(CTL2) //* //CTL1CNTL DD * OPTION COPY INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'D'), PUSH=(81:ID=4)) OUTFIL FNAMES=CTL2JNF1,BUILD=(1,84) OUTFIL FNAMES=CTL2JNF2,REMOVECC,NODETAIL,BUILD=(9X), SECTIONS=(81,4, TRAILER3=(81,4,COUNT-1=(M10,LENGTH=5))) //CTL2CNTL DD * JOINKEYS FILE=F1,FIELDS=(81,4,A),SORTED,NOSEQCK JOINKEYS FILE=F2,FIELDS=(01,4,A),SORTED,NOSEQCK JOIN UNPAIRED,F1 REFORMAT FIELDS=(F1:1,80,F2:5,5) SORT FIELDS=COPY INREC IFOUTLEN=80, IFTHEN=(WHEN=(3,5,CH,EQ,C'COUNT'), OVERLAY=(3:81,5),HIT=NEXT), IFTHEN=(WHEN=ANY, FINDREP=(IN=C' ',OUT=C'',STARTPOS=3,ENDPOS=6)) |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard