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