JCL-练习题 2.doc

JCL练习题，请在三天之内完成，教师会检查并记录到学生档案中要求：利用3.2菜单新建一个分区数据集（PDS），名字为：USERID.JCLTEST，要求首次分配5个TRK，二次分配2个TRK，目录块大小为5，记录格式为定长块结构，记录长度为80，block size大小为3200。该数据集专门用来书写JCL练习题及考试题代码。在上边的PDS中新建member，用来书写下边所有练习的JCL代码，每道题均要新建一个member，member的名字不可随意指定，例如，第一道练习题，member名字则为：J01；第二道练习题，member名字则为：J02；等等。并且，每个练习的JOB语句的jobname也必须和member名相同。由于各题目之间有关联性，请按顺序进行下边的练习！请将练习题的代码（屏幕上必须含有USERID）、返回码、实现的结果进行截图，粘贴到每道题目的下边，全部题目完成后回传给授课教师。请注意：建议学员在完成下列练习之前先参考教材中UTILITY的例子，仔细研究每条语句、每个参数是什么含义，然后再开始做下边的练习，不要全部照搬教材的代码（因为有些参数在我们的环境下是无法实现的）！练习题（共16题）：1，使用实用程序IEFBR14来创建PS数据集。利用实用程序IEFBR14建立一个顺序数据集（PS），数据集的名字为：USERID.PS01，要求首次分配2个TRK，二次分配1个TRK，记录格式为定长块结构，记录长度为80，block size大小为3200。在新建该数据集之前，需要用实用程序IDCAMS对其进行删除动作。作业成功提交后，在数据集列表画面观察该数据集是否成功建立，并观察数据集属性是否符合规定。数据集已经建立，并且，属性符合参数的设定。例一，J01：/J01 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID2，使用实用程序IEFBR14来创建分区数据集（PDS）。利用实用程序IEFBR14建立一个分区数据集（PDS），数据集的名字为：USERID.PDS01，要求首次分配2个TRK，二次分配1个TRK，目录块大小为2，记录格式为定长块结构，记录长度为80，block size大小为3200。在新建该数据集之前，需要用实用程序IDCAMS对其进行删除动作。作业成功提交后，在数据集列表画面观察该数据集是否成功建立。例二，J02：/J02 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID3，使用实用程序IEFBR14删除数据集。利用实用程序IEFBR14删除1、2两道题中建立的数据集。然后在数据集列表画面观察上述两个数据集是否已经成功删除。请对比IEFBR14和IDCAMS两个实用程序删除数据集的方式。答： IDCAMS,功能有定义VSAM功能，删除所有数据集及部分管理功能。而IEFBR14主要是实现空数据集的创建，及删除非VASM得数据集。IDCAMS删除的功能利用的DD语句中的控制语句，可以没有键字参数，而IEFBR14用了键字参数。4，使用实用程序IEBCOPY拷贝PDS数据集。重复练习2，新建一个分区数据集USERID.PDS01，在数据集列表画面中为该PDS建3个member，member的名字分别为：M1、M2、M3，每个member中随意输入一些数据。利用实用程序IEBCOPY拷贝USERID.PDS01到USERID.PDS02中,作业成功提交后观察USERID.PDS02里有什么？5，使用实用程序IEBCOPY合并PDS数据集。在3.4列表中找到USERID.PDS02，并将其中的M1、M2、M3三个member，分别重命名为M4、M5、M6。根据练习2，新建一个分区数据集USERID.PDS03，在数据集列表画面中为该PDS建3个member， member的名字分别为：M7、M8、M9，每个member中随意输入一些数据。利用实用程序IEBCOPY将USERID.PDS01和USERID.PDS02和USERID.PDS03中的所有member合并拷贝进一个新的分区数据集USERID.PDS04中。作业成功提交后观察USERID.PDS04中有什么？例五，J05：/J05 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID/STEP1 EXEC PGM=IEBCOPY/SYSPRINT DD SYSOUT=*/IN1 DD DSN=USERID.PDS01,DISP=SHR/IN2 DD DSN=USERID.PDS02,DISP=SHR/IN3 DD DSN=USERID.PDS03,DISP=SHR/OUT1 DD DSN=USERID.PDS04,DISP=(NEW,CATLG,DELETE),/ SPACE=(TRK,(2,1,2),/ DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200,DSORG=PO)/SYSIN DD *COPYOPER COPY OUTDD=OUT1 想想COPYOPER代表什么？ INDD=IN1 INDD=IN2 INDD=IN3/* /6，使用实用程序IEBCOPY拷贝并覆盖指定的PDS的member。将USERID.PDS01中的M1里输入一行数据，比如一行字母“A”； 将USERID.PDS02中的M4里输入一行数据，比如一行字母“D”； 将USERID.PDS04中的M1里输入一行数据，比如一行数字“1”； 将USERID.PDS04中的M4里输入一行数据，比如一行数字“4”。利用实用程序IEBCOPY将USERID.PDS01中的M1和USERID.PDS02中的M4，拷贝并覆盖到USERID.PDS04里的M1和M4。作业成功提交后，观察USERID.PDS04里的M1和M4的数据与USERID.PDS01中的M1及USERID.PDS02中的M4里的数据有何不同？请仔细研究IEBCOPY的流内控制语句的用法。数据相同例六，J06：/J06 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID/STEP1 EXEC PGM=IEBCOPY/SYSPRINT DD SYSOUT=*/IN1 DD DSN=USERID.PDS01,DISP=SHR/IN2 DD DSN=USERID.PDS02,DISP=SHR/OUT1 DD DSN=USERID.PDS04,DISP=SHR/SYSIN DD *COPYOPER COPY OUTDD=OUT1 INDD=IN1,IN2 SELECT MEMBER=(M1,R),M4) 想想逗号中间代表什么？R代表什么？/* /7，使用实用程序IEBCOPY压缩一个PDS。 在3.4列表里找到USERID.PDS04，将其中的M7、M8、M9全部删除。利用IEBCOPY压缩USERID.PDS04。请仔细研究流内控制语句的用法。例七，J07：/J07 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID/STEP1 EXEC PGM=IEBCOPY/SYSPRINT DD SYSOUT=*/COMPDS DD DSN=USERID.PDS04,DISP=SHR/SYSIN DD * COPY OUTDD=COMPDS,INDD=COMPDS/* /8，使用实用程序IEBCOPY练习一个复杂的拷贝。在3.4列表中找到USERID.PDS01，并删掉其中的所有member（但不要删掉该数据集），再压缩该数据集。然后练习下边代码，作业正常提交后观察USERID.PDS01中有哪些member，仔细想想为什么是这几个member？请仔细研究流内控制语句的含义。例八，J08：/J08 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID/STEP1 EXEC PGM=IEBCOPY/SYSPRINT DD SYSOUT=*/OUT1 DD DSN=USERID.PDS01,DISP=SHR/IN2 DD DSN=USERID.PDS02,DISP=SHR/IN3 DD DSN=USERID.PDS03,DISP=SHR/IN4 DD DSN=USERID.PDS04,DISP=SHR/SYSIN DD * COPY OUTDD=OUT1 INDD=IN2 SELECT MEMBER=(M4,M5) INDD=IN3 EXCLUDE MEMBER=(M7,M9) COPY OUTDD=IN2,INDD=IN3 INDD=(IN4,R),IN2) COPY OUTDD=IN4,INDD=(IN2,R) SELECT MEMBER=M6/* /9，使用实用程序IEBGENER拷贝顺序数据集。利用练习1，新建一个顺序数据集USERID.PS01，并在USERID.PS01中随意写入一些数据。利用实用程序IEBGENER将顺序数据集USERID.PS01中的数据拷贝到顺序数据集USERID.PS02中。 作业正常提交后，观察USERID.PS02中的数据。10，使用实用程序IEBGENER把一个顺序数据集拷贝成一个分区数据集的成员。 利用实用程序IEBGENER将顺序数据集USERID.PS01拷贝成分区数据集USERID.PDS01的一个member，该member的名字为MEM1。11，使用实用程序IEBGENER把一个分区数据集的成员拷贝成一个顺序数据集。利用IEBGENER将分区数据集USERID.PDS01中的MEM1，拷贝成一个顺序数据集USERID.PS03。12，使用实用程序IEBGENER进行下边的练习：作业步1：利用IEBGENER将一行流内数据20121221ABCDEF输出到一个新建的顺序数据集USERID.PS04中；作业步2：将USERID.PS04输出到SYSOUT；作业步3：使用IEBGENER将流内数据20121221UVWXYZ拷贝到上述数据集USERID.PS04中（若要得到上述两条数据，该数据集参数应当如何设置？）。作业步4：将USERID.PS04输出到SYSOUT。13，使用实用程序IEBGENER进行下边的练习。将练习12的作业改写，使作业步2和作业步4变成一个流内过程，然后将作业步2和作业步4改为调用流出数据集改为USERID.PS05，提交作业，比较此题和练习12的有何不同。内过程，将输答：两者的不同之处在于，一个输入到系统内部的日志当中，另一个则是输入到独立的数据集之中。14，使用实用程序DFSORT对某个顺序数据集中的数据进行排序。在3.4列表中找到顺序数据集USERID.PS01，并向其中输入几行数据，每行数据不要相同。利用实用程序SORT对USERID.PS01中的数据进行排序，并将结果输出到USERID.PS06中，请仔细研究流内控制语句的用法。例十四，J14：/J14 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID/STEP1 EXEC PGM=SORT/SYSOUT DD SYSOUT=*/SORTIN DD DSN=USERID.PS01,DISP=SHR/SORTOUT DD DSN=USERID.PS06,DISP=(NEW,CATLG,DELETE),/ SPACE=(TRK,(2,1),/ DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200,DSORG=PS)/SYSIN DD * SORT FIELDS=(2,3,A,7,2,A,12,1,A),FORMAT=CH/*15，使用实用程序DFSORT对两个顺序数据集中的数据进行合并排序。 在3.4列表中找到USERID.PS01和USERID.PS02，分别并向其中输入几行数据，每行数据不要相同，两个数据集的内容也不要相同。利用实用程序SORT对USERID.PS01和USERID.PS02中的数据进行合并排序，并将结果输出到USERID.PS07中。请仔细研究流内控制语句的用法。例十五，J15：/J15 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID/STEP1 EXEC PGM=SORT/SYSOUT DD SYSOUT=*/SORTIN DD DSN=USERID.PS01,DISP=SHR/ DD DSN=USERID.PS02,DISP=SHR/SORTOUT DD DSN=USERID.PS07,DISP=(NEW,CATLG,DELETE),/ SPACE=(TRK,(2,1),/ DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200,DSORG=PS)/SYSIN DD * SORT FIELDS=(1,3,A,7,2,A),FORMAT=CH