Re: Quick-out from several levels of procedure calls?

Yeah...you can do that with APIs. You can select what activation group
level you want to cancel to. Check out the CEE APIs.
http://as400bks.rochester.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/ile2a1TOC.htm

On Tue, 15 Jun 2004 09:26:03 -0700 (PDT), "James H H Lampert"
<jamesl@xxxxxxxxxxx> said:
> 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
> 
> 
> 
> --
> This is the RPG programming on the AS400 / 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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx