Re: Sending messages to user from CL

[CRPence <CRPbottle@xxxxxxxxx>]

James H. H. Lampert wrote:
> I have a CL program that communicates with the user mainly via
> SNDPGMMSG and SNDUSRMSG. (User interaction is minimal, confined
> to confirmation and error messages.)
>
> I now have a situation in which I would like to send a message
> requiring no response to the "Display Program Messages" screen,
> immediately (i.e., without waiting) before sending one that does
> require a response.
>
> In other words, when the "Display Program Messages" screen pops
> up, it should show both the first, informational message, and the
> second, inquiry message, e.g.,
>
> FOO is in state BAR. Are you sure you wish to perform the BAZ
> operation on FOO? (Y N)
>
> I know that sort of thing is easy enough to do with DSPLY
> statements in RPG, but at least in the permutations of SNDUSRMSG
> and SNDPGMMSG I've tried so far from CL, it always either waits,
> or doesn't send the message.

  One method to accomplish the effective result, would be to embed 
the first message as part of the inquiry message; e.g. similar to 
how the generic inquiry unmonitored exception handlers for the 
languages are coded.  Use RTVMSG instead of SNDPGMMSG for the first 
message, and then send whatever relevant data string(s) [generated 
by the RTVMSG; e.g. first level text] as replacement variables for 
the inquiry message.  Review DSPMSGD CPA0701 as an example.  In the 
given example perhaps what is meant would be handled by:

  MSG('&1  Are you sure you wish to perform &3 on &4? (Y N)')

Regards, Chuck