IBM Mainframe Forum

//SORT1  EXEC PGM=SORT                   
//SYSOUT   DD SYSOUT=*                   
//SORTJNF1 DD *                           
AAA R-AAA                                 
BBB R-BBB                                 
FFF R-FFF                                 
//SORTJNF2 DD *                           
AAA                                       
BBB                                       
CCC                                       
DDD                                       
EEE                                       
FFF                                       
//SORTOUT  DD SYSOUT=*                   
//SYSIN    DD *                           
   JOINKEYS FILES=F1,FIELDS=(1,3,A),SORTED
   JOINKEYS FILES=F2,FIELDS=(1,3,A),SORTED
   JOIN UNPAIRED                         
   REFORMAT FIELDS=(F2:1,3,F1:4,6)       
   SORT FIELDS=COPY                       
/*