Merge

//TRNG111M JOB NOTIFY=TRNG111,TIME=10                                
//S1 EXEC PGM=SORT                                                    
//SYSOUT DD SYSOUT=*                                                  
//SORTIN01 DD DSN=TRNG111.FORSORT.UNSORT1,DISP=SHR                    
//SORTIN02 DD DSN=TRNG111.FORSORT.SORT1,DISP=SHR                      
//SORTOUT DD DSN=TRNG111.MERGE.DATA,DISP=(NEW,CATLG),SPACE=(TRK,(5,5)),
//           DCB=(LRECL=80,BLKSIZE=8000,RECFM=FB)                    
//SYSIN DD *                                                          
  MERGE FIELDS=(1,3,CH,A)                                            
/*