Author: Rohit Umarjikar
Posted: Thu May 11, 2017 10:24 pm (GMT 5.5)
With the given input, this will work.
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."![icon_razz.gif]()
Posted: Thu May 11, 2017 10:24 pm (GMT 5.5)
With the given input, this will work.
| Code: |
----+----1----+----2----+ //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //INA DD * AAA BBB CCC DDDD PPP PPP QQQ SSSS EEE FFF GGG HHHH KKK LLL MMM NNNN SSS TTT SSS JJJJ FLD(7,2) == '03', FLD(7,2) == '04', FLD(7,2) == '05', FLD(7,2) == '06', FLD(7,2) == '07', XYZ XYX XXX PQR MNO //INB DD * 12 13 14 15 16 //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY JOINKEYS F1=INA,FIELDS=(25,2,A),SORTED,NOSEQCK JOINKEYS F2=INB,FIELDS=(25,2,A),SORTED,NOSEQCK JOIN UNPAIRED,F1 REFORMAT FIELDS=(F1:1,20,F2:1,2,?) OUTREC IFOUTLEN=20, IFTHEN=(WHEN=(14,2,CH,EQ,C'03'),OVERLAY=(14:21,2)), IFTHEN=(WHEN=(14,2,CH,EQ,C'04'),OVERLAY=(14:21,2)), IFTHEN=(WHEN=(14,2,CH,EQ,C'05'),OVERLAY=(14:21,2)), IFTHEN=(WHEN=(14,2,CH,EQ,C'06'),OVERLAY=(14:21,2)), IFTHEN=(WHEN=(14,2,CH,EQ,C'07'),OVERLAY=(14:21,2)) //JNF1CNTL DD * INREC OVERLAY=(25:SEQNUM,2,ZD) //JNF2CNTL DD * INREC OVERLAY=(25:SEQNUM,2,ZD,START=6,INCR=1) //* |
_________________
Regards,
Rohit Umarjikar
"Knowledge is knowing that a tomato is a fruit, but Wisdom is knowing not to put it in a fruit salad."
