RE: Receiving *INFO message from an active job....

Not sure if this is what you're looking for.  This is an excerpt from a
program, compiled as USRPRF(*OWNER), to let mere programmers view job logs
for active user jobs.  The RCVMSG loop captures the messages from the DSPJOB
command.

Are you specifying anything for MSGTYPE in the RCVMSG command, and, if not,
is the default *ANY?

-Jim


           DCL        VAR(&NUMBER) TYPE(*CHAR) LEN(6)
           DCL        VAR(&USER) TYPE(*CHAR) LEN(10)
           DCL        VAR(&JOBNAME) TYPE(*CHAR) LEN(10)

   /*  For reprocessing messages.                                  */

           DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)
           DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(500)
           DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)
           DCL        VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)

..........................

            DSPJOB     JOB(&NUMBER/&USER/&JOBNAME) OPTION(*JOBLOG)
            MONMSG     MSGID(CPF1069 CPF1070)
RCVMSG:     RCVMSG     MSGDTA(&MSGDTA) MSGID(&MSGID) MSGF(&MSGF) +
                         MSGFLIB(&MSGFLIB)
            IF         COND(&MSGID *EQ '       ') THEN(GOTO +
                         CMDLBL(NOMSG))
            SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
                         MSGDTA(&MSGDTA)
            GOTO       CMDLBL(RCVMSG)




-----Original Message-----
From: Graap, Ken [mailto:keg@nwnatural.com]
Sent: Tuesday, August 06, 2002 1:24 PM
To: 'Midrange'
Subject: Receiving *INFO message from an active job....


I think I use to know how to do this but I just can't seem to remember....
Boy is it tough getting old! <smile>

I have a program that executes a third party software package command.

The command returns messages indicating problems with the execution of the
command, but the messages sent to the joblog are *INFO messages instead of
*DIAG or *ESC...

I want to use the RCVMSG command to retrieve these *INFO messages, but no
matter what I do, I only seem to be able to retrieve a monitored for *Escape
message from further back in the joblog message queue. The RCVMSG command
seems to completely ignore the *INFO messages.

Could anyone provide me with a simple "snippet" of code showing how I can
retrieve an *INFO message from the current jobs joblog?

Kenneth