JCL中utilities的使用

本文轉載自查看原文 2012-03-14 09:52 4290 JCL/COBOL

實驗目的

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