× 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.



Hi, Rob:

When I want to remove an exception message from the job log, I do it this way ...

RCVMSG PGMQ(*SAME (*)) MSGTYPE(*EXCP) MSGKEY(*NONE) +
WAIT(0) RMV(*YES)
Cheers,

Mark S. Waterbury

> rob@xxxxxxxxx wrote:
I do not like to see unnecessary escape messages in my joblog. If I monitor for them then I like to remove them. This way, when I scan the joblog for Escape, I only see the ones of import.

So, instead of
ADDLIBLE ...
MONMSG CPF0000

I will do something like the following instead:
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 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
This little test program works fine. If I run it repeatedly I will see:
call a01
116 - ADDLIBLE LIB(TLACS) 135 - RCVMSG MSGTYPE(*NEXT) MSGKEY(*TOP) RMV(*YES) KEYVAR(&KEYVAR)
MSGDTA(&DATA) MSGID(&MSGID) - RETURN /* RETURN due to end of CL program */
and no escape message.

However, I have this logic buried in another program and I am still seeing the escape message.

Message . . . . : 3100 - ADDLIBLE LIB(TLACS)
CPF2103-Library TLACS already exists in library list.
Message . . . . : 3400 - RCVMSG MSGTYPE(*NEXT) MSGKEY(*TOP) RMV(*YES)
KEYVAR(&KEYVAR) MSGDTA(&DATA) MSGID(&MSGID)
Other program's logic looks like:
...

/* +
| Start up BC400 +
*/
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
TLACS/STRBC400
...

Rob Berendt

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.