×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
Thank you very much. I changed my unit test to figure A and it removed
the message for HUEY.
So then I changed it to figure B and it removed the right message (TLACS).
Thanks again.
Figure A
START: PGM
DCL &DATA *CHAR 30 /* Message data from RCVMSG */
DCL &KEYVAR *CHAR 4 /* Message key from RCVMSG */
DCL &MSGID *CHAR 7 /* Message id from RCVMSG */
ADDLIBLE HUEY
MONMSG CPF0000
ADDLIBLE DUEY
MONMSG CPF0000
ADDLIBLE LOUIE
MONMSG CPF0000
ADDLIBLE TLACS
MONMSG CPF2103 EXEC(DO) /* Library is already in library list */
/* Remove message from cluttering joblog */
RCVMSG MSGTYPE(*NEXT) MSGKEY(*TOP) RMV(*YES) KEYVAR(&KEYVAR) +
MSGDTA(&DATA) MSGID(&MSGID)
EndDo
ENDPGM
Figure B
START: PGM
ADDLIBLE HUEY
MONMSG CPF0000
ADDLIBLE DUEY
MONMSG CPF0000
ADDLIBLE LOUIE
MONMSG CPF0000
ADDLIBLE TLACS
MONMSG CPF2103 EXEC(DO) /* Library is already in library list */
/* Remove message from cluttering joblog */
RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
WAIT(0) RMV(*YES)
EndDo
ENDPGM
Rob Berendt
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.
midrange.com
