Re: Receiving Messages

[Alan Campin <alan0307d@xxxxxxxxx>]

Tried that. Did not work.

On Tue, Aug 18, 2009 at 3:09 PM, Wayne McAlpine <
wayne.mcalpine@xxxxxxxxxxxxxxxxx> wrote:

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