Quick-out from several levels of procedure calls?

["James H H Lampert" <jamesl@xxxxxxxxxxx>]

Would anybody happen to know how to quickly ABEND out of an arbitrary
number of levels of prototyped procedure calls in an ILE RPG program,
without also taking out the calling program?

The situation here is of a recursive descent parser in ILE RPG (which
makes bound calls to a scanner in ILE C), which is, in turn, going to be
called externally from C ("#pragma linkage(MYPARSER,OS,nowiden)"). In
simple cases, I can just return from the procedure calls with an indicator
set (I routinely use *IN13 for a failure indicator ["bad luck"]), and do
the final return in the main program with a halt indicator set, and that
will give the calling C program an "error" return, but I've got a place
where that would be rather difficult to do.

I tried sending an escape message, but that also propagated to, and
crashed, the calling C program, rather than simply telling it the parser
had abended.

--
JHHL