Re: Receiving Messages

Alan, I believe you want PGMQ(*SAME). The message is not going to the
*EXT queue.

Alan Campin wrote:

I have a message that is sent each time that a JDBC connection is made.



Message ID . . . . . . : CPC2196 Severity . . . . . . . :
00
Message type . . . . . :
Completion
Date sent . . . . . . : 08/18/09 Time sent . . . . . . :
14:31:07


Message . . . . : Library G3DEV added to library
list.
Cause . . . . . : If the ADDLIBLE command was used, G3DEV was added to
the
user library list. If the CHGSYSLIBL command was used, G3DEV was

added

to
the system portion of the library
list.

In a CL program, I want to receive this message.

I set up a loop and do a RCVMSG but I don't ever see the message. I have
tried all kind of combinations on the RCVMSG but none do the trick. It

has

been awhile since I fooled with this stuff.

Anybody got an idea how to see that message?

DOUNTIL COND(0 = 1)
RCVMSG PGMQ(*EXT) MSGTYPE(*COMP) RMV(*NO) +
MSGDTA(&MSGDTA) MSGID(&MSGID)
MONMSG MSGID(CPF0000) EXEC(LEAVE)
IF COND(&MSGID *EQ ' ') THEN(LEAVE)
IF COND(&MSGID *EQ 'CPC2196') THEN(DO)
CHGVAR VAR(&LIBNAME) VALUE(%SST(&MSGDTA 1 10))
LEAVE
ENDDO
ENDDO

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.