|
You can just have them one after the other: CPYFRMSTMF MONMSG CPFA095 EXEC(DO) /* Do Something ENDDO MOMMSG CPFxyzeq EXEC(DO) /* Do something else ENDDO MONMSG CPF0000 EXEC(DO) /* Do something when all else fails ENDDO Bob -----Original Message----- From: midrange-l-admin@midrange.com [mailto:midrange-l-admin@midrange.com]On Behalf Of Art Tostaine, Jr. Sent: Thursday, February 21, 2002 4:56 PM To: midrange-l@midrange.com Subject: Monitor two different messages I have this CL code: CPYFRMSTMF FROMSTMF(&STMF) + TOMBR('qsys.lib/qtemp.lib/file.file/file.mb+ r') MBROPT(*REPLACE) MONMSG MSGID(CPFA095) EXEC(DO) SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) + MSGDTA('Filename' *BCAT &STMF *TCAT ' not + found') MSGTYPE(*ESCAPE) GOTO CMDLBL(ENDPROGRAM) ENDDO I also want to monitor for CPF2817, which is file in use (the tombr). Do I have to put both messages on the one MONMSG and then figure out the msg id? _________________ Art Tostaine, Jr. CCA, Inc. Jackson, NJ 08527 _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l or email: MIDRANGE-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.