IBM Mainframe Forum

//STEP1         EXEC PGM=SORT
//SYSOUT      DD SYSOUT=*
//SORTJNF1   DD DSN=INFILE1,DISP=PASS
//SORTJNF2    DD DSN=INFILE2,DISP=PASS
//SORTOUT01  DD DSN=MATCHED,DISP=(NEW,CATLG,DELETE)
//SORTOUT02  DD DSN=UNPAIREDFRMF1,DISP=(NEW,CATLG,DELETE)
//SORTOUT03  DD DSN=UNPAIREDFRMF2,DISP=(NEW,CATLG,DELETE)
//SORT01CNTL  DD *
JOINKEYS FILE=F1,FIELDS=(1,4,CH,A)
JOINKEYS FILE=F2,FIELDS=(5,4,CH,A)
JOIN PAIRED,ONLY
/*
//SORT02CNTL  DD *
JOINKEYS FILE=F1,FIELDS=(1,4,CH,A)
JOINKEYS FILE=F2,FIELDS=(5,4,CH,A)
JOIN UNPAIRED,F1,ONLY
/*
//SORT03CNTL DD *
JOINKEYS FILE=F1,FIELDS=(1,4,CH,A)
JOINKEYS FILE=F2,FIELDS=(5,4,CH,A)
JOIN UNPAIRED,F2,ONLY
/*
//

//STEP0100 EXEC PGM=SORT                                         
//SYSOUT   DD SYSOUT=*                                           
//INA      DD *                                                   
AAAA - F1  MATCH                                                 
BBBB - F1  ONLYF1                                                 
CCCC - F1  ONLYF1                                                 
//INB      DD *                                                   
F2  AAAA  MATCH                                                   
F2  EEEE  ONLYF2                                                 
F2  FFFF  ONLYF2                                                 
//MATCH    DD SYSOUT=*                                           
//ONLYF1   DD SYSOUT=*                                           
//ONLYF2   DD SYSOUT=*                                           
//SYSIN    DD *                                                   
  OPTION COPY                                                     
  JOINKEYS F1=INA,FIELDS=(1,4,A)                                 
  JOINKEYS F2=INB,FIELDS=(5,4,A)                                 
  JOIN UNPAIRED                                                   
  REFORMAT FIELDS=(?,F1:1,80,F2:1,80)                             
  OUTFIL FNAMES=MATCH,INCLUDE=(1,1,CH,EQ,C'B'),BUILD=(2,160)     
  OUTFIL FNAMES=ONLYF1,INCLUDE=(1,1,CH,EQ,C'1'),BUILD=(2,80)     
  OUTFIL FNAMES=ONLYF2,INCLUDE=(1,1,CH,EQ,C'2'),BUILD=(82,80)     
//*