RE: Issue with SNDUSRMSG not breaking for response.

I used SNDPGMMSG in a CL before.  Give this a try.

This program checks the length of the reply first.  If it's greater than 1,
the program will resend the message for a correct reply.

DCL &KEY       *CHAR 4  '    '
DCL &REPLY_LEN *DEC (5 0)

SNDPGMMSG MSG(&DEV *BCAT 'does not appear to be ready. +
              Please make sure there is a tape in the +
              drive. (R=RETRY C=CANCEL)') +
          TOMSGQ(*SYSOPR) MSGTYPE(*INQ) +
          RPYMSGQ(*PGMQ) KEYVAR(&KEY)
RCVMSG PGMQ(*SAME) MSGTYPE(*RPY) MSGKEY(&KEY) +
       WAIT(*MAX) RMV(*NO) MSG(&REPLY) MSGLEN(&REPLY_LEN)

IF (&REPLY_LEN *GT 1) GOTO RESEND2
IF (&REPLY *NE 'R' *AND &REPLY *NE 'C' *AND +
    &REPLY *NE 'r' *AND &REPLY *NE 'c') GOTO RESEND2
IF (&REPLY *EQ 'R' *OR &REPLY *EQ 'r') GOTO RETRY
CHGVAR &CANCEL 'Y'
RETURN

Michael Schutte
Work 614-492-7419
email  michael_schutte@xxxxxxxxxxxx


                                                                           
             "Imtiaz Ahmed"                                                
             <iahmed@dollargen                                             
             eral.com>                                                  To 
             Sent by:                  "Midrange Systems Technical         
             midrange-l-bounce         Discussion"                         
             s@xxxxxxxxxxxx            <midrange-l@xxxxxxxxxxxx>           
                                                                        cc 
                                                                           
             03/23/2006 12:37                                      Subject 
             PM                        RE: Issue with SNDUSRMSG not        
                                       breaking for response.              
                                                                           
             Please respond to                                             
             Midrange Systems                                              
                 Technical                                                 
                Discussion                                                 
             <midrange-l@midra                                             
                 nge.com>                                                  
                                                                           
                                                                           




Thanks for your response. I tried and still have the same results.
Please can someone use my code and do a quick run. Maybe my default
settings need to be changes.

Thanks again for your help.



Imtiaz M.Ahmed
Senior Programmer Analyst
Dollar General Corporation
100 Mission Ridge
Goodlettsville, TN 37072
615.855.4358
iahmed@xxxxxxxxxxxxxxxxx

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark Walter
Sent: Thursday, March 23, 2006 11:12 AM
To: Midrange Systems Technical Discussion
Subject: 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.


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