Re: Sending messages to user from CL

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