JCL-練習題 2.doc

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