EJEMPLO SORT JCL

Sort - JCL

//*-------------------------------------------------------------------------------------------*
//* SRT00100  : sort . Ordenamiento                                                                   *
//*-------------------------------------------------------------------------------------------*
//SRT00100 EXEC PGM=SORT,PARM='FLAG(I)',REGION=2M,COND=(0,NE)
//SORTIN          DD DSN= *
ASDDDFDSFSGS
DSGGGXVXCVX
VDCXVDFDFSDF
VVCXVXCVXCV
//SORTOUT      DD DSN= SALV.JCL.EJEMPLO,
//         DISP=(,CATLG,DELETE),SPACE=(CYL,(500,100)) 
//SYSOUT   DD SYSOUT=* 
//SYSPRINT DD SYSOUT=* 
//SYSIN    DD * 
       SORT FIELDS=(1,31,CH,A)
//*


Donde están todas las letras desordenadas también se puede poner un archivo. En ese caso se pone DISP=SHR,