Re: AG/Run Unit Problem

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Jon,

My results on VRM440 using named activation group FRED for both programs.

 7 > call shcutils/ag1a
     AG1A Count = 001
 7 > call shcutils/ag1a
     AG1A Count = 002
 7 > dspjoblog
 7 > call shcutils/ag1b
     AG1B Count = 001
 7 > dspjoblog
 7 > call shcutils/ag1b
     AG1B Count = 002
     AG1B Fall through Exit program

The activation group was still present until the second call to AG1B when
the implict STOP RUN destroyed it.

As you say, very peculiar.  It appears that the RUN-UNIT is ended when
AG1B returns the first time (even though the activation group remains
active) thus the second call to AG1B is an INITIAL program and therefore
EXIT PROGRAM is illegal and thus ignored causing an implicit STOP RUN.

I created a new program called AG1C (imaginative, eh) which is like AG1B
except the Exit Program statement became Exit Program and continue run
unit.  In this case it did not fall though to the implicit STOP RUN on the
second call which is exactly as I would expect it to behave.

Regards,
Simon Coulter.

--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists
   http://www.flybynight.com.au/

   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------