Author: magesh23586
Posted: Wed Sep 28, 2016 2:21 am (GMT 5.5)
Arun,
Here is the one step solution without sort![icon_smile.gif]()
. As I mentioned earlier we need not requires two steps
_________________
Regards,
Magesh
Posted: Wed Sep 28, 2016 2:21 am (GMT 5.5)
Arun,
Here is the one step solution without sort
. As I mentioned earlier we need not requires two steps| Code: |
//SYSIN DD * OPTION COPY JOINKEYS FILE=F1,FIELDS=(81,6,A,103,1,A),SORTED,NOSEQCK JOINKEYS FILE=F2,FIELDS=(81,6,A,103,1,A),SORTED,NOSEQCK JOIN UNPAIRED,F1,F2 REFORMAT FIELDS=(F1:1,103,?,F2:1,103) INCLUDE COND=(207,1,CH,NE,C'C') INREC IFOUTLEN=103, IFTHEN=(WHEN=(104,1,CH,EQ,C'2'), OVERLAY=(1:105,103)) OUTREC IFTHEN=(WHEN=INIT, BUILD=(97,7,1,80)), IFTHEN=(WHEN=INIT, FINDREP=(IN=C' ',OUT=C'',STARTPOS=10,ENDPOS=13)) OUTFIL SECTIONS=(1,7, TRAILER3=(8,80)),NODETAIL,REMOVECC //JNF1CNTL DD * INREC IFTHEN=(WHEN=INIT, OVERLAY=(97:C'000001',C'A')), IFTHEN=(WHEN=GROUP, BEGIN=(1,1,CH,EQ,C'D'), PUSH=(1:1,80,ID=6,SEQ=5)), IFTHEN=(WHEN=(3,5,CH,EQ,C'COUNT'), OVERLAY=(3:87,5,ZD,SUB,+1,EDIT=(IIIIT))) //JNF2CNTL DD * INREC IFTHEN=(WHEN=GROUP, BEGIN=(1,1,CH,EQ,C'D'), PUSH=(81:ID=6, 97:SEQ=6)), IFTHEN=(WHEN=(1,1,CH,EQ,C'D'), OVERLAY=(103:C'C')), IFTHEN=(WHEN=NONE, OVERLAY=(103:C'B')) |
_________________
Regards,
Magesh