IBM Mainframe Forum

//S15S  EXEC PGM=SORT
//**********************************************************************
//*       COPY OUT TAPE FOR INTERNAL PURPOSE                           
//**********************************************************************
//SORTIN  DD DSN=aaa.bbb.cccc.M00,DISP=SHR,                         
//             UNIT=VTS1                                               
//SORTOUT DD DSN=TST.sss.333.INPUT,DISP=(,CATLG,DELETE),               
//           SPACE=(CYL,(10,10))                                               
//SYSOUT    DD SYSOUT=*                                                 
//SYSIN DD *                                                           
  SORT FIELDS=COPY,STOPAFT=10                                           
/*