Re: Simple message handling

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Mark

> I want to catch an error with a monitor block, issue a rollback, and send
> a standard inquiry message to the user where I will handle the reply.  I
> have the message handling API PDF and can't seem to put it all together.
>
> Anyone know how to do this?

Monitor;
  Do Whatever
On-Error;
  Use QMHRCVPM to get the error message.
  Do the rollback or whatever else
  Use QMHSNDM to send an inquiry message.  Tell it to send the
      response to your program queue (*PGMQ)
  Use QMHRCVPM to wait for & read the response from the program queue.
EndMon;

For an example of the inquiry message & wait for response, take a look at
the article entitled "AN RPG EQUIVALENT OF SNDUSRMSG" in the following
issue of my newsletter:
http://www.iseriesnetwork.com/resources/clubtech/index.cfm?fuseaction=ShowNewsletterIssue&ID=19032

(That link does require a membership to the iSeries Network, but a free
"associate" membership will work.)

Good Luck