Author: Abid Hasan
Posted: Thu Feb 02, 2017 1:17 pm (GMT 5.5)
Hello,
There are various errors in your code.
Refer the below code piece, study every step/keyword, consult the DFSORT programming guide to understand why it is coded the way it is, so that you can program it in future:
Output:
_________________
Thanks.
Posted: Thu Feb 02, 2017 1:17 pm (GMT 5.5)
Hello,
There are various errors in your code.
Refer the below code piece, study every step/keyword, consult the DFSORT programming guide to understand why it is coded the way it is, so that you can program it in future:
| Code: |
//SORTJNF1 DD * AAAAA 111 BBBBB 222 CCCCC 333 /* //SORTJNF2 DD * BBBBB 100 CCCCC 223 DDDDD 300 /* //SORTOUT DD SYSOUT=* //SYSIN DD * * * SETUP THE KEYS FOR DS-A * JOINKEYS FILE=F1,FIELDS=(1,5,A) * * SETUP THE KEYS FOR DS-B * JOINKEYS FILE=F2,FIELDS=(1,5,A) * * SINCE REQUIREMENT IS OF ONLY PAIRED RECORDS, WHICH IS THE DEFAULT FOR * JOINKEYS, HENCE THE JOIN STATEMENT IS SKIPPED. SINCE A COMPARISON IS * REQUIRED AT A LATER STAGE, HENCE THE COMPLETE RECORD OF BOTH DS IS * TAKEN IN REFORMAT FIELDS. * REFORMAT FIELDS=(F1:1,10,F2:1,10,?) * * AT THIS POINT ONLY THE MATCHED RECORDS HAVE BEEN SELECTED, AND HAVE * BEEN ARRANGED IN THE SAME ROW. SO WE CAN TEST THEM AS PER OUR * REQUIREMENT. SINCE THE REFORMATTED RECORDS ARE A COMBINATION OF * RECORDS FROM BOTH DATASETS A AND B, USE BUILD TO SELECT ONLY DS-B * DATA. * OUTFIL INCLUDE=(17,3,ZD,LT,7,3,ZD), BUILD=(11,10) * * AT THIS POINT WE HAVE ALL THAT IS NEEDED, I.E. FILTERED DATA IN THE * PRECISE FORMAT THAT WE NEEDED IT TO BE IN, SO A SIMPLE COPY TO COPY * THE RECORDS TO OUTPUT DATASET. * SORT FIELDS=COPY /* |
Output:
| Code: |
BBBBB 100 CCCCC 223 |
_________________
Thanks.