roll your own CL error message with response

["Richard B Baird" <rbaird@xxxxxxxxxxxxxxxxxxxxx>]

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