RE: end-of-msgq

["Condon, Mike" <M1C@xxxxxxxxxxxxxxxxx>]

RCVMSG     MSGQ(QSYS/QSYSOPR) MSGTYPE(*INQ) +
WAIT(0) RMV(*NO) +
MSG(&MSGIN) MSGID(&MSGID) RTNTYPE(&RTNTYPE)   

IF         COND(&RTNTYPE = '05') THEN(DO) 
>> This is the test for a job needing a reply to MSGW.

-----Original Message-----
From: Gary Monnier [mailto:gary.monnier@xxxxxxxxxxxxx] 
Sent: Friday, August 06, 2004 5:31 PM
To: Midrange Systems Technical Discussion
Subject: RE: end-of-msgq


Mike,

How are you currently retreiving messages from the queue?

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Condon, Mike
Sent: Friday, August 06, 2004 9:04 AM
To: 'Midrange Systems Technical Discussion'
Subject: end-of-msgq


What condition can I test for to indicate an end-of-msgq in a CL program? 
And additionally, what tells if a message has been replied to already? I am
changing our scheduled IPL to test for an unreplied MSGW job. 
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
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@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.