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

[michaelr_41@xxxxxxxxxxxxxx]

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