工慾善其事必先利其器，要學會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
這裏我暫時不介紹，每個源數據的數據項長度及格式。稍後的例子使用前，我會詳細描述。