Re: RCVMSG MSGTYPE(*EXCP) RMV(*YES) - not finding messages...

For one thing, you have to increment &MSGKEY in order to get all the messages. When you do your RCVMSG, MONMSG CPF2410 to take care of a message key not found - do a RMVMSG of the CPF2410.

Add another SNDPGMMSG after your call, to get an &ENDKEY. Then make your loop end when your &MSGKEY is *GE *ENDKEY.

If you added the increment, then this could remove ALL messages generated during the called program - you probably want to be selective - RCVMSG MSGID(&MSGID) is needed, then.

IBM has a great document on this - http://tinyurl.com/cbe4nth will get you there. Examples in CL and in ILE/C - the latter can easily be adapted to RPG, of course, but not needed here.

HTH
Vern*
*
On 6/11/2012 1:05 PM, Gqcy wrote:

I have a RPGLE that generates LOTS of RNX0114 messages.

when the program is done, I want to remove those messages from the jobs
message queue.

However, I can't figure out how to get to those messages. I think I need
some different setting for PGMQ:

SNDPGMMSG MSG('/* Start of Notes Program. */') +
KEYVAR(&STARTKEY)

CALL NOTESPGM11

CHGVAR VAR(%BIN(&MSGKEY 1 4)) VALUE(%BIN(&STARTKEY
1 4))
toploop:
RCVMSG PGMQ(*PRV) MSGTYPE(*EXCP) MSGKEY(&MSGKEY) +
RMV(*YES)
MONMSG MSGID(CPF2415) EXEC(GOTO BOTTOM)
GOTO toploop
BOTTOM:
ENDPGM