排序文件-sort
//******************************************************************
//SORT FILE
//*****************************************************************
//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=FORM49.BAT.SYFMSTM.QSAM,DISP=SHR
//SORTOUT DD DSN=FORM49.BAT.SYFMSTM.QSAM.SORT,DISP=(NEW,CATLG),
// UNIT=3390,SPACE=(TRK,(10,2)),
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=27800)
//SYSIN DD *
SORT FIELDS=(27,8,ZD,A)
/*