//MYTESTS JOB MSGLEVEL=1,CLASS=A,MSGCLASS=B,NOTIFY=&SYSUID, // REGION=32M //* //JOINLOGS EXEC PGM=SORT //SORTJNF1 DD * ABC,142 DEF,337 GHU,856 /* //SORTJNF2 DD * 101,800F 142,200F 856,400F /* //SORTOUT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * JOINKEYS FILE=F1,FIELDS=(5,3,A) JOINKEYS FILE=F2,FIELDS=(1,3,A) JOIN UNPAIRED,F1,F2 REFORMAT FIELDS=(F1:1,3,F2:4,5),FILL=C' ' SORT FIELDS=COPY OUTFIL FNAMES=SORTOUT,INCLUDE=ALL /* //*