Chuck...I did try to send the error message to itself. I've tried many of the combinations hoping to trigger the event that causes the condition handler to be invoked to no avail.
Using the '*ESCAPE' and '*' combo, the job will cancel, but the condition handler is not invoked.
Steve Needles
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Wednesday, November 06, 2013 1:24 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: forced execution of ILE condition handler
On 06-Nov 08:18 -0800, Needles,Stephen J wrote:
I'm trying to force an error that will flow through the registered ILE
Condition Handler (CEEHDLR).
I've a Condition Handler that we wrote in-house to perform actions to
support error diagnosis and communicate errors that occur in our
application.
It responds well to CPF msgs and the like, but it ignores SQL errors.
I would like to cause the registered Condition Handler to be invoked
at will.
The SQL operates by return-code, SQLCODE and SQLSTATE, not escape messaging to diagnose a failure. A condition handler is not directly useful to deal with return-code based invocations; i.e. the code should instead review the return-code, to decide how to react.
I've tried using the QMHSNDPM API to send an escape message expecting
this to trigger the Condition Handler with no success.
The external message queue does not support having "escape or command messages" being sent to that message queue, and that is what the snipped code snippet seems to do, so I suppose the return code in the QMHSNDPM API should be reviewed.
If the use of that Send Program Message API is within the program that should be interrupted for the condition, try using '*' to send the error to itself, instead of '*EXT'.
<<SNIP>>
--
Regards, Chuck
--
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.
________________________________
This communication, including attachments, is confidential, may be subject to legal privileges, and is intended for the sole use of the addressee. Any use, duplication, disclosure or dissemination of this communication, other than by the addressee, is prohibited. If you have received this communication in error, please notify the sender immediately and delete or destroy this communication and all copies.
TRVDiscDefault::1201
midrange.com
