JCL实验——utilities综合

实验目的

综合使用utilities

实验要求

完成文档要求

实验过程

1. 第一步

a) 目的：IDCAMS删除文件

b) 源代码

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

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

000200 //DELETEDS EXEC PGM=IDCAMS

000300 //SYSPRINT DD SYSOUT=*

000400 //SYSIN DD *

000500 DELETE -

000510 UR644.JCL.TEMP

000520 DELETE UR644.JCL.GENERATE

000530 DELETE UR644.JCL.GENERAT1

000600 /*

000700 //

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

c) 输出

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

IDCAMS SYSTEM SERVICES TIME: 15:44:34

DELETE - 00050004

UR644.JCL.TEMP 00051004

IDC0550I ENTRY (A) UR644.JCL.TEMP DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0

DELETE UR644.JCL.GENERATE 00052004

IDC0550I ENTRY (A) UR644.JCL.GENERATE DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0

DELETE UR644.JCL.GENERAT1 00053004

IDC0550I ENTRY (A) UR644.JCL.GENERAT1 DELETED

IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 0

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

d) 分析

IDCAMS用于删除已经catloged不是vsam管理的数据集，主要管理CATLOG.此处用来删除数据集

控制语句中，第一列必须为空，可以写多步，具体过称为将数据集uncatlog掉，删除后，如果去查看该卷的文件，数据集仍然可以找到，注意！

2. 第二步

a) 目标：用IEBGENER将顺序数据集数据复制给分区数据集的新成员

b) 源代码

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

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

000200 //DELETEDS EXEC PGM=IDCAMS

000300 //SYSPRINT DD SYSOUT=*

000400 //SYSIN DD *

000500 DELETE -

000510 UR644.JCL.TEMP

000600 /*

000700 //*

000800 //CREATEDS EXEC PGM=IEBGENER

000900 //SYSUT1 DD DSN=UR644.JCL(JCLLAB1),DISP=SHR

001600 //SYSUT2 DD DSN=UR644.JCL.TEMP(ABC),DISP=(NEW,CATLG,DELETE),

001700 // SPACE=(TRK,(5,2,10)),UNIT=SYSDA,RECFM=FB,LRECL=80,BLKSIZE=3200

001800 //SYSPRINT DD SYSOUT=*

001900 //SYSIN DD DUMMY

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

c) 输出

程序成功执行，其中UR644.JCL.TEMP(ABC)的内容为

───────────────────────────────────────────────────────────────────────────────

EDIT UR644.JCL.TEMP(ABC) - 01.00 Columns 00001 00072

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

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

000200 //DELETEDS EXEC PGM=IDCAMS

000300 //SYSPRINT DD SYSOUT=*

000400 //SYSIN DD *

000500 DELETE -

000510 UR644.JCL.TEMP

000520 DELETE UR644.JCL.GENERATE

000530 DELETE UR644.JCL.GENERAT1

000600 /*

000700 //

000800 //CREATEDS EXEC PGM=IEBGENER

000900 //SYSUT1 DD *

001000 ABC DEF GHI 123 456 789

001100 DEF ABC GHI 456 789 123

001200 GHI DEF ABC 789 123 456

001300 ABC GHI DEF 456 123 789

001400 CBA IHG FED 654 321 987

001500 //*

001600 //SYSUT2 DD DSN=UR644.JCL.TEMP(ABC),DISP=(NEW,CATLG,DELETE),

001700 // SPACE=(TRK,(5,2,10)),UNIT=SYSDA,RECFM=FB,LRECL=80

001800 //SYSPRINT DD SYSOUT=*

001900 //SYSIN DD DUMMY

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

d) 分析

参考IEBGENER的用法，DD的定义

3. 第三步

a) 目标IEBCOPY复制成员

b) 源代码

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

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

000200 //IEBCOPY EXEC PGM=IEBCOPY

000300 //SYSUT1 DD DSN=UR644.JCL,DISP=SHR

000400 //SYSUT2 DD DSN=UR644.JCL.OUTPUT,DISP=(OLD,CATLG)

000500 //SYSPRINT DD SYSOUT=*

000600 //SYSIN DD *

000700 COPY INDD=SYSUT1,OUTDD=SYSUT2

000800 SELECT MEMBER=(JCLCOPY,(JCLTEST,,R),(JCLLAB1,JCLLAB))

000900 /*

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

c) 输出

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

IEBCOPY MESSAGES AND CONTROL STATEMENTS

IEB1135I IEBCOPY FMID HDZ11H0 SERVICE LEVEL UA08613 DATED 20040202 DFSMS 01.0

IEB1035I UR644CPY IEBCOPY 17:30:17 SUN 11 MAR 2012 PARM=''

COPY INDD=SYSUT1,OUTDD=SYSUT2 00070001

SELECT MEMBER=(JCLCOPY,(JCLTEST,,R),(JCLLAB1,JCLLAB)) 00080001

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

IEB1014I TO PDS OUTDD=SYSUT2 VOL=URVOL3 DSN=UR644.JCL.OUTPUT

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

IEB1067I JCLCOPY NOT COPIED FROM INPUT DATA SET BECAUSE REPLACE WAS NOT SPECIFI

IEB1067I JCLLAB1 NOT COPIED FROM INPUT DATA SET BECAUSE REPLACE WAS NOT SPECIFI

IEB154I JCLTEST HAS BEEN SUCCESSFULLY COPIED

IEB1098I 1 OF 3 MEMBERS COPIED FROM INPUT DATA SET REFERENCED BY SYSUT1

IEB144I THERE ARE 0 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY SYSUT2

IEB149I THERE ARE 0 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY

IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE

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

d) 分析

注意控制语句中member的定义方法，指定覆盖等不同操作的指定方法。

4. 第四步

a) 用IEHLIST查看分区数据集目录区信息，并将结果存入顺序数据集

b) 源代码

c)

5. 第五步

a) 用ICEMAN排序

b) 源代码

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

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

000200 //SORT EXEC PGM=ICEMAN

000300 //SORTOUT DD DSN=UR644.JCL.OUTPUT(SORTOUT),DISP=(OLD,CATLG)

000400 //SYSOUT DD SYSOUT=*

000500 //SORTIN DD DSN=UR644.JCL.GENERATE,DISP=SHR

000600 //SYSIN DD *

000700 SORT FIELDS=(1,5,CH,A)

000800 /*

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

c) 输出

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

ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED

ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN

ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 17:22 ON SUN MAR

SORT FIELDS=(1,5,CH,A)

ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1

ICE751I 0 C5-BASE C6-BASE C7-BASE C8-Q83041 E4-BASE C9-BASE E5-Q83041

ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED

ICE088I 1 UR644SRT.SORT . , INPUT LRECL = 80, BLKSIZE = 27920, TYPE =

ICE093I 0 MAIN STORAGE = (MAX,6291456,6286430)

ICE156I 0 MAIN STORAGE ABOVE 16MB = (6225904,6225904)

ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,

ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERE

ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=

ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=

ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=

ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITC

ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI

ICE235I 0 OPTIONS: NULLOUT=RC0

ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT

ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN

ICE750I 0 DC 27920 TC 0 CS DSVVV KSZ 5 VSZ 5

ICE752I 0 FSZ=349 RC IGN=0 E AVG=80 0 WSP=37 C DYN=0 0

ICE751I 1 DE-Q82816 D5-Q84357 D9-Q84357 E8-BASE

ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 27920, TYPE = FB

ICE080I 0 IN MAIN STORAGE SORT

ICE055I 0 INSERT 0, DELETE 0

ICE054I 0 RECORDS - IN: 50, OUT: 50

ICE134I 0 NUMBER OF BYTES SORTED: 4000

ICE199I 0 MEMORY OBJECT STORAGE USED = 0M BYTES

ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES

ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES

ICE052I 0 END OF DFSORT

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

d) 分析

注意控制语句中的定义的四个参数

6. 第六步

a) 用ICEMAN排序进行文件的合并

b) 源代码

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

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

000200 //SORT EXEC PGM=ICEMAN

000300 //SORTOUT DD DSN=UR644.JCL.OUTPUT(SORTOUT),DISP=(OLD,CATLG)

000500 //SYSOUT DD SYSOUT=*

000600 //SORTIN01 DD DSN=UR644.JCL.GENERATE,DISP=SHR

000610 //SORTIN02 DD DSN=UR644.JCL.GENERAT1,DISP=SHR

000700 //SYSIN DD *

000800 MERGE FIELDS=(1,5,CH,A)

000900 /*

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

c) 输出

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

ICE143I 0 BLOCKSET MERGE TECHNIQUE SELECTED

ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN

ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 17:15 ON SUN MAR

MERGE FIELDS=(1,5,CH,A)

ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1

ICE751I 0 C5-BASE C6-BASE C7-BASE C8-Q83041 E4-BASE C9-BASE E5-Q83041

ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED

ICE088I 0 UR644SRT.SORT . , INPUT LRECL = 80, BLKSIZE = 27920, TYPE =

ICE093I 0 MAIN STORAGE = (MAX,6291456,6286430)

ICE156I 0 MAIN STORAGE ABOVE 16MB = (6220224,6220224)

ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,

ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ERE

ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=

ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=

ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=

ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITC

ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI

ICE235I 0 OPTIONS: NULLOUT=RC0

ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT

ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN01

ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN02

ICE751I 1 DC-Q82816 DD-Q84357 E8-BASE

ICE090I 0 OUTPUT LRECL = 80, BLKSIZE = 27920, TYPE = FB

ICE055I 0 INSERT 0, DELETE 0

ICE054I 0 RECORDS - IN: 100, OUT: 100

ICE052I 0 END OF DFSORT

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

d) 分析

用iceman进行合并操作，注意要使输入数据与选项的顺序都相同。关键字重复的表项只会出现一次

转载于:https://www.cnblogs.com/martin-dlut/articles/2395445.html