That was it!
Setting the Call stack counter to zero did the trick.
Final call string to QMHSNDPM API:
callp SendEscMsg ('CPF9898':
'QCPFMSG QSYS':
FredSays:
%len(FredSays):
'*ESCAPE':
'*':
0:
Esc_MsgKey:
Thanks Chuck!
Steve Needles
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Wednesday, November 06, 2013 3:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: forced execution of ILE condition handler
To send a program message /to itself/ the procedure or program would use in conjunction:
- _Call stack entry_ of '*' to indicate the "The current call stack entry (that is, the one in which the program or procedure is using this API is running)."
- _Call stack counter_ of zero to effect sending the message "to the message queue of the entry specified by the Call stack entry parameter."
The prior messages in this thread seem to show an integer value of one or two, instead of zero, for the /counter/ value; what I would have called the /relative/ stack entry, had I documented that Send Program Message (QMHSNDPM) API:
http://pic.dhe.ibm.com/infocenter/iseries/v7r1m0/topic/apis/QMHSNDPM.htm
Regards, Chuck
On 06-Nov 11:42 -0800, Needles,Stephen J wrote:
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.
--
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
