RE: forced execution of ILE condition handler -- RPG400-L

I tried *NOTIFY as well because I found this info in IBM's 7.1 website:

NOTIFY Message Results

Receiving Call Stack Entry

Sending Call Stack Entry

Default Reply

Action Taken after Notify Message Is Sent

Monitor defined with external handler

Does not end

Not sent

External handler is called

Monitor defined and no external handler

Ends

Not sent

Control is returned to receiving call stack entry

No monitor defined

Does not end

Sent

Control is returned to sending call

But the condition handler didn't grab it for this example either:

callp SendEscMsg ('CPF9898':

'QCPFMSG QSYS':

FredSays:

%len(FredSays):

'*NOTIFY':

'*':

2:

Esc_MsgKey:

Steve Needles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Needles,Stephen J
Sent: Wednesday, November 06, 2013 12:22 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: 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> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jack Callahan

Sent: Wednesday, November 06, 2013 11:09 AM

To: rpg400-l@xxxxxxxxxxxx<mailto: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<mailto:RPG400-L@xxxxxxxxxxxx%3cmailto: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<mailto:RPG400-L-request@xxxxxxxxxxxx%3cmailto: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

--

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.