JCL-練習(xí)題 2.doc

JCL練習(xí)題，請?jiān)谌熘畠?nèi)完成，教師會檢查并記錄到學(xué)生檔案中要求：利用3.2菜單新建一個(gè)分區(qū)數(shù)據(jù)集（PDS），名字為：USERID.JCLTEST，要求首次分配5個(gè)TRK，二次分配2個(gè)TRK，目錄塊大小為5，記錄格式為定長塊結(jié)構(gòu)，記錄長度為80，block size大小為3200。該數(shù)據(jù)集專門用來書寫JCL練習(xí)題及考試題代碼。在上邊的PDS中新建member，用來書寫下邊所有練習(xí)的JCL代碼，每道題均要新建一個(gè)member，member的名字不可隨意指定，例如，第一道練習(xí)題，member名字則為：J01；第二道練習(xí)題，member名字則為：J02；等等。并且，每個(gè)練習(xí)的JOB語句的jobname也必須和member名相同。由于各題目之間有關(guān)聯(lián)性，請按順序進(jìn)行下邊的練習(xí)！請將練習(xí)題的代碼（屏幕上必須含有USERID）、返回碼、實(shí)現(xiàn)的結(jié)果進(jìn)行截圖，粘貼到每道題目的下邊，全部題目完成后回傳給授課教師。請注意：建議學(xué)員在完成下列練習(xí)之前先參考教材中UTILITY的例子，仔細(xì)研究每條語句、每個(gè)參數(shù)是什么含義，然后再開始做下邊的練習(xí)，不要全部照搬教材的代碼（因?yàn)橛行﹨?shù)在我們的環(huán)境下是無法實(shí)現(xiàn)的）！練習(xí)題（共16題）：1，使用實(shí)用程序IEFBR14來創(chuàng)建PS數(shù)據(jù)集。利用實(shí)用程序IEFBR14建立一個(gè)順序數(shù)據(jù)集（PS），數(shù)據(jù)集的名字為：USERID.PS01，要求首次分配2個(gè)TRK，二次分配1個(gè)TRK，記錄格式為定長塊結(jié)構(gòu)，記錄長度為80，block size大小為3200。在新建該數(shù)據(jù)集之前，需要用實(shí)用程序IDCAMS對其進(jìn)行刪除動作。作業(yè)成功提交后，在數(shù)據(jù)集列表畫面觀察該數(shù)據(jù)集是否成功建立，并觀察數(shù)據(jù)集屬性是否符合規(guī)定。數(shù)據(jù)集已經(jīng)建立，并且，屬性符合參數(shù)的設(shè)定。例一，J01：/J01 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID2，使用實(shí)用程序IEFBR14來創(chuàng)建分區(qū)數(shù)據(jù)集（PDS）。利用實(shí)用程序IEFBR14建立一個(gè)分區(qū)數(shù)據(jù)集（PDS），數(shù)據(jù)集的名字為：USERID.PDS01，要求首次分配2個(gè)TRK，二次分配1個(gè)TRK，目錄塊大小為2，記錄格式為定長塊結(jié)構(gòu)，記錄長度為80，block size大小為3200。在新建該數(shù)據(jù)集之前，需要用實(shí)用程序IDCAMS對其進(jìn)行刪除動作。作業(yè)成功提交后，在數(shù)據(jù)集列表畫面觀察該數(shù)據(jù)集是否成功建立。例二，J02：/J02 JOB CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID3，使用實(shí)用程序IEFBR14刪除數(shù)據(jù)集。利用實(shí)用程序IEFBR14刪除1、2兩道題中建立的數(shù)據(jù)集。然后在數(shù)據(jù)集列表畫面觀察上述兩個(gè)數(shù)據(jù)集是否已經(jīng)成功刪除。請對比IEFBR14和IDCAMS兩個(gè)實(shí)用程序刪除數(shù)據(jù)集的方式。答： IDCAMS,功能有定義VSAM功能，刪除所有數(shù)據(jù)集及部分管理功能。而IEFBR14主要是實(shí)現(xiàn)空數(shù)據(jù)集的創(chuàng)建，及刪除非VASM得數(shù)據(jù)集。IDCAMS刪除的功能利用的DD語句中的控制語句，可以沒有鍵字參數(shù)，而IEFBR14用了鍵字參數(shù)。4，使用實(shí)用程序IEBCOPY拷貝PDS數(shù)據(jù)集。重復(fù)練習(xí)2，新建一個(gè)分區(qū)數(shù)據(jù)集USERID.PDS01，在數(shù)據(jù)集列表畫面中為該P(yáng)DS建3個(gè)member，member的名字分別為：M1、M2、M3，每個(gè)member中隨意輸入一些數(shù)據(jù)。利用實(shí)用程序IEBCOPY拷貝USERID.PDS01到USERID.PDS02中,作業(yè)成功提交后觀察USERID.PDS02里有什么？5，使用實(shí)用程序IEBCOPY合并PDS數(shù)據(jù)集。在3.4列表中找到USERID.PDS02，并將其中的M1、M2、M3三個(gè)member，分別重命名為M4、M5、M6。根據(jù)練習(xí)2，新建一個(gè)分區(qū)數(shù)據(jù)集USERID.PDS03，在數(shù)據(jù)集列表畫面中為該P(yáng)DS建3個(gè)member， member的名字分別為：M7、M8、M9，每個(gè)member中隨意輸入一些數(shù)據(jù)。利用實(shí)用程序IEBCOPY將USERID.PDS01和USERID.PDS02和USERID.PDS03中的所有member合并拷貝進(jìn)一個(gè)新的分區(qū)數(shù)據(jù)集USERID.PDS04中。作業(yè)成功提交后觀察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，使用實(shí)用程序IEBCOPY拷貝并覆蓋指定的PDS的member。將USERID.PDS01中的M1里輸入一行數(shù)據(jù)，比如一行字母“A”； 將USERID.PDS02中的M4里輸入一行數(shù)據(jù)，比如一行字母“D”； 將USERID.PDS04中的M1里輸入一行數(shù)據(jù)，比如一行數(shù)字“1”； 將USERID.PDS04中的M4里輸入一行數(shù)據(jù)，比如一行數(shù)字“4”。利用實(shí)用程序IEBCOPY將USERID.PDS01中的M1和USERID.PDS02中的M4，拷貝并覆蓋到USERID.PDS04里的M1和M4。作業(yè)成功提交后，觀察USERID.PDS04里的M1和M4的數(shù)據(jù)與USERID.PDS01中的M1及USERID.PDS02中的M4里的數(shù)據(jù)有何不同？請仔細(xì)研究IEBCOPY的流內(nèi)控制語句的用法。數(shù)據(jù)相同例六，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，使用實(shí)用程序IEBCOPY壓縮一個(gè)PDS。 在3.4列表里找到USERID.PDS04，將其中的M7、M8、M9全部刪除。利用IEBCOPY壓縮USERID.PDS04。請仔細(xì)研究流內(nèi)控制語句的用法。例七，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，使用實(shí)用程序IEBCOPY練習(xí)一個(gè)復(fù)雜的拷貝。在3.4列表中找到USERID.PDS01，并刪掉其中的所有member（但不要刪掉該數(shù)據(jù)集），再壓縮該數(shù)據(jù)集。然后練習(xí)下邊代碼，作業(yè)正常提交后觀察USERID.PDS01中有哪些member，仔細(xì)想想為什么是這幾個(gè)member？請仔細(xì)研究流內(nèi)控制語句的含義。例八，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，使用實(shí)用程序IEBGENER拷貝順序數(shù)據(jù)集。利用練習(xí)1，新建一個(gè)順序數(shù)據(jù)集USERID.PS01，并在USERID.PS01中隨意寫入一些數(shù)據(jù)。利用實(shí)用程序IEBGENER將順序數(shù)據(jù)集USERID.PS01中的數(shù)據(jù)拷貝到順序數(shù)據(jù)集USERID.PS02中。 作業(yè)正常提交后，觀察USERID.PS02中的數(shù)據(jù)。10，使用實(shí)用程序IEBGENER把一個(gè)順序數(shù)據(jù)集拷貝成一個(gè)分區(qū)數(shù)據(jù)集的成員。 利用實(shí)用程序IEBGENER將順序數(shù)據(jù)集USERID.PS01拷貝成分區(qū)數(shù)據(jù)集USERID.PDS01的一個(gè)member，該member的名字為MEM1。11，使用實(shí)用程序IEBGENER把一個(gè)分區(qū)數(shù)據(jù)集的成員拷貝成一個(gè)順序數(shù)據(jù)集。利用IEBGENER將分區(qū)數(shù)據(jù)集USERID.PDS01中的MEM1，拷貝成一個(gè)順序數(shù)據(jù)集USERID.PS03。12，使用實(shí)用程序IEBGENER進(jìn)行下邊的練習(xí)：作業(yè)步1：利用IEBGENER將一行流內(nèi)數(shù)據(jù)20121221ABCDEF輸出到一個(gè)新建的順序數(shù)據(jù)集USERID.PS04中；作業(yè)步2：將USERID.PS04輸出到SYSOUT；作業(yè)步3：使用IEBGENER將流內(nèi)數(shù)據(jù)20121221UVWXYZ拷貝到上述數(shù)據(jù)集USERID.PS04中（若要得到上述兩條數(shù)據(jù)，該數(shù)據(jù)集參數(shù)應(yīng)當(dāng)如何設(shè)置？）。作業(yè)步4：將USERID.PS04輸出到SYSOUT。13，使用實(shí)用程序IEBGENER進(jìn)行下邊的練習(xí)。將練習(xí)12的作業(yè)改寫，使作業(yè)步2和作業(yè)步4變成一個(gè)流內(nèi)過程，然后將作業(yè)步2和作業(yè)步4改為調(diào)用流出數(shù)據(jù)集改為USERID.PS05，提交作業(yè)，比較此題和練習(xí)12的有何不同。內(nèi)過程，將輸答：兩者的不同之處在于，一個(gè)輸入到系統(tǒng)內(nèi)部的日志當(dāng)中，另一個(gè)則是輸入到獨(dú)立的數(shù)據(jù)集之中。14，使用實(shí)用程序DFSORT對某個(gè)順序數(shù)據(jù)集中的數(shù)據(jù)進(jìn)行排序。在3.4列表中找到順序數(shù)據(jù)集USERID.PS01，并向其中輸入幾行數(shù)據(jù)，每行數(shù)據(jù)不要相同。利用實(shí)用程序SORT對USERID.PS01中的數(shù)據(jù)進(jìn)行排序，并將結(jié)果輸出到USERID.PS06中，請仔細(xì)研究流內(nèi)控制語句的用法。例十四，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，使用實(shí)用程序DFSORT對兩個(gè)順序數(shù)據(jù)集中的數(shù)據(jù)進(jìn)行合并排序。 在3.4列表中找到USERID.PS01和USERID.PS02，分別并向其中輸入幾行數(shù)據(jù)，每行數(shù)據(jù)不要相同，兩個(gè)數(shù)據(jù)集的內(nèi)容也不要相同。利用實(shí)用程序SORT對USERID.PS01和USERID.PS02中的數(shù)據(jù)進(jìn)行合并排序，并將結(jié)果輸出到USERID.PS07中。請仔細(xì)研究流內(nèi)控制語句的用法。例十五，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