JCL中utilities的使用

实验目的

Utilities的使用

实验要求

1. IEBCOMPR的作用

2. IEBCOPY，主要功能等

3. SORT/DFSORT/ICEMAN

4. IEHLIST至少两个例子，一个VTOC，一个PDS

5. IEBPTPCH (Print-Punch) Program的主要功能

6. 思考：IEBDG (Test Data Generator) Program说明其作用，及简单用法举例

实验过程

Iebcompr

1. 概述

a) 功能

用于两个数据集的在逻辑记录层面上（顺序存储的内容）进行比较。

b) 限制

i. 可以用来比较两个同种类型的数据集，

ii. 支持类型有PS，PDS，PDSE

iii. 数据格式支持fixed,variable,undefined

iv. 存储类型支持blocked,unblocked,member

v. 不可用来比较load modules

c) 相等的条件

i. 对于顺序数据集

1. 数据集有相同数量的记录，

2. 对应的记录相同

3. 记录长度相同

ii. 对于分区数据集

1. 对应的成员包含相同数量的数据

2. 对应的记录相同

3. 对应分区的用户数据相同

4. 记录长度相同

d) 处理

i. 条件不满足时，会输出此记录所在块号以及dd定义的语句。

ii. 十条记录不匹配时，如果用户没有提供错误处理程序，程序结束，

e) 注意

i. 不要比较存放在不同设备上的Load modules ，因为大多数情况下，都不相等。

ii. 分区数据集只有在其中一个分区中的每一项都能在另一个分区中找到名字对应相同的项时，才可以比较。（在成员上，一个必须是另一个的子集）

f) 参数

SYSPRINT	Iebcompr的输出数据	顺序数据集，记录长121，可以写在SYSOUT中
SYSUT1	要被比较的数据集	格式相同，记录格式相同，块大小可以不同
SYSUT2	要被比较的数据集
SYSIN	控制语句	当比较分区数据集时，必有内容，否则dummy

g) 控制语句

i. COMPARE

必须出现在第一句，参数为TYPORG={PS|PO},指定输入数据格式为{顺序|分区}

ii.

2. 实例一

a) 源程序

****** ***************************** Top of Data ******************************

000100 //UR644CPR JOB ,MARTIN,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID

000200 //COPY EXEC PGM=IEBGENER

000300 //SYSUT2 DD DSN=UR644.JCL.OUTPUT(CPR#OUT1),DISP=(OLD,PASS,DELETE),

000400 // SPACE=(TRK,(1,1,1)),UNIT=SYSDA,RECFM=FB,LRECL=80

000500 //SYSUT1 DD DSN=UR644.JCL.OUTPUT(CP1#OUT),DISP=(SHR,PASS)

000600 //SYSPRINT DD SYSOUT=*

000700 //SYSIN DD DUMMY

000800 //*********************************************************************

000810 //COMPARE EXEC PGM=IEBCOMPR

000900 //SYSUT1 DD DSN=*.COPY.SYSUT1,DISP=SHR

001000 //SYSUT2 DD DSN=*.COPY.SYSUT2,DISP=SHR

001100 //SYSIN DD DUMMY

001200 //SYSPRINT DD SYSOUT=*

****** **************************** Bottom of Data ****************************

b) 输出

i. Cp1#out中的内容

****** ***************************** Top of Data ******************************

000500 MARTIN 200992403 19901031

000600 FEDORA 200882463 19891209

000700 VENCET 203311214 19898791

****** **************************** Bottom of Data ****************************

ii. 队列中输出结果

********************************* TOP OF DATA **********************************

COMPARE UTILITY

END OF JOB-TOTAL NUMBER OF RECORDS COMPARED = 00000003

******************************** BOTTOM OF DATA *******************************

c) 分析

比较两个数据集，没有特殊的参数，两个分区数据集的成员之间复制后再比较

注意第一部中用到的dd向第二部传递，特别注意！！

3. 实例二

a) 源程序

****** ***************************** Top of Data ******************************

000100 //UR644CPR JOB ,MARTIN,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID

000200 //COMPARE EXEC PGM=IEBCOMPR

000300 //SYSPRINT DD SYSOUT=*

000400 //SYSUT1 DD DSN=UR644.JCL.OUTPUT,DISP=SHR

000500 //SYSUT2 DD DSN=UR644.JCL.TEMP,DISP=SHR

000600 //SYSIN DD *

000700 COMPARE TYPORG=PO

000800 /*

****** **************************** Bottom of Data ****************************

b) 输出

********************************* TOP OF DATA **********************************

1 COMPARE UTILITY

- COMPARE TYPORG=PO 0010000

END OF JOB-TOTAL NUMBER OF RECORDS COMPARED = 00000012

******************************** BOTTOM OF DATA *******************************

c) 分析

比较两个分区数据集，注意指定COMPARE typeorg=po

IEBCOPY

概述

1. 概述

a) 功能

用于分区数据集的处理，可以用来对分区数据集复制，压缩，合并，格式的转换，对分区数据集的成员进行复制，备份，恢复，重命名，也可将分区数据集进行备份，保存成顺序数据集的格式。

i. 复制

1. 对分区数据集进行复制

a) 对分区数据集特定成员进行复制

SELECT MEMBER=（成员名，（成员名，新名，是否覆盖））

在成员有多个别名时，要求要将所有别名一同选上

b) 排除分区数据集特定成员进行复制

EXCLUDE MEMBER=（成员名[，成员名2]）

在成员有多个别名时，要求将所有别名全部排除

c) 对分区数据集成员重命名

用SELECT进行成员重命名，实际执行为对分区数据集成员在数据集内进行复制。

2. 对分区数据集进行合并

默认的复制选项

复制时，当源数据集中内容与目标数据集内容重复，而且没有指定复制的默认操作时，将尽可能保留原数据集的内容，冲突的部分以目标数据集为主。

当需要用源数据集的成员代替目标数据集的内容时，

可以在数据集层面进行指定，具体方法是在INDD中指定R

可以在成员层面进行指定，具体方法是在MEMBER中指定R

此时复制时，将以源数据为主，目标数据集中的成员将被覆盖。

3. 对分区数据集重命名

ii. 更改分区数据集格式

1. 将PDS格式改为PDSE格式

2. 将分区数据集备份到磁带中

iii. 压缩数据集

将输入和输出的dd指定为同一个数据集时，可以对此数据集进行压缩操作。

Disp中用独占锁打开文件，防止其他用户的修改。

推荐执行时先备份数据集，以防不测

注意：

1. 对于pdse格式的数据集，压缩操作会直接跳过，

2. 在对数据集进行操作时，意外的程序中止可能会损坏数据集。在执行操作前，首先对数据集进行备份，直到操作完成再删除数据集。

3. 在进行压缩操作时，保证没有其他用户对此数据集进行操作，进行压缩时，如果对数据集数据进行更改会损坏数据集。

4. 在进行压缩时，不可对成员改名，添加，删除

5. 当indd中指定了多个数据集，程序会按照顺序依次执行，例如：

Indd=(a,b,c,b),outdd=b, 此时，会导致a复制到b，b压缩，接着c复制到b，b再压缩，增加难度，但是减少输入。

b) 自动生成控制语句。

当将SYSIN指定为DUMMY时，它根据PARM的值会自动生成控制语句

当什么都没有指定时，（PARM为空）默认控制为

COPY INDD=SYSUT1，OUTDD=SYSUT2。这时只要指定SYSUT1，SYSUT2，IEBCOPY就能正常使用

当指定了成员覆盖时（PARM=REPLACE，此处没有指定为COMPRESS，注意：COMPRESS优先）

COPY INDD=（SYSUT1，R），OUTDD=SYSUT2

当指定了要压缩数据集时，（PARM=COMPRESS）

COPY INDD=SYSUT2，OUTDD=SYSUT2

当参数指定了时，SYSIN自动关闭，即使有控制语句也不会执行

c) DD

SYSUT3，SYSUT4缓存空间，SYSUT1，SYSUT2输入输出dd，SYSIN控制语句输入

d) 控制语句

复制过程的开始：COPY(需要指定输入输出dd) 或者重新指定了INDD

过程参数：SELECT，EXCLUDE

此中概念类似作业部，COPY一步步执行

COPY	INDD
	OUTDD
	LIST=[yes\|no]	指定是否输出复制了的成员名

实例1

1. 源代码

****** ***************************** Top of Data ******************************

000100 //UR644CPY JOB ,MARTIN,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID

000200 //******COMPRESS DATA SET**********************************************

000300 //COPY EXEC PGM=IEBCOPY

000400 //DDIN1 DD DSN=UR644.JCL.TEMP,DISP=OLD

000500 //DDIN2 DD DSN=UR644.JCL,DISP=OLD

000600 //DDOUT DD DSN=UR644.JCL.TEMP,DISP=OLD

000700 //SYSPRINT DD SYSOUT=*

000800 //SYSIN DD *

000900 COPY OUTDD=DDOUT,INDD=(DDIN1,DDIN2,DDIN1)

001000 /*

001100 //

****** **************************** Bottom of Data ****************************

2. 输出

********************************* TOP OF DATA **********************************

IEBCOPY MESSAGES AND CONTROL STATEMENTS

IEB1135I IEBCOPY FMID HDZ11H0 SERVICE LEVEL UA08613 DATED 20040202 DFSMS 01.0

IEB1035I UR644CPY COPY 20:09:39 TUE 06 MAR 2012 PARM=''

COPY OUTDD=DDOUT,INDD=(DDIN1,DDIN2,DDIN1) 00090002

IEB1018I COMPRESSING PDS OUTDD=DDOUT VOL=URVOL2 DSN=UR644.JCL.TEMP

IEB152I CPR#OUT1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP1#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP2#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP3#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP4#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP5#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB153I ALL MEMBERS COMPRESSED - ALL WERE ORIGINALLY COMPRESSED

IEB1013I COPYING FROM PDS INDD=DDIN2 VOL=URVOL1 DSN=UR644.JCL

IEB1014I TO PDS OUTDD=DDOUT VOL=URVOL2 DSN=UR644.JCL.TEMP

IEB167I FOLLOWING MEMBER(S) COPIED FROM INPUT DATA SET REFERENCED BY DDIN2

IEB154I IEB#CP1 HAS BEEN SUCCESSFULLY COPIED

IEB154I IEB#CP2 HAS BEEN SUCCESSFULLY COPIED

IEB154I IEB#CP3 HAS BEEN SUCCESSFULLY COPIED

IEB154I IEBCOMPR HAS BEEN SUCCESSFULLY COPIED

IEB154I IEBCOPY HAS BEEN SUCCESSFULLY COPIED

IEB154I IEBCPR#2 HAS BEEN SUCCESSFULLY COPIED

IEB154I JCLLAB1 HAS BEEN SUCCESSFULLY COPIED

IEB154I JCLTEST HAS BEEN SUCCESSFULLY COPIED

IEB1098I 8 OF 8 MEMBERS COPIED FROM INPUT DATA SET REFERENCED BY DDIN2

IEB1018I COMPRESSING PDS OUTDD=DDOUT VOL=URVOL2 DSN=UR644.JCL.TEMP

IEB152I CPR#OUT1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP1#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP2#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP3#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP4#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I CP5#OUT COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I IEB#CP1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I IEB#CP2 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I IEB#CP3 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I JCLTEST COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I JCLLAB1 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED

IEB152I IEBCPR#2 COMPRESSED - WAS ALREADY IN PLACE AND NOT MOVED