Re: User-generated errors

[Alan Campin <alan0307d@xxxxxxxxx>]

If you go to www.think400.dk/downloads.htm you will find a utility the
dynamically loads service program. If you download that software you will
find a utility called XVERRH.

This is my standard error handler. It manages all this for you and logs the
messages for retrieval higher up. I wrote it twenty years ago and continue
to use it to this day.

XVERRH - Top Level
XVERRH_B - Bindery
XVERRH_M01 - Throw functions
XVERRH_M02 - Message functions
XVERRH_M03 - ILE Error functions.

XVERRH_Throw - Throw error
XVERRH_Rethrow - Rethrow error from previous level
XVERRH_AddMessage - Add message to list
XVERRH_GetMessageCount - Get Message count
XVERRH_GetLastMessage - Get Last Message
XVERRH_GetMessage - Get a given message.
XVERRH_FreeAllMessages - Free All Messages
XVERRH_BuildConditionToken- Build ILE condition token.



On Thu, Dec 15, 2016 at 8:36 AM, Justin Taylor <JUSTIN@xxxxxxxxxxxxx> wrote:

> I'd like to generate my own errors that can be trapped by MONITOR.  If the
> procedure doesn't have a MONITOR, then it would be trapped by a MONITOR in
> the calling procedure.  I tried to do this using QMHSNDPM, but it's not
> working right.
>
> Procedure1 => Procedure2 => ErrorProcedure
>
> I expected the MONITOR block in Procedure2 to catch the error, but it's
> actually the MONITOR in Procedure1 that's catching it.
>
> Here's my API call:
>        qMhSndPm(msgID
>                :'QCPFMSG   *LIBL     '
>                :msg :%len( %trim(msg) )
>                :'*ESCAPE'
>                :'*'
>                :2
>                :MsgKey
>                :QUSEC);
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD