DFSORT 简单用例

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')