Re: Receiving Messages

[Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx>]

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