A
-----------------------------------------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