RE: PTF maintenance - WAS: IPL hangs at C900 2967 -- MIDRANGE-L

Thanks for the wonderful code, Rob! It will certainly streamline our PTF installs. :)

A few questions comes to mind:

1) If the package does not exist, does the system ignore trying to install or will it throw an error? Does someone have the answer the message or will it carry on with the order/install for each package?
2) When running the SNDPTFORD can you substitute *CUMPKG, *HIPERGRP, etc. in place of the actual SF Number? We're still running V5R4M0 and I didn't see a CUME package for it on the IBM website.
3) Does the system check to see if the latest file has already been ordered and installed and if so, ignore trying to order and install?

Thanks again for the proggie! :)

/b;

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Monday, June 08, 2009 2:10 PM
To: Midrange Systems Technical Discussion
Subject: Re: PTF maintenance - WAS: IPL hangs at C900 2967

Just ran this program and it worked like a champ. I may use it to replace
some of our ptf strategy.
/* Group Dekko Services, LLC */
/* */
/* This program will order, load and apply the latest cume & groups. */
/* */
/* */
/* Modification log: */
/* 06/08/09 by R.Berendt, CDP GDS,LLC */
/* Created */
/* */
/* */
PGM
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99610 - Cume') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99610)) /* cume */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99609 - Hiper') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99609)) /* Hiper */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99608 - Security') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99608)) /* Security */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99616 - DB2 Web Query for IBM i V1.1.1') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99616)) /* DB2 Web Query for IBM i V1.1.1 */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99601 - DB2 for System i') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99601)) /* DB2 for System i */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99562 - Java') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99562)) /* Java */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99357 - IBM i integration with BladeCenter & System
x') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99357)) /* IBM i integration with BladeCenter & System
x */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99356 - Print') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99356)) /* Print Group PTF for V6R1M0 */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99355 - Electronic Service Agent') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99355)) /* Electronic Service Agent */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99354 - TCP/IP Group PTF') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99354)) /* TCP/IP Group PTF */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99353 - WebSphere App Server V6.1') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99353)) /* WebSphere App Server V6.1 */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99352 - WebSphere App Server V6.0') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99352)) /* WebSphere App Server V6.0 */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99351 - WebSphere MQ for i5/OS - v7.0') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99351)) /* WebSphere MQ for i5/OS - v7.0 */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99350 - WebSphere MQ for iSeries - v6.0') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99350)) /* WebSphere MQ for iSeries - v6.0 */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99349 - IBM Smart Business for IBM i') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99349)) /* IBM Smart Business for IBM i */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99325 - WebSphere App Server V7.0') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99325)) /* WebSphere App Server V7.0 */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99187 - Backup Recovery Solutions') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99187)) /* Backup Recovery Solutions */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('SF99115 - IBM HTTP Server for i') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
SNDPTFORD PTFID((SF99115)) /* IBM HTTP Server for i */
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)

END:

ENDPGM

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

From:
rob@xxxxxxxxx
To:
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date:
06/08/2009 01:29 PM
Subject:
Re: PTF maintenance - WAS: IPL hangs at C900 2967
Sent by:
midrange-l-bounces@xxxxxxxxxxxx

"Planning your fix management strategy"
http://publib.boulder.ibm.com/infocenter/iseries/v6r1m0/topic/rzam8/rzam8fixstrategy.htm

Is there anything stopping someone from using either a single string job
queue or writing a CL program to do the following:

SNDPTFORD PTFID((SF99610))
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPTFORD PTFID((SF99609))
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
SNDPTFORD PTFID((SF99608))
INSPTF LICPGM((*ALL)) INSTYP(*DLYALL)
... repeat for all listed at
http://www-912.ibm.com/s_dir/sline003.NSF/GroupPTFs?OpenView&Start=1&Count=30&Expand=1#1

DSPJOBLOG OUTPUT(*PRINT)
PWRDWNSYS DELAY(120) RESTART(*YES) IPLSRC(B) CONFIRM(*NO)

And run that once a week? Now your shop may have some other stuff thrown
in like ENDDOMSVR, etc. But you get the gist of it.
A little trial and error should cover some of the messages commonly
received with SNDPTFORD or INSPTF.

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.