Re: FREE Op Code?

[Barbara Morris <bmorris@xxxxxxxxxx>]

rob=tksaTn4SAz0AvxtiuMwx3w@public.gmane.org wrote:
>
> What happens in RPGLE?  Does it always re-resolve the call?
>

RPGLE behaves the same as RPG with respect to variables.  With a
variable, the call is re-resolved whenever the variable changes.  If I
recall correctly, literals are slightly different - I think RPG/400 does
the resolve when the program with the CALL statement is first called
(during static initialization) while ILE RPG does the resolve at runtime
when the call statement is run.

To accomplish the re-resolve part of FREE, you would code something like
this.  (I'll add this to the FAQ.)

First, create a fast-running do-nothing program called something like
FREEDUMMY.  A 1-line ILE RPG program with just a RETURN works ok.

Then change this code:

c          call  'PGM1'
c          parms
...
c          free  'PGM1'
...
c          call  'PGM1'
c          parms

To this code:

D pgm1Var    s          21A  INZ('PGM1')
c          call  pgm1Var
c          parms
...
 * FREE PGM1
c          eval  pgm1Var = 'FREEDUMMY'
c          call  pgm1Var
c          eval  pgm1Var = 'PGM1'
...
c          call  pgm1Var
c          parms