× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.