Re: roll your own CL error message with response

[MWalter@xxxxxxxxxxxxxxx]

Richard,

I use:

SNDUSRMSG MSG('Message Text')  MSGTYPE(*INQ) TOMSGQ(*) MSGRPY(&REPLY)


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040



                    "Richard B Baird"
                    <rbaird@esourceconsu        To:     midrange-l@midrange.com
                    lting.com>                  cc:
                    Sent by:                    Subject:     roll your own CL 
error message with response
                    midrange-l-admin@mid
                    range.com


                    01/17/02 09:26 AM
                    Please respond to
                    midrange-l






Hey all,

My bag of tricks (code samples) is unavailable right now, and I'm trying to
do a "roll your own" CLP error message with response.  I know there is
something I'm missing, but I can't remember how to do it right.

in the example below, if I remove MSGTYPE() and KEYVAR() it displays the
message on the message line after CL program has ended.  I want it to break
and allow entry of response.

something like this:

 SNDPGMMSG  MSG('Errors found - Cancel or Ignore. (C/I)') +
              MSGTYPE(*RQS) KEYVAR(&RQS)
 IF (&RQS *EQ 'C') THEN(GOTO EXITPGM)


Thanks!!!

Rick

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.