//SORT01   EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=&&SMF1,DISP=(OLD,DELETE)
//SORTOUT  DD DSN=&&SMF2,
//            DISP=(,PASS),
//            UNIT=SYSDA,
//            SPACE=(CYL,(5,5),RLSE),
//            DCB=(RECFM=FB,LRECL=55,BLKSIZE=0,DSORG=PS)
//SYSIN    DD *
  SORT FIELDS=(1,31,A),FORMAT=CH
  SUM FIELDS=NONE
/*