SMP/E初学入门--介绍和使用实例
-
参考书籍：《SMP/E USER'S GUIDE》
SMP/E是一个Z/OS工具，用于管理Z/OS系统上软件产品的安装，并追踪这些产品的修改。
所有的代码和修正程序都可以在SMP/E数据库中找到，我们叫它CSI(consolidated software inventory)，它有一个或多个VSAM数据集组成。我们使用的Z/OS系统是由很多子系统拼起来的，所以我们可以看到：
RACF | DB2 | MVS | CICS | ISPF | TSO | SMP/E | EREP | MQ | JES | RMF | HTTP | IMS | VTAM | WAS | NETVIEW | DFSMS | PSF | RRS而每个系统的功能都由一个或者多个加载模块组成。
通常我们会使用SMP/E对系统进行更新，通常我们拿到一个SYSMOD（一个SYSMOD是元素和控制信息的打包，SMP/E使用这些控制信息来安装和跟踪系统的修改。）在SYSMOD里我们可以看到它由两部分组成，修正控制语句（MCS）和修正体两部分，修正体是目标模块，宏或SYSMOD；MCS的的前两个字母以“++”开头，进而告诉SMP/E:
1）更新或更换那些元素
2）SYSMOD如何与产品软件和其他SYSMOD相关联
3）其他特定的安装信息一共有4中类型的SYSMOD
-
FUNCTION SYSMOD
在系统引入一个新产品或是一个产品的新版本，或跟新系统中现有的某个产品的功能
举一个简单FUNCTION SYSMOD的例子：++FUNCTION(FUN0001) /* SYSMOD TYPE AND IDENTIFIER. */ ++VER(Z038) FMID(FUN001) /* FOR AN OS/390 SYSTEM. */ ++MOD(MOD1) RELFILE(1) /* INTRODUCE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ++MOD(MOD2) RELFILE(1) /* INTRODUCE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ++MOD(MOD3) RELFILE(1) /* INTRODUCE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ++MOD(MOD4) RELFILE(1) /* INTRODUCE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ -
PTF SYSMOD
当一个软件发现有问题时，IBM提供客户一个经过测试的补丁，这个补丁就是PTF。
举一个简单PTF SYSMOD的例子：
++PTF(PTF0001) /* SYSMOD TYPE AND IDENTIFIER. */ ++VER(Z038) FMID(FUN001) /* APPLY TO THIS PRODUCT */ ++MOD(MOD1) /* REPLACE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ... ...OBJECT CODE FOR MODULE-
APAR SYSMOD
有时当一个严重问题发生时，用户可能需要在PTF发布之前修正它，这种情况下，IBM提供了一个授权程序分析报告（APAR），APAR是一个补丁，可以快速修正元素的某个特定区域或者替代一个错误元素。
举一个简单APAR SYSMOD的例子：++APAR(APAR001) /* SYSMOD TYPE AND IDENTIFIER. */ ++VER(Z038) FMID(FUN001) /* APPLY TO THIS PRODUCT */ PRE(UZ00004) /* AT THIS SERVICE LEVEL */ ++ZAP(MOD3) /* UPDATE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ... ...ZAP CONTROL STATEMENT -
USERMOD SYSMOD
如果用户有这样一个需求，需要产品完成和它原来设计不一样的任务，那么可能需要客户化系统中的元素。IBM提供用户一些模块剪裁IBM代码以满足特定的用户需求，在完成想要得到的改变之后，需要通过安装USERMOD SYSMOD从而在系统中添加或者更新这些模块。
举一个简单USERMOD SYSMOD的例子：++USERMOD(APAR001) /* SYSMOD TYPE AND IDENTIFIER. */ ++VER(Z038) FMID(FUN001) /* APPLY TO THIS PRODUCT */ PRE(UZ00004) /* AT THIS SERVICE LEVEL */ ++SRCUPD(JESMOD3) /* UPDATE THIS MODULE. */ DISTLIB(AOSFB) /* IN THIS DISTRIBUTION LIBRARY */ ... ...UPDATE CONTROL STATEMENT
PTF,APAR和USERMOD SYSMOD都把FUNCTION SYSMOD作为先决条件，类似我们WINDOWS系统打补丁一样，比如在WINXP系统存在的情况下，我们可以打补丁，安装或更新一些修改后的软件。
1）PTF SYSMOD可能还依赖于其他的PTF SYSMOD，可能我们在安装PTF0002之前，必须先安装PTF0001.
2）APAR SYSMOD可能还依赖于PTF SYSMOD或者其他的APAR SYSMOD
3）USERMODSYSMOD可能还依赖于PTF SYSMOD，APAR SYSMOD或者其他的USERMOD SYSMOD。为了成功的跟踪和控制元素，所以元素及其修正都必须在SMP/E中清晰地定义标识。
有3类修改标识符：
1）功能修改标识符（FMID）标识FUCTION SYSMOD，它将元素引入到系统中。
2）替换修改标识符（RMID）标识最后替换某元素的SYSMOD（大多数情况下为PTF SYSMOD）
3）更新修改标识符（UMID）标识自从某元素被替换之后，对其实施更新的SYSMOD为了让SMP/E能正确地完成其处工作，SMP/E必须维护大量的信息，这包括其组织结构，，内容和它所管理的软件的修正状态。可以想象，所有这些有SMP/E必须维护的信息就好比一个公共图书馆，在一个公共图书馆中，一般看到的是放满书的书架，此外，还有放满了卡片目录的抽屉，图书馆里的每一本书都有一张对应的卡片。这些卡片包含了这些信息：标题，作者，出版日期，书的类型和书在书架上的具体位置等。
在SMP/E环境中，有两种类型的书架，他们分表代表的是DISTRIBUTION LIBRARY和TARGET LIBRARY。其中DISTRIBUTION LIBRARY是放安装完毕的产品，经过一段时间测试后没有问题的模块，类似备份的东西。而TARGET LIBRARY放的是安装完毕的产品。在图书馆里，读者借助卡片目录来查找到书籍或其他想要寻找的信息，同样，SMP/E采用CSI（CONSOLIDATED SOFTWARE IVENTORY）的形式提供类似的跟踪机制。CSI数据集包含所有SMP/E用来跟踪DISTRIBUTION LIBRARY和TARGET LIBRARY的信息。CSI条目包含元素名字，类型，历史记录，元素被引入到系统中的方法，元素在DISTRIBUTION LIBRARY和TARGET LIBRARY中的具体位置等。CSI并不包括元素本身，而是包含元素的描述信息。
在CSI中，元素在DISTRIBUTION LIBRARY和TARGET LIBRARY中的条目按照他们的安装状态分组
代表DISTRIBUTION LIBRARY的条目放到DISTRIBUTION ZONE中，代表TARGET LIBRARY中的元素的条目在TARGET ZONE中
除了DISTRIBUTION ZONE和TARGET ZONE，SMP/E CSI还包含一个GLOBAL ZONE，GLOBAL ZONE包含：
1）SMP/E用于识别和描述每个DISTRIBUTION ZONE和TARGET ZONE的关系
2）SMP/E处理选项的信息
3）SMP/E已经开始处理的全部SYSMOD的状态信息
4）需要特殊处理或存在错误的SYSMOD的异常数据在SMP/E中，所说的异常数据通常是指HOLDDATA。HOLDDATA会在产品中提供，标识某个指定的SYSMOD禁止安装。阻挠SYSMOD安装的原因可能是：
1）PTF有错误，在错误被修正前不应该被安装（ERROR HOLD）
2）在SYSMOD安装前需要某些确定的系统行为（SYSTEM HOLD）
3）在SYSMOD安装前，用户想要完成某些行为（USER HOLD）SMP/E用3个命令来完成：RECEIVE,APPLY,ACCEPT
1.RECEIVE命令允许用户将一个在SMP/E之外的SYSMOD加入到SMP/E库中，并开始为其构造CSI条目信息。这样这些条目可以用来查询从进入到处理的信息，目前RECEIVE的数据源更多的是从网上DOWN下来的（比如IBM网站），或者第三方的生产商。该处理用于完成以下任务，
1）在GLOBAL ZONE中建立描述SYSMOD的条目
2）确保SYSMOD有效，如CSI中与安装产品相关的修正控制语句（MCS）的语法
3）将SYSMOD安装到库中。如PTF历史存放库
4）读取HOLDDATA信息，确保错误不被引入。在RECEIVE处理过程中，每个SYSMOD的MCS都被复制到一个SMP/E临时存储区，叫做SMPPTS数据集，该SMPPTS数据集包含了该SYSMOD内部元素的替换或更新情况。而与元素相关的文件被打包在一起，并与MCS分开放置在RELFILE文件中，RELFILE文件存储在另一个数据集SMPTLIB的临时存储区中。SMP/E用它接受的SYSMOD信息来更新全局区。
使用RECEIVE接受所有SYSMOD和HOLDDATA
SET BDY(GLOBAL).
RECEIVE
SET BDY(GLOBAL).
RECEIVE.如只接受需要特殊处理或有错误状态的HOLDDATA
SET BDY(GLOBAL).
RECEIVE HOLDDATA.指接受SYSMOD
SET BDY(GLOBAL).
RECEIVE SYSMOD.接受某个特定产品的所有SYSMOD，包括HOLDDATA
SET BDY(GLOBAL).
RECEIVE FORFMID(H28W500).使用APPLY命令把RECEIVE后的SYSMOD安装到TARGET LIBRARY中。
APPLY处理会更新如下信息：
1）GLOBAL ZONE的所有SYSMOD条目都被更新，这样放映出SYSMOD已经应用到TARGET LIBRARY中
2）TARGET ZONE准确放映了APPLY处理的每条SYSMOD条目，元素条目（如MOD和LMOD）也在TARGET ZONE中被创建
3）BACKUP条目在SMPSCDS数据集中被创建，这样可以在必要的时候进行SYSMOD恢复。使用APPLY安装PTF SYSMOD
SET BDY(GLOBAL).
APPLY PTFS.安装指定的模块
SET BDY(GLOBAL).
SELECT(UZ00001,UZ00002).有时，可能需要在目标库中安装APAR，或USERMOD
SET BDY(ZOSTGT1).
APPLY APARS
USERMODS.使用ACCEPT命令把SYSMOD从TARGET LIBRARY安装到DISTRIBUTION LIBRARY中。
需要特别注意的是，如果SYSMOD的ACCEPT处理存在错误，不要ACCEPT它。使用RESTORE过程会选取被ACCEPT处理的SYSMOD还原到TARGET LIBRARY中，APPLY后系统运行一段时间没有问题后，在使用ACCEPT命令生成新的备份。安装符合条件的PTF到DISTRIBUTION LIBRARY
SET DBY(ZOSDLB1).
ACCEPT PTFS.如果想安装指定的PTF SYSMODS
SET DBY(ZOSDLB1).
ACCEPT SELECT(UZ00001,UZ00002).更新某个产品的所有SYSMOD
SET DBY(ZOSDLB1).
ACCEPT PTFS
FORFMID(H28W500).总结：
TARGET LIBRARY：生产系统
DISTRIBUCTION LIBRARY：备份系统每个系统功能都由一个或者多个可庄子啊模块组成
可装载模块的包括：源代码，目标模块，可装载模块术语：
ELEMENT：源代码，目标模块，宏和其他类型的数据和代码都是系统中的基本构建块，成为ELEMENT
SYSMOD：SMP/E可以安装大量不同的系统更新，前提是这些更新打包成一个系统修正程序或者SYSMOD
SYSMOD由一些元件的组合以及控制信息组成
-
-
-----------------------------------------PTF 安装实例----------------------------------------------
1.在CSI中查询你要安装的PTF是否存在
---------------------- SMP/E PRIMARY OPTION MENU ---------------- SMP/E 35.11 ===> 3 More: + 0 SETTINGS - Configure settings for the SMP/E dialogs 1 ADMINISTRATION - Administer the SMPCSI contents 2 SYSMOD MANAGEMENT - Receive SYSMODs and HOLDDATA and install SYSMODs 3 QUERY - Display SMPCSI information 4 COMMAND GENERATION - Generate SMP/E commands 5 RECEIVE - Receive SYSMODs, HOLDDATA and support information 6 MIGRATION ASSISTANT- Generate Planning and Migration Reports 7 ORDER MANAGEMENT - Manage ORDER entries in the global zone D DESCRIBE - An overview of the dialogs T TUTORIAL - Details on using the dialogs W WHAT IS NEW - What is New in SMP/E Specify the name of the CSI that contains the global zone: SMPCSI DATA SET ===> 'ZOS1A.GLOBAL.CSI' F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .---------------------- SMP/E PRIMARY OPTION MENU ---------------- SMP/E 35.11 QUERY SELECTION MENU 1 CSI QUERY - Display SMPCSI entries 2 CROSS-ZONE QUERY - Display status of an entry in all zones 3 SOURCEID QUERY - Display SOURCEIDs for specified zone D DESCRIBE - Overview of using QUERY T TUTORIAL - Information on using QUERY To return to the SMP/E primary option menu, enter END . ===> 2 F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .CROSS-ZONE QUERY Specify the entry type and name to be queried: ENTRY TYPE ===> SYSMOD Entry type to be queried. To display a selection list of all valid entry types, leave ENTRY TYPE and ENTRY NAME blank ENTRY NAME ===> UK51888 Entry name to be queried. To return to the Query selection menu enter the END command ===> F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.153 16:07:10 TZOS1A0 PTF HIP61A0 APP 10.153 16:44:29 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .因为我的系统是刚刚打过PTF的，所以
可以看到UK48822已经在系统里面APPLY，但是还没有ACCEPT，这时我们可以使用RESTORE命令来还原。//A0001RES JOB IBM,CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(20,10,1000)) //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(20,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //*MPPTFIN DD UNIT=SYSDA,DISP=SHR, //* DSN=TEST.PTF.APLTEST //SMPRPT DD SYSOUT=* //SMPCNTL DD * SET BOUNDARY(TZOS1A0). RESTORE SELECT( UK51888 ) GROUP <---GROUP是查看是否有相关联的PTF . /*查看状态
CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.153 16:07:11 TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE使用REJECT把RECEIVE的状态干掉
//A0002REJ JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(GLOBAL). REJECT SELECT( UK51888 ) . /*查看状态
CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL * TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .时相当于重新为系统打UK51888这个补丁:
-
先下载UK51888，网站http://w3-950.ibm.com/wwqa/wwqa.nsf/wwqalogon?OpenForm&corp
-
确认UK51888在系统里面是否存在，上面已经确认过了。
-
把你download下来的bin文件床传到系统中。
-
unpack，使用JCL，不知道什么原因，这次下载下来的BIN需要unpack两次。
//A0003UPK JOB MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=TRSMAIN,PARM='UNPACK' //SYSPRINT DD SYSOUT=A //INFILE DD DSN=TEST.UK43912.SMP.BIN,DISP=SHR,UNIT=SYSDA //OUTFILE DD DISP=(NEW,CATLG),DSN=TEST.UK43912.SMP.BIN.UPK, // VOL=SER=COMUSR,UNIT=3390,SPACE=(CYL,(1,1)) //STEP2 EXEC PGM=TRSMAIN,PARM='UNPACK' //SYSPRINT DD SYSOUT=A //INFILE DD DSN=TEST.UK43912.SMP.BIN.UPK,DISP=SHR,UNIT=SYSDA //OUTFILE DD DISP=(NEW,CATLG),DSN=TEST.UK43912.SMP, // VOL=SER=COMUSR,UNIT=3390,SPACE=(CYL,(1,1))UNPACK后的文件
... ++ PTF (UK51888) /* //UK51888 JOB 5655-51888,HAL00,MSGLEVEL=(1,1),CLASS=A */ . ++ VER (Z038) FMID(HIP61A0) PRE (UK50683,UK50072,UK47990,UK44784) SUP (UK50080,UK38262,AK94784,AK87221,AK68879) . ++ IF FMID(HIP61B0) THEN REQ (UK51889) ...
-
使用RECEIVE命令会GLOBAL ZONE里显示出REC这个状态
//A0004RCV JOB CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(20,10,1000)) //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(20,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(10,5)) //SMPPTFIN DD UNIT=SYSDA,VOL=SER=COMUSR,DISP=SHR, // DSN=TEST.UK43912.SMP //SMPRPT DD SYSOUT=* //SMPCNTL DD * SET BDY(GLOBAL). RECEIVE SELECT( UK51888 ) SYSMODS LIST .CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.174 16:45:45 TZOS1A0 * ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . . -
用APPLY命令会TARGET ZONE里显示出APP这个状态
//A0005APP JOB USER=IBMUSER,CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK4 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(30,20,10)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(TZOS1A0). APPLY SELECT( UK51888 ) BYPASS(HOLDSYSTEM(DOC,ENH,DYNACT,IPL,ACTION)) CHECK <--check没问题后，把CHECK去掉在SUB JCL . /* //CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 * GLOBAL PTF REC 10.174 16:45:45 TZOS1A0 PTF HIP61A0 APP 10.174 16:53:04 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . . -
时这个PTF已经完成了，重新系统看看测试下是否有异常，在系统运行一段时候后，可以使用ACCEPT做一个新的备份点。
使用ACCEPT命令会DISTRIBUTION ZONE里显示出ACC这个状态//A0006ACC JOB USER=IBMUSER,CLASS=A,MSGCLASS=H, // MSGLEVEL=(1,1),NOTIFY=&SYSUID //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPLOG DD SYSOUT=* //SMPRPT DD SYSOUT=* //SMPWRK1 DD UNIT=SYSDA,SPACE=(CYL,(30,20,200)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK2 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SMPWRK3 DD UNIT=SYSDA,SPACE=(CYL,(50,30,150)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK4 DD UNIT=SYSDA,SPACE=(CYL,(30,20,110)),DISP=(,DELETE), // DCB=BLKSIZE=3120 //SMPWRK6 DD UNIT=SYSDA,SPACE=(CYL,(30,20,10)),DISP=(,DELETE), // DCB=BLKSIZE=6160 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(10,5)),DISP=(,DELETE) //SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(10,5)),DISP=(,DELETE) //SMPCNTL DD * SET BDY(DZOS1A0). ACCEPT SELECT( UK51888 ) BYPASS(HOLDSYSTEM(DOC,ENH,DYNACT,IPL,ACTION)) CHECK <--check没问题后，把CHECK去掉在SUB JCL . /*CSI CROSS-ZONE QUERY - ENTRY SELECTION Row 1 to 3 of 3 Entry Type: SYSMOD Entry Name: UK51888 To return to the previous panel, enter END . To select an entry from a zone, enter S next to the zone. * - Entry not found in zone. ** - Zone could not be allocated or is not initialized. -------------------- Status ----------------------------------- ZONE TYPE FMID STATUS DATE TIME REWORK -------- -------- -------- -------- -------- -------- -------- -------- DZOS1A0 PTF HIP61A0 ACC 10.174 17:00:16 GLOBAL * TZOS1A0 PTF HIP61A0 APP 10.174 16:53:04 ******************************* Bottom of data ******************************** ===> SCROLL ===> PAGE F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE . . . . . . . . . . . . . . . . . . . . . . . . . . .
-
可以使用LIST列出PTF的状态
//A0007LST JOB CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1), // NOTIFY=&SYSUID,USER=IBMUSER //STEP1 EXEC PGM=GIMSMP,REGION=0M //SMPCSI DD DISP=SHR,DSN=ZOS1A.GLOBAL.CSI //SMPRPT DD SYSOUT=* //SMPLOG DD SYSOUT=* //SMPCNTL DD * SET BDY(TZOS1A0). LIST SYSMOD(UK51888) . /*可以在LOG中看到
UK51888 TYPE = PTF STATUS = REC APP FMID = HIP61A0 DATE/TIME REC = 10.174 16:45:45 INS = 10.174 16:53:04 SOURCEID = HIPER PUT0912 RSU1001 SMCCOR
-