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