RE: Send Message Reply (SNDRPY)

[Bob Crothers <bob@xxxxxxxxxxxxxx>]

The following works for me:

DCL        VAR(&KEYVAR) TYPE(*CHAR) LEN(4)
DCL        VAR(&MSG) TYPE(*CHAR) LEN(128)
DCL        VAR(&MSGTYPE) TYPE(*CHAR) LEN(2)

RCVMSG     MSGQ(FRED) MSGTYPE(*INQ) WAIT(*MAX) RMV(*NO) +
             KEYVAR(&keyvar) MSG(&MSG)

SNDPGMMSG  MSG('Got msg: ' *CAT &MSG)

SNDRPY     MSGKEY(&KEYVAR) MSGQ(FRED) RPY('Some Reply') +
             RMV(*NO)



It hangs waiting for an inquiry message in message queue FRED.  When 
the message arrives, it responds with "Some Reply".

I do a SNDMSG MSG(ASDF) TOMSGQ(FRED) MSGTYPE(*INQ)

and get back in the msgq:

From  . . . :   BOBC           08/10/99   14:18:19
   ASDF
     Reply . . :   Some Reply

Am I missing something?

-----Original Message-----
From:   MCPARTLAND, Stan [SMTP:stanley.mcpartland@bently.com]
Sent:   Tuesday, August 10, 1999 10:48 AM
To:     'MIDRANGE-L@midrange.com'
Subject:        RE: Send Message Reply (SNDRPY)

I am trying to reply to or remove a message on a non-program message 
queue.
Unfortunately, I have come to the conclusion that the message key 
(KEYVAR)
processing only works when the message queue is the program message 
queue.
The message key returned on the SNDPGMMSG command is the key of the 
sender's
copy of the message which is in the program message queue.  If you do 
a
RCVMSG on a message in a non-program message queue, the KEYVAR 
returned is
blank.  The SNDRPY command requires a message key and a non-program 
message
queue.  Based on my tests with SNDPGMMSG, RCVMSG and SNDRPY, the 
SNDRPY
command cannot work.

Regards,
Stan


-----Original Message-----
From: Bob Crothers [mailto:bob@cstoneindy.com]
Sent: Tuesday, 10 August, 1999 5:24 AM
To: 'MIDRANGE-L@midrange.com'
Subject: RE: Send Message Reply (SNDRPY)


I must confess.  I have not been following this thread so don't really 
know what it is about.  Perhaps before I hit the reply button, I
should have found out what you where trying to do.

Humbly,
Bob

-----Original Message-----
From:   Brendan Bispham [SMTP:midrangel@black-and-blue.com]
Sent:   Monday, August 09, 1999 4:21 PM
To:     MIDRANGE-L@midrange.com
Subject:        RE: Send Message Reply (SNDRPY)

You would have thought so - does that work on your system? On mine and
apparently on Stan's it doesnt work - or are we both overlooking
something
obvious?

Brendan Bispham
~ On the SNDPGMMSG command, there is a parm KEYVAR...specify this and
~ you will get the Message Key when you do the send...no need to do
any
~ RcvMsg.
~
~ Bob


+---
| 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@midr
ange.com.
| Questions should be directed to the list owner/operator:
david@midrange.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
+---
+---
| 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
+---

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