//SORT1 JOB
//SR1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
   zos
   jcl
   dataset
   ispf
//SORTOUT DD DSN=devoir.terms,DISP=(NEW,CATLG),
//   UNIT=3390,
//   SPACE=(TRK,1),
//   DCB=(RECFM=FB,LRECL=29,BLKSIZE=0,DSORG=PS),
//   VOL=SER
//SYSIN DD *
    SORT FIELDS=(1,20,CH,A)