Re: User-generated errors

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