RE: Issue with SNDUSRMSG not breaking for response.

Your sending it to TOUSR(*SYSOPR), Try TOMSGQ(*SYSOPR)
 


Mark Walter
Senior Programmer/Analyst
IBM Certified RPG Developer
Hainey Business Systems
(717) 771-2362
mwalter@xxxxxxxxxxx
http://www.hbs-inc.com
 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Imtiaz Ahmed
Sent: Thursday, March 23, 2006 11:50 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Issue with SNDUSRMSG not breaking for response.

Can any one please let me know what I am missing here? I am using a
simple CL program to send an inquiry message to QSYSOPR message queue.
It sends the message but does not wait for a response. I ran the program
in Debug and the &REPLY value returned is *N. I also tried with a MSGID
CPF9898 but still the same results. I did check the message queue
setting for QSYSOPR and the delivery option is set for *BREAK. Any help
in this regards is most appreciated.

> 

>             PGM        PARM(&MSG)


> 

>             DCL        VAR(&RPLY) TYPE(*CHAR) LEN(1)


> 

>             DCL        VAR(&MSG)  TYPE(*CHAR) LEN(99)


> 

>


> 

>             SNDUSRMSG  MSG(&MSG) VALUES(Y) MSGTYPE(*INQ) +


> 

>                          TOUSR(*SYSOPR) MSGRPY(&RPLY)


> 

>


> 

>             ENDPGM


> 

 

Imtiaz M.Ahmed

Senior Programmer Analyst

Dollar General Corporation

100 Mission Ridge

Goodlettsville, TN 37072

615.855.4358

iahmed@xxxxxxxxxxxxxxxxx

 

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