Copy with IEBGENER and SORT

//STEP1    EXEC PGM=IEBGENER                                           
//SYSIN    DD   DUMMY                                                  
//SYSPRINT DD   SYSOUT=*                                               
//SYSUT1   DD   DISP=SHR,                                              
//         DSN=LEGSERV.PROD.EDC.CA.D100717.T0219.F279892               
//SYSUT2   DD   DISP=(,CATLG),DSN=U123557.TESTFILE1,                   
//         DCB=LEGSERV.PROD.EDC.CA.D100717.T0219.F279892,              
//         UNIT=SYSDA,                                                 
//         SPACE=(CYL,(1,10),RLSE)                                     
//*------------------------------------------------------------------  
//                                                                     
//FIRSTREC EXEC PGM=SORT                                               
//SORTIN   DD DSN=LEGSERV.PROD.EDC.CA.D100717.T0219.F279892.Z,DISP=SHR 
//SORTOUT DD DISP=(,CATLG),DSN=U123557.TESTFILE,UNIT=SYSDA,            
//       DCB=(LEGSERV.PROD.EDC.CA.D100717.T0219.F279892.Z),            
//       SPACE=(CYL,(1,10),RLSE)                                       
//SYSOUT   DD SYSOUT=*                                                 
//SYSIN    DD *                                                        
  SORT FIELDS=(COPY)