|
You know, I've tried that a long time ago but was never successfull. It always seemed to me that it would try to MONMSG the ENDDO. I'll try it again. Thanks. _________________ Art Tostaine, Jr. CCA, Inc. Jackson, NJ 08527 > -----Original Message----- > From: midrange-l-admin@midrange.com > [mailto:midrange-l-admin@midrange.com]On Behalf Of Bob Crothers > Sent: Thursday, February 21, 2002 5:44 PM > To: midrange-l@midrange.com > Subject: RE: Monitor two different messages > > > 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. > > _______________________________________________ > 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.