超人的私房菜——SORT学习（1）

工欲善其事必先利其器，要学会SORT,最好先创建SORT 的源数据，以备练习使用。

这里，我们利用IBM提供的ICESAMP创建SORT的源数据

JCL 语句如下，需要客户化的就是DSN的前缀，推荐客户化命令:   C    IBMUSER     USERID   ALL

USERID 可以客户化为你的用户名

//ICEDCRE JOB  NOTIFY=&SYSUID

//SAMPCOPY EXEC PGM=ICESAMP,PARM=(BOOKS)

//SYSPRINT DD SYSOUT=*

//SAMPLE DD DSN=IBMUSER.SORT.SAMPIN,DISP=(NEW,CATLG),

// SPACE=(TRK,(1,1),RLSE),

// DCB=(RECFM=FB,LRECL=173,BLKSIZE=1730),

// UNIT=SYSALLDA

//*

//ADD DD DSN=IBMUSER.SORT.SAMPADD,DISP=(NEW,CATLG),

// SPACE=(TRK,(1,1),RLSE),

// DCB=(RECFM=FB,LRECL=173,BLKSIZE=1730),

// UNIT=SYSALLDA

//*

//OUTPUT DD DSN=IBMUSER.SORT.SAMPOUT,DISP=(NEW,CATLG),

// SPACE=(TRK,(1,1),RLSE),

// DCB=(RECFM=FB,LRECL=173,BLKSIZE=1730),

// UNIT=SYSALLDA

//*

//BRANCH DD DSN=IBMUSER.SORT.BRANCH,DISP=(NEW,CATLG),

// SPACE=(TRK,(1,1),RLSE),

// DCB=(RECFM=FB,LRECL=33,BLKSIZE=330),

// UNIT=SYSALLDA

//*

//SYSIN DD DUMMY

这里我暂时不介绍，每个源数据的数据项长度及格式。稍后的例子使用前，我会详细描述。