Author: Arun Raj
Posted: Fri Sep 23, 2016 11:53 pm (GMT 5.5)
Atul Banke,
The below DFSORT should give you something to start with. I have assumed the input to be FB with an LRECL=80. You might want to modify it as per your requirements.
SORTOUT had
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
Posted: Fri Sep 23, 2016 11:53 pm (GMT 5.5)
Atul Banke,
The below DFSORT should give you something to start with. I have assumed the input to be FB with an LRECL=80. You might want to modify it as per your requirements.
| Code: |
| //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN ===> Input Data set (FB/LRECL=80) //T1 DD DSN=&T1,DISP=(,PASS),UNIT=SYSDA //T2 DD DSN=&T2,DISP=(,PASS),UNIT=SYSDA //* //SYSIN DD * OPTION COPY INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C'D'), PUSH=(81:ID=4)) OUTFIL FNAMES=T1,BUILD=(1,84) OUTFIL FNAMES=T2,REMOVECC,NODETAIL,BUILD=(9X), SECTIONS=(81,4, TRAILER3=(81,4,COUNT-1=(M10,LENGTH=5))) //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTJNF1 DD DSN=&T1,DISP=SHR //SORTJNF2 DD DSN=&T2,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN 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)) |
SORTOUT had
| Code: |
| D|4|111111111111|123.23|XYZ COMMERCE|NEW YORK CITY R|11111110444A|15022016|0.34|XYZ AFFILIATE|BOSTON R|11111110444A|15032016|2.44|XYZ AFFILIATE|BOSTON R|11111110444B|15022016|12.76|XYZ BROTHERS|LA CITY R|11111110444B|15032016|112.76|XYZ BROTHERS|LA CITY D|2|222222211111|73.23|ABC CONSTRUCTION|NEW YORK CITY R|22222220111A|15022016|0.34|ABC CONSTRUCTION|BOSTON R|22222220111B|15032016|71.63|ABC CONS.|BOSTON |
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard