lifetime of a static variable

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

What is the lifetime of a a local static variable?

I wrote a little test program that included a static variable defined in a
sub procedure.  It was supposed to distinguish between the first and second
call to the procedure within the test program.  My test was static varible >
0.  Worked as expected on the first call of the program.  On the second call
of the program the variable retained its value from the first call.

Then I got interested.  I wrote a program that printed the value of a static
variable defined in a sub procedure.  The sub procedure added 1 to the value
of the static variable and returned that value.  The main program printed
the value of the variable assigned the value of the procedure--i.e. eval x =
staticvarproc, then print the value of x. 

On the first call to the main program, the output is 1, on the second call
2, and so forth. 

The program ends with last record *on and was compiled activation group
*caller.  I called it from the command line repeatedly.  It seems to me that
the lifetime of the variable is the lifetime of the activation group since
when I sign off and call the program after signing on again, the value goes
back to 1 for the first call.  

Is this the way it ought to work?  Seems like static local variables
shouldn't outlive the programs to which they are local when the program ends
with lr on.  
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---