Have you ever been in the situation when an IBM support employee asks you several times, "Do you have PTF SFXXXX installed?" They ask this without mentioning the product number. Well, I have. Lots of times, and exactly for that reason I've made this command: XDSPPTF. It displays PTF information like when you use the normal DSPPTF command without having to bother about the product number. It saves a lot of typing when you have someone on the other side of the line rattling about all sorts of PTFs. Command exits of a CMD source and a CL source, put in your QCLSRC and QCMDSRC file and compile them with the commands:
CRTCLPGM PGM(XDSPPTF) SRCFILE(QCLSRC)
and
CRTCMD CMD(XDSPPTF) PGM(XDSPPTF) SRCFILE(QCMDSRC)
Code
XDSPPTF *CMD:
CMD PROMPT('Display PTF')
PARM KWD(PTFID) TYPE(*CHAR) LEN(7) MIN(1) +
FULL(*YES) PROMPT('PTF number')
XDSPPTF *PGM :
PGM PARM(&PTFID) /* Display PTF */
DCL VAR(&PTFID) TYPE(*CHAR) LEN(7)
DCL VAR(&OUTVAR) TYPE(*CHAR) LEN(19)
DCL VAR(&PTFINFO) TYPE(*CHAR) LEN(50) +
VALUE('???????*ONLY ')
DCL VAR(&ERRCDE) TYPE(*CHAR) LEN(56) +
VALUE(X'00000038')
DCL VAR(&LICPGM) TYPE(*CHAR) LEN(7)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7) /* Std err */
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(100) /* Std err */
DCL VAR(&MSGF) TYPE(*CHAR) LEN(10) /* Std err */
DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10) /* Std err */
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(STDERR1))
CHGVAR VAR(%SST(&PTFINFO 1 7)) VALUE(&PTFID)
CALL PGM(QPZRTVFX) PARM(&OUTVAR X'00000013' +
&PTFINFO 'PTFR0100' &ERRCDE)
CHGVAR VAR(&LICPGM) VALUE(%SST(&OUTVAR 13 7))
CHGVAR &MSGID %SST(&ERRCDE 9 7)
IF COND(&MSGID *NE ' ') THEN(DO)
CHGVAR &MSGDTA %SST(&ERRCDE 17 39)
SNDPGMMSG MSGID(&MSGID) MSGF(QCPFMSG) MSGDTA(&MSGDTA) +
MSGTYPE(*ESCAPE)
ENDDO
ELSE CMD(DSPPTF LICPGM(&LICPGM) SELECT(&PTFID))
GOTO CMDLBL(EINDE)
STDERR1: RCVMSG MSGTYPE(*DIAG) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGFLIB)
IF (&MSGID *EQ ' ') GOTO STDERR3
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
GOTO STDERR1 /* Loop back for addl diagnostics */
STDERR3: RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGFLIB)
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
EINDE: /**/
ENDPGM ==================================
MORE INFORMATION ON THIS TOPIC
==================================
The Best Web Links: tips, tutorials and more.
Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.
