RE: Activation groups for beginners

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

Nelson Smith wrote:

>What I don't quite understand is what
>bad things is it doing when the joblog
>shows that no activation groups were
>in fact reclaimed.

Remember that activating a program happens once per AG, whilst running it
can happen many times.  Let me guess and see if this is your situation:

OPM CL
  CALL RPGLE *CALLER
    CALLP xxx *SRVPGM AG(QILE)
      return
    seton LR
  RCLACTGRP *ELIGIBLE

When the OPM CL calls the RPGLE the first time in this job (8.00AM), it gets
activated in the *DAG because of *CALLER.  During it's activation, it also
activates the service program.  The service program goes in AG(QILE).  The
RPGLE does his thing, calling procedures in the service program until it's
all done.  It sets on LR and returns to the CL program.

At this point, we have two AGs in use: *DAG and QILE.  No programs are using
resources in QILE so it's eligible to be reclaimed.

The CL does his RCLACTGRP and destroys QILE.  The CL program terminates.  So
far, so good.  Time passes (it's not 15.00PM) and the CL program gets called
again.  The RPGLE does NOT get activated again because it was already
activated for the *DAG.  That means the destroyed service program also does
not get activated.  When the RPGLE tries to callp a procedure in the
non-existent service program, BOOM.

It runs once but falls over later.  In the second execution, the RCLACTGRP
won't reclaim anything, because nothing activated QILE.  So, the pass at
8.00 runs and the job log should show 1 group reclaimed.  The pass at 15.00
will issue the MCH3402, but can't reclaim anything.

Does this match your scenario?
  --buck