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

Yep... The long way around the barn! sometimes I wonder why IBM didn't make
things a bit easier....

Thanx Jim... I found a TAATOOL that converts the joblog to a DB file, I then
read the DB file and process the *INFO messages....

Kenneth
--
********************************
Kenneth  E.  Graap
IBM Certified Specialist
AS/400 Professional
System Administrator
NW Natural - Information Services
System Services
Phone 503 226 4211 X5537
FAX   603 849 0591
keg@nwnatural.com
********************************


-----Original Message-----
From: Jim Damato [mailto:jdamato@dollargeneral.com]
Sent: Tuesday, August 06, 2002 11:37 AM
To: 'midrange-l@midrange.com'
Subject: 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

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