Re: Retrieving messages from the job message queue.

[Carel Teijgeler <COTeijgeler@xxxxxxxxx>]

--
Rob,

Have you tried to receive the first message with MSGTYPE(*LAST) and no
MSGKEY and then use *PRV with a MSGKEY.

I think that is the approach.

Regards,
Carel Teijgeler

>Should I dump this approach and try
>List Job Log Messages (QMHLJOBL) API
>instead?

And

>I want to count how many times that a message appears in a job log of a
>currently running job.  I am trying the following program with no luck.
>
>If I use *PRV it finds no messages.
>If I use *EXT instead of *PRV it finds some of the messages.  But not the
>ones that I am looking for.
>
>PGM (                                                                +
>       &SEARCHMSG       /* Message to count                        */ +
>       &MSGCOUNT        /* Count of messages which appeared        */ +
>     )
>
>     DCL  &APOS        *CHAR   1  /* Apostrophe                       */
>     DCL  &MSGCOUNT    *DEC    3  /* Count of message occurance       */
>     DCL  &MSGID       *CHAR   7  /* Message id from stack            */
>     DCL  &MSGKEY      *CHAR   4  /* Key of message from stack        */
>     DCL  &SEARCHMSG   *CHAR   7  /* Message to count                 */
>
>              CHGVAR     VAR(&APOS) VALUE(X'7D')
>              CHGVAR     VAR(&MSGCOUNT) VALUE(0)
>
>     /*     +
>      | Position to top of job message queue     +
>     */
>              RCVMSG     PGMQ(*PRV) MSGQ(*PGMQ) MSGTYPE(*NEXT) MSGKEY(*TOP)
>+
>                           RMV(*NO) KEYVAR(&MSGKEY) MSGID(&MSGID)
>              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(END))
>
>NEXT:
>
>              IF         (&MSGID=&SEARCHMSG) DO
>               CHGVAR &MSGCOUNT VALUE(&MSGCOUNT + 1)
>              ENDDO
>
>     /*     +
>      | Get next message     +
>     */
>              RCVMSG     PGMQ(*PRV) MSGQ(*PGMQ) MSGTYPE(*NEXT)
>MSGKEY(&MSGKEY) +
>                           RMV(*NO) KEYVAR(&MSGKEY) MSGID(&MSGID)
>              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(END))
>
>              GOTO       NEXT
>END:
>
>              ENDPGM
>
>Rob Berendt
>--
>"They that can give up essential liberty to obtain a little temporary
>safety deserve neither liberty nor safety."
>Benjamin Franklin
>_______________________________________________
>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.
>
>
>
>_______________________________________________
>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.
>
>
>
>---
>Incoming mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.351 / Virus Database: 197 - Release Date: 19-4-02
--