Code: |
//SORT01 EXEC PGM=SORT //SORTJNF1 DD * f123 f456 f789 //SORTJNF2 DD * s123 s456 s789 //SORTOUT DD SYSOUT=* //SYSIN DD * JOINKEYS FILE=F1,FIELDS=(2,3,A) JOINKEYS FILE=F2,FIELDS=(2,3,A) REFORMAT FIELDS=(F2:1,7) SORT FIELDS=COPY END /* |
Tuesday, December 30, 2008
How to show MVS code within blog
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment