RE: end-of-msgq

Mike,

For end of message queue you can simply check for a blank message key
returned.  To determine if an inquiry message has been responded to
you'll need to use a combination of the Receive Nonprogram Message
(QMHRCVM), List Nonprogram Messages (QMHLSTM) and Send Reply Message
(QMHSNDRM) apis.  Use QMHRCVM to receive the inquiry message, QMHLSTM to
determine the inquiry message's status and QMHSNDRM to respond to it if
need be.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Condon, Mike
Sent: Sunday, August 08, 2004 7:17 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: end-of-msgq


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.
--
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.