JCL Utility 之SORT 排序数据集

用法:

//STP0100    EXEC  PGM=SORT               
//SORTIN     DD  DSN=ADCDMST.TEST.DATA,DISP=SHR 
/* COPY TO THE NEW DATASET  
//SORTOUT    DD  DSN=ADCDMST.TEST.DATAC,            
//             DISP=(NEW,CATLG,DELETE),                  
//             UNIT=SYSDA,SPACE=(TRK,(5,2),RLSE),
//             DCB=(RECFM=FB,LRECL=80)                   
//SYSOUT     DD SYSOUT=*
//SYSIN      DD  *                                       
   SORT FIELDS=COPY  
//STP0200    EXEC  PGM=SORT               
//SORTIN     DD  DSN=ADCDMST.TEST.DATAC,DISP=SHR   
//SORTOUT    DD  DSN=ADCDMST.TEST.SORT            
//             DISP=(NEW,CATLG,DELETE),                  
//             UNIT=SYSDA,SPACE=(TRK,(5,2),RLSE),
//             DCB=(RECFM=FB,LRECL=80)  
//SYSOUT     DD SYSOUT=*
//SYSIN      DD  *                                       
   SORT FIELDS=(1,5,CH,A)
   END
/*