JCL - 基本排序技巧
使用实用程序可以实现企业界的日常应用程序要求，如下所示：
1. 一个文件有100条记录。 前 10 条记录需要写入输出文件。
//JSTEP020 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IN1 DD DSN=MYDATA.URMI.STOPAFT,DISP=SHR //OUT1 DD SYSOUT=* //TOOLIN DD * COPY FROM(IN1) TO(OUT1) USING(CTL1) /* //CTL1CNTL DD * OPTION STOPAFT=10 /*
选项 STOPAFT 将在第 10 条记录后停止读取输入文件并终止程序。 因此，10 条记录被写入输出。
2. 输入文件具有同一员工编号的一条或多条记录。 将唯一记录写入输出。
//STEP010 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=MYDATA.URMI.DUPIN,DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=(1,15,ZD,A) SUM FIELDS=NONE /*
SUM FIELDS=NONE 删除排序字段中指定字段上的重复项。 在上面的示例中，员工编号位于字段位置 1,15 中。 输出文件将包含按升序排序的唯一员工编号。
3. 覆盖输入记录内容。
//JSTEP010 EXEC PGM=SORT //SORTIN DD DSN= MYDATA.URMI.SAMPLE.MAIN,DISP=SHR //SORTOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INREC OVERLAY=(47:1,6) /*
在输入文件中，位置1,6的内容被覆盖到位置47,6，然后复制到输出文件。 INREC OVERLAY 操作用于在复制到输出之前重写输入文件中的数据。
4. 将序列号添加到输出文件。
//JSTEP010 EXEC PGM=SORT //SORTIN DD * data1 data2 data3 /* //SORTOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * OPTION COPY BUILD=(1:1,5,10:SEQNUM,4,ZD,START=1000,INCR=2) /*
输出将是：
data1 1000 data2 1002 data3 1004
在输出中的位置 10 处添加 4 位序列号，从 1000 开始，每条记录递增 2。
5. 将标题/预告片添加到输出文件。
//JSTEP010 EXEC PGM=SORT //SORTIN DD * data1 data2 data3 /* //SORTOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY OUTFIL REMOVECC, HEADER1=(1:C'HDR',10:X'020110131C'), TRAILER1=(1:C'TRL',TOT=(10,9,PD,TO=PD,LENGTH=9)) /*
输出将是：
HDR 20110131 data1 data2 data3 TRL 000000003
TOT 计算输入文件中的记录数。 HDR和TRL作为标识符添加到标题/预告片中，这是用户定义的，可以根据用户的需求进行定制。
6. 条件处理
//JSTEP010 EXEC PGM=SORT
//SORTIN DD *
data1select
data2
data3select
/*
//SORTOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=(6,1,CH,NE,C' '),BUILD=(1:1,15),
IFTHEN=(WHEN=(6,1,CH,EQ,C' '),BUILD=(1:1,5,7:C'EMPTY ')
OPTION COPY
/*
输出将是：
data1select data2 EMPTY data3select
根据文件的第 6 个位置，输出文件的 BUILD 有所不同。 如果第 6 个位置是空格，则文本"EMPTY"将附加到输入记录中。 否则，输入记录将按原样写入输出。
7. 备份文件
//JSTEP001 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD * //SYSOUT DD SYSOUT=* //SORTOUT DD DUMMY //SYSUT1 DD DSN=MYDATA.URMI.ORIG,DISP=SHR //SYSUT2 DD DSN=MYDATA.URMI.BACKUP,DISP=(NEW,CATLG,DELETE), // DCB=*.SYSUT1,SPACE=(CYL,(50,1),RLSE)
IEBGENER 将 SYSUT1 中的文件复制到 SYSUT2 中的文件。 请注意，SYSUT2 中的文件采用与上例中 SYSUT1 相同的 DCB。
8.文件比较
//STEP010 EXEC PGM=SORT //MAIN DD * 1000 1001 1003 1005 //LOOKUP DD * 1000 1002 1003 //MATCH DD DSN=MYDATA.URMI.SAMPLE.MATCH,DISP=OLD //NOMATCH1 DD DSN=MYDATA.URMI.SAMPLE.NOMATCH1,DISP=OLD //NOMATCH2 DD DSN=MYDATA.URMI.SAMPLE.NOMATCH2,DISP=OLD //SYSOUT DD SYSOUT=* //SYSIN DD * JOINKEYS F1=MAIN,FIELDS=(1,4,A) JOINKEYS F2=LOOKUP,FIELDS=(1,4,A) JOIN UNPAIRED,F1,F2 REFORMAT FIELDS=(?,F1:1,4,F2:1,4) OPTION COPY OUTFIL FNAMES=MATCH,INCLUDE=(1,1,CH,EQ,C'B'),BUILD=(1:2,4) OUTFIL FNAMES=NOMATCH1,INCLUDE=(1,1,CH,EQ,C'1'),BUILD=(1:2,4) OUTFIL FNAMES=NOMATCH2,INCLUDE=(1,1,CH,EQ,C'2'),BUILD=(1:2,4) /*
JOINKEYS 指定比较两个文件的字段。
REFORMAT FIELDS=? 放置"B"（匹配记录）， 输出 BUILD 的第一个位置中的"1"（存在于 file1 中，但不存在于 file2 中）或"2"（存在于 file2 中，但不存在于 file1 中）。
JOIN UNPAIRED 对两个文件执行完全外部联接。
输出将是：
MATCH File 1000 1003 NOMATCH1 File 1001 1005 NOMATCH2 File 1002
The same functionality can be achieved using ICETOOL also.
