实验目的
综合使用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进行合并操作,注意要使输入数据与选项的顺序都相同。关键字重复的表项只会出现一次