Re: RVCMSG not working for diagnostic messages.

[Rob Berendt <rob@xxxxxxxxx>]

>>I have wrote a program that I am hoping will determine who has locked a
file and what corrective action we wish to take in the future.  I am having
some problems receiving diagnostic messages.
>>

You replied:
>Receive from message queue *EXT.

I changed to:
...
            RCVMSG     PGMQ(*EXT) MSGQ(*PGMQ) MSGTYPE(*NEXT) +     
                         MSGKEY(*TOP) RMV(*NO) KEYVAR(&KEYVAR) +   
                         MSGDTA(&DATA) MSGID(&MSGID) /* Start at + 
                         top */                                    
            IF         COND(&MSGID ¬= 'CPF3741')            +      
                       THEN(GOTO CMDLBL(NEXT))                     
            GOTO       CMDLBL(DETAILS)                             
NEXT:                                                              
            RCVMSG     PGMQ(*EXT) MSGQ(*PGMQ) MSGTYPE(*NEXT) +     
                         MSGKEY(&KEYVAR) RMV(*NO) KEYVAR(&KEYVAR) +
                         MSGDTA(&DATA) MSGID(&MSGID)               
            MONMSG     MSGID(CPF2410) EXEC(GOTO CMDLBL(JOBDONE)) + 
                      /* No more messages. */                      
            IF         COND(&MSGID ¬= 'CPF3741')           +       
                       THEN(GOTO CMDLBL(NEXT))                     
DETAILS:
...
Now the only messages I receive are:
CPF1124:  Job 855930/ROB/ROBS4 started on 06/05/98 at 08:16:10 in subsystem 
QINTER
  in QSYS. Job entered system on 06/05/98 at 08:16:10.
CPF2451:  Message queue ROB is allocated to another job.                        
  

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---