配套 計算機主機Lab4 utilities

1、Lab4 Utilities1.實驗要求：通過之前的LAB實驗，已經(jīng)建立過了 STxxx.PDSl,現(xiàn)在需要在里面建立一個新的MEMBER,名稱為SPLITo在SPLIT里寫一段JCL,目的是調(diào)用IEBGENER程序?qū)㈨樞驍?shù)據(jù)集轉(zhuǎn)換成一個分區(qū)數(shù)據(jù)集STxxx.LA呀并且原有的內(nèi)容分成三個MERT15SxxXAB4.PO1 中，即：EDITColumns 00001 00072000100 GG02G0 000300000406 000500 000600 6G06G1 000610 G007G0TOP O f D t*-Warning- The UNDO command is not aval

2、lable until you change your edx t profile using the command RECOVERY ON.Het lol My id is ST799(ID),im a girl.EDITColumns 00001 00072000100 GG02G0 000300000406 000500 000600 6G06G1 000610 G007G0TOP O f D t*-Warning- The UNDO command is not avallable until you change your edx t profile using the comma

3、nd RECOVERY ON.Het lol My id is ST799(ID),im a girl.YOU AND ME, FROME ONE WORD.UEUEARE ONE FAMILY.FOR MEETFOREVER YOU AND FOREVERDREAMS UE TRAVEL THOUSANDS OF MILES. IN BEIJIMG.YOU fiND HE. FROME ONE WORD.UE ARE ONE FAMILY.ME. FROME ONE WORD.UE ARE ONE FAMILY.BottomRow OGOul of 00003EDITBottomRow OG

4、Oul of 00003EDITCreatedChangedName PromptMEM1MEM2MEM3 EndMEM1的內(nèi)容是:EDIT ST799.LAB4.P01(MEM1) - QI.00Columns O0GO1 000721 , ,Top of Data *MEM3的內(nèi)容是:EDIT ST799.LAB4,P01 (MEM3) - 01.00Column* 00001 00072 ,*,* Top of Data 000001 FOREVER UE ARE ONE FAMILY. G00002 YOU AND ME, FROME ONE NORD, G0Q003 FOREVER

5、UE ARE ONE FAMILY. t sixcKM4nKasxixKxKKK Botom q f Ha t a 惠寒L實驗步驟：步驟一：對順序數(shù)據(jù)集做編輯：將 FOR DREAMS WE TRAVEL THOUSANDS OF 這一句往右移動4 行的 YOU AND ME, FROME ONE WORD 這一句往右移動9歹！J,即編輯成如下列圖:eooioeHellolMy id is ST799(ID).ima girl000200YOURNDME, FROME ONE WORD,000300UEARE IONE FAMILY.000400FORDREAMS WE TRAVEL THOU

6、SANDS OF MILESD0050GWEMEETIN BEIJING.000600YOU AND ME, FROME ONEWORD,000601FOREVERWE ARE ONE FAMILY.000610YOUANDME, FROME ONE WORD,000700FOREVERWE ARE ONE FAMILY.螂二4 STxxx.PDSl里建立一個新的MEMBER,鐲的SPLIT。步驟三：回車，寫實驗要求的JCLo請根據(jù)你自己在LAB1.DATA 的內(nèi)容,調(diào)整控制語句的參數(shù),特別是/DENT參數(shù)。（注意，把ST590替換成自己的賬號）Top of Data-Warning- The

7、 UNDO comand is not available until you changeyour edi t profile using the command RECOVERY ON.000100/ST590DJOBNOTIFY&SYSUID,MSGLEVEL-(1,1),CLASS-A,MSGCLASS-A000200/STEP1EXECPGM-IEBGENER000300/SYSPRINTSYSOUT00G400/SYSUT1DSN=ST59O.LAB1 DATA,DISPSHR000500/SYSUT2IzwDSN=ST590,LAB4 P01,DISP(NEW.CATLG,DEL

8、ETE),00G6G0 /VOLaSEUNIT=3390,000700 /SPACE-(TRK, (1,1,1),LRECL-80,RECFM-F0,BLKSIZE-800000800 /SYSIN DO 000900GENERATEMAXNAME3,MAXGPS2001000MEMBERNAME=MEM1001100RECORD1DENT-12, FO,4)001200MEMBERNAME=MEM2D013Q0RECORDIDENT=(3, YOU ,9)001400MEMBERNAME=MEM3Bottoai of Data 步驟四：提交作業(yè)，檢查是否ST*.LAB4.PO1是否建立好，并

9、且它里面的三個MEMBER是否也建立好，包含的內(nèi)容是否正確。2.實驗要求：在STxxx.PDSl,再建立一個新的MEMBER,名稱為SORH。在SORT1里寫一段JCL,目的是調(diào)用SORT程序?qū)?shù)據(jù)集的內(nèi)容進行排序，排序要求取2到6列為排 序關(guān)鍵字，按字符降序進行排序，排序結(jié)果放到SYSLOG中去。2.實驗步驟：步驟一：在STxxxTDSl里建立一個新的MEMBER,名稱為SORT1。步驟二：回車，寫實驗要求的JCL。注意控制語句的寫法。（注意，把ST590替換成自己的賬號）EDIT ST590.PDSKS0RT) - 01.01Column9 00001 00072Top of Data -

10、Warning- The UNDO coanand is not available until you change your edit profile using the command RECOVERY ON.eeOlOO /ST59GENOTIFY=&SYSUID,MSGLEVEL (1,1)0002G0 Z/STEP1ExECPGMSORT000300 /SYSPRINTDOSYSOUT*006400 /SORTINDSN=ST590.LABI ORTA,DISPSHR000500 /SORTOUTDDSYSOUT-*000600 /SYSOUTDDSYSOUT-*0OG708 /S

11、YSINOD000800 SORT FIELDS (2.5.CH.D) , Bottom of Data *.步驟三：提交作業(yè)，去SYSLOG檢查排序是否正確.SDSFSTATUSDISPLAY ALL CLASSES2Meabers processedPREFIX- DEST-(ALL) 0WNER-ST590 SYSNAME-NPJOBNAMEJob IDOwnerPrtyQueueCPO5SAffASys StatusST590TSU01725ST59015EXECUTIONS0W1SOU1ST590AJ0B01729ST5901PRINTA112ST59GEJOBG1730ST5901

12、PRINTA11311 SDSFJOB DATASET DISPLAY -JOBST590E (JOB0173G)LINE 1-5 (5)PREFIX：，DEST= (ALL) OWNER=ST59G SYSNAHENPDDNAMEStcpName ProcStepOS10 OwnerC OestRec-Cnt PageJESMSGLGJES22 ST590 H LOCAL18JESJCLJES23 ST590H LOCAL8JESYSMSGJES24 ST590H LOCAL21SORTOUTSTEP1103 ST59QH LOCAL9SYSOUTSTEP1104 ST590H LOCAL3

13、7SDSF OUTPUT DISPLAY ST590EJOB0173ODSID 103 LINE 0COLUMNS02- 81COMMAND INPUT .r. THD C匚SCROLL =1 , 1 Ur UrYOU AND ME, FROME ONE UORO,00000200YOU AND ME, FROME ONE WORD,0Q000800FOREVER WE ARE ONE FAMILY.00000900FOREVER UE ARE ONE FAMILY.00600700HELLO 1 MY ID IS ST5901ID),IMA GIRL.00000100WE MEET IN B

14、EIJING.0000050GUE ARE ONE FAMILY00000300FOR DREAMS HE TRAVEL THOUSANDS OF MILES00000400YOU AND ME. FROME ONEHORD. BOTTOMOF DATA00000600本次實驗需要提交如下四張截圖，并發(fā)郵件到老師郵箱，注意：四張截圖整合成一張截圖以郵件正文形式發(fā)送，不可用附件發(fā)送）。按照登出主機的方法，正確登出，實驗完畢!截圖一：ST*. Iab4. P01 （MEM1）,注意：截圖必須把紅色框內(nèi)容（數(shù)據(jù)集的名字）包含進來。EDITLfiB4.POJ iMEnii - G1.00EDITLfi

15、B4.POJ iMEnii - G1.00-Warning- The UNDO command is not your edit profile using-CAUTION- Profile is set to STATSColumns 00001 0GG72 of Data * available until you change the command RECOVERY ON. ON. Statistics did not exist for000001 HELLO I MY000001 HELLO I MYthis meaber, but will be generated if dat

16、a is saved. ID IS ST590(I0l,I M A GIRL.G00002 YOU ANO ME, FROME ONE WORD,000003 WE PRE ONE FAMILY.)00004FOR DREAMS NE TRAVEL THOUSANDS OF MILES. * Bottom of Data 000001 HELLO I MYthis meaber, but will be generated if data is saved. ID IS ST590(I0l,I M A GIRL.G00002 YOU ANO ME, FROME ONE WORD,000003

17、WE PRE ONE FAMILY.)00004FOR DREAMS NE TRAVEL THOUSANDS OF MILES. * Bottom of Data 截圖二：ST*. Iab4. P01 （MEMD ,注意：截圖必須把紅色框內(nèi)容（數(shù)據(jù)集的名字）包含進來。EDITbi5S0.LAB4.P01(MEM2) - 01.00Top-Warning- The UNDO comaiand is not your edi t profile usingEDITbi5S0.LAB4.P01(MEM2) - 01.00Top-Warning- The UNDO comaiand is not yo

18、ur edi t profile using-CAUTION- Profile is set to STATSColumns 00001 00072of Data * * available until you change th command RECOVERY ON.ON. Statistics did not exist for000005 000006this Member, but will be generated if data is saved. WE MEET IN BEIJING.000005 000006YOU RND ME. FROME ONE WORD.* Botto

19、m of Data 截圖三：ST*. Iab4.P01 （MEMD ,注意：截圖必須把紅色框內(nèi)容（數(shù)據(jù)集的名字）包含進來。EDITST59f).LAB4.P01 IMEH3J01.00Columns 00001 00072 aia I( * a Top-Warning- The UNDO command is not your “it profile using-CAUTION- Profile is set to STATSof Data * available until you change the command RECOVERY ON.ON. Statistics did not exist fo