RCVMSG question/problem.

[Larry Bolhuis <lbolhuis@xxxxxxxxxx>]

I'm trying to use RCVMSG after making changes with WRKUSRPRF to catch
the CPC2204 and CPC2205 completion messages. No matter what I do the
RCVMSG returns a blank message number (which means no message recieved).
This fails if I use *ANY or *COMP for the message type to be recieved. 
If I artificially send those messages (with SNDPGMMSG) earlier I can
retrieve these with no problem. If I use DSPJOBLOG I see the CPC2204/5
messages in the joblog but they never get recieved. Here is the snippet
of code that is failing to retrieve any messages whatever.

 MSGLOOP:    RCVMSG     MSGTYPE(*ANY) MSGDTA(&MSGDTA) MSGID(&MSGID)  
             IF         COND(&MSGID *EQ '       ') THEN(GOTO DAEND)   
                  < do stuff >
             GOTO MSGLOOP

Help!

 - Larry

-- 
Larry Bolhuis
Arbor Solutions, Inc.
(616) 451-2500
(616) 451-2571 -fax
lbolhuis@arbsol.com
+---
| 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
+---