配套 计算机主机Lab4 utilities

1、Lab4 Utilities1.实验要求：通过之前的LAB实验，已经建立过了 STxxx.PDSl,现在需要在里面建立一个新的MEMBER,名称为SPLITo在SPLIT里写一段JCL,目的是调用IEBGENER程序将顺序数据集转换成一个分区数据集STxxx.LA呀并且原有的内容分成三个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的内容是:EDIT ST799.LAB4.P01(MEM1) - QI.00Columns O0GO1 000721 , ,Top of Data *MEM3的内容是: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实验步骤：步骤一：对顺序数据集做编辑：将 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请根据你自己在LAB1.DATA 的内容,调整控制语句的参数,特别是/DENT参数。（注意，把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 步骤四：提交作业，检查是否ST*.LAB4.PO1是否建立好，并

9、且它里面的三个MEMBER是否也建立好，包含的内容是否正确。2.实验要求：在STxxx.PDSl,再建立一个新的MEMBER,名称为SORH。在SORT1里写一段JCL,目的是调用SORT程序将数据集的内容进行排序，排序要求取2到6列为排 序关键字，按字符降序进行排序，排序结果放到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 *.步骤三：提交作业，去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本次实验需要提交如下四张截图，并发邮件到老师邮箱，注意：四张截图整合成一张截图以邮件正文形式发送，不可用附件发送）。按照登出主机的方法，正确登出，实验完毕!截图一：ST*. Iab4. P01 （MEM1）,注意：截图必须把红色框内容（数据集的名字）包含进来。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 ,注意：截图必须把红色框内容（数据集的名字）包含进来。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 ,注意：截图必须把红色框内容（数据集的名字）包含进来。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