DFSORT 爲 大機平臺上面數據處理的工具,它運用在JCL中是一個被調用SORT程序,格式爲PGM=SORT,參數卸載SYSIN DD *下面, 以下是一些簡單的例子示範如何使用。
1.例子1 爲直接COPY 數據到OUTPUT 中
2.例子2 爲挑選符合條件的數據到OUTPUT中
1)直接COPY
//STEP010 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TEST,INPUT,DISP=SHR
//SORTOUT DD DSN=TEST.OUTPUT,DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(5,10))
//SYSIN DD *
SORT FIELDS=SORT
2) 篩選INPUT FILE 前五位爲ABCDE 的記錄到OUTPUT 中。
//STEP010 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TEST,INPUT,DISP=SHR
//SORTOUT DD DSN=TEST.OUTPUT,DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(5,10))
//SYSIN DD *
SORT FIELDS=SORT
INCLUDE COND=(1,5,CH,EQ,C'ABCDE')
3) 排除 INPUT FILE 前五位不爲ABCDE 的記錄到OUTPUT 中。
//STEP010 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TEST,INPUT,DISP=SHR
//SORTOUT DD DSN=TEST.OUTPUT,DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(5,10))
//SYSIN DD *
SORT FIELDS=SORT
OMIT COND=(1,5,CH,NE,C'ABCDE')2) 篩選INPUT FILE 前五位爲ABCDE 的記錄到OUTPUT 中。
//STEP010 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TEST,INPUT,DISP=SHR
//SORTOUT DD DSN=TEST.OUTPUT,DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(5,10))
//SYSIN DD *
SORT FIELDS=SORT
INCLUDE COND=(1,5,CH,EQ,C'ABCDE')