IBM Mainframe Forum

//STEP1    EXEC PGM=SORT                                       
//SYSOUT   DD SYSOUT=*                                         
//SORTIN   DD *                                               
  2012/091  TST.SORT.PDS                                       
  2012/091  TST.COBOL.PDS                                     
  2012/091  TST.SAS.PDS                                       
  2012/091  TST.FTP.PDS                                       
  2012/090  TST.FTP1.PDS                                       
  2012/089  TST.FTP2.PDS                                       
  2012/088  TST.FTP3.PDS                                       
  2012/093  TST.FTP4.PDS                                       
//SORTOUT  DD SYSOUT=*                                         
//SYSIN    DD *                                               
 INREC IFTHEN=(WHEN=INIT,OVERLAY=(1:3,4,5:8,3,4X,13:13,20))   
 SORT FIELDS=COPY                                             
 OUTFIL REMOVECC,BUILD=(1:13,20),INCLUDE=(1,7,ZD,EQ,&DATE3P-1)

TST.SORT.PDS   
TST.COBOL.PDS   
TST.SAS.PDS     
TST.FTP.PDS