Re: Simple message handling

[Mark Adkins <adkinsm@xxxxxxxxxx>]

Thanks Scott!

I was actually very close.  When I sent in the question, what I really 
wanted to know was, "How the heck do I get QMHSNDPM to prompt QSYSOPR?".

Regards,

Mark

> ----- Message from Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> on Fri,
> 15 Oct 2004 18:44:28 -0500 (CDT) -----
> To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> Subject: Re: Simple message handling
> 
> Hi Mark
> 
> 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