Re: avoid running ILE programs in the DAG...

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Scott,

I don't think Mark is hung up, just asking for clarification....as am I.

You said, "reclaiming TRYAG1" I was thinking that was a typo and you
meant "reclaiming TRGAG2"

ie. you could code TRYAG1 like so:

      *> CRTRPGMOD TRYAG1 SRCFILE(QRPGLESRC) DBGVIEW(*LIST)
      *> CRTPGM TRYAG1 BNDSRVPGM(TRYAG2) ACTGRP(TRYAG1)
     D tryag2          pr
      /free
         monitor;
            tryag2();
         on-error;
            //TRYAG2 activation group destroyed need to reclaim
            system('rclactgrp TRYAG2');
         endmon;

         //now this doesn't fail
         tryag2();
         *inlr = *on;
      /end-free

But a quick test show that it doesn't work....

Another quick test shows confirm my recollection that you can't
reclaim the activation group you are in...

So you'd have to have
TRYAG0
  TRYAG1
     TRYAG2

If TRYAG2 blew up, TRYAG0 would have to know to do the reclaim of TRYAG1.

Charles

On Thu, Oct 7, 2010 at 2:35 PM, Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> wrote:
> Mark, I suggested several possibilities.  You seem to be hung up on just
> one of them...   if that's the case, try a different one.
>
> There may be apps where it makes sense to reclaim the calling activation
> group.  If yours isn't one of them, just use a different solution.
>
>
> On 10/7/2010 12:53 PM, Mark Murphy/STAR BASE Consulting Inc. wrote:
> > <snip>
> > You could solve the problem by reclaiming the TRYAG1 activation group
> > (this'll cause the pointer to be reset), or by handling the procedure
> > pointer logic manually in your program.
> > </snip>
> >
> > And just how do you do that between the calls to TRYAG2?  TRYAG1 must stay active the whole time.
>
> --
> This is the RPG programming on the IBM i / System i (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.