RE: forced execution of ILE condition handler

Jack,

I tried:



callp SendEscMsg ('CPF9898':

'QCPFMSG QSYS':

FredSays:

%len(FredSays):

'*ESCAPE':

'*':

2:

Esc_MsgKey:



Without success. The registered conditional handler was not invoked.



Tried...



callp SendEscMsg ('CPF9898':

'QCPFMSG QSYS':

FredSays:

%len(FredSays):

'*ESCAPE':

'*':

1:

Esc_MsgKey:



And it fails with a CEE9901 error because it didn't get deep enough back into the stack. It also did not make it into the handler as it couldn't find it.



Steve Needles





-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jack Callahan
Sent: Wednesday, November 06, 2013 11:09 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: re: forced execution of ILE condition handler



Shouldn't you be sending the message up the program stack, rather than to *EXT?





callp SendEscMsg ('CPF9898':

'QCPFMSG QSYS':

Msg:

%len(Msg):

'*ESCAPE':

'*EXT':

2:

Esc_MsgKey:

callp SendEscMsg ('CPF9898':

'QCPFMSG QSYS':

Msg:

%len(Msg):

'*ESCAPE':



*'*': 1:*

Esc_MsgKey:

--

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<mailto: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<mailto: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