Author: magesh23586
Subject: Reply to: Get Record count in summary record for each group of records
Posted: Tue Sep 27, 2016 9:00 pm (GMT 5.5)
Arun,
As per Bill advice, We can do this in one step like below.
_________________
Regards,
Magesh
Subject: Reply to: Get Record count in summary record for each group of records
Posted: Tue Sep 27, 2016 9:00 pm (GMT 5.5)
Arun,
As per Bill advice, We can do this in one step like below.
| Code: |
//STEP01 EXEC PGM=SORT //SORTJNF1 DD DSN=INPUT.FILE1,DISP=SHR //SORTJNF2 DD DSN=INPUT.FILE2,DISP=SHR //SORTOUT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY JOINKEYS FILE=F1,FIELDS=(81,6,A) JOINKEYS FILE=F2,FIELDS=(81,6,A),SORTED,NOSEQCK JOIN UNPAIRED,F2 REFORMAT FIELDS=(F2:1,80,F1:88,5) INREC IFOUTLEN=80, IFTHEN=(WHEN=(3,5,CH,EQ,C'COUNT'), OVERLAY=(3:81,5,ZD,SUB,+1,EDIT=(IIIIT),81:5X),HIT=NEXT), IFTHEN=(WHEN=ANY, FINDREP=(IN=C' ',OUT=C'',STARTPOS=3,ENDPOS=6)) //JNF1CNTL DD * INREC IFTHEN=(WHEN=INIT, OVERLAY=(88:C'00001')), IFTHEN=(WHEN=GROUP, BEGIN=(1,1,CH,EQ,C'D'), PUSH=(81:ID=6)) SUM FIELDS=(88,5,ZD) //JNF2CNTL DD * INREC IFTHEN=(WHEN=GROUP, BEGIN=(1,1,CH,EQ,C'D'), PUSH=(81:ID=6)) |
_________________
Regards,
Magesh