... a reverse MONMSG.

A way of executing code if a specific message is NOT encountered.

For example:

CHKOBJ OBJ(&LIBNAM/&OBJNAME) OBJTYPE(*PGM)
MONMSG NOTMSGID(CPF9801) EXEC(<do something>)

david





Return to Archive home page | Return to MIDRANGE.COM home page