RE: the word 'static'

["Stone, Brad V (TC)" <bvstone@xxxxxxxxxxxxxx>]

Indicators are static by definition.  I found this out while writing a
recursive subprocedure.  

It made coding a little more difficult.  :)

Maybe Barb or Hans can clear up why this is?

Brad

> -----Original Message-----
> From: Patrick Conner [mailto:pwconner@charter.net]
> Sent: Monday, June 04, 2001 7:57 AM
> To: RPG400-L@midrange.com
> Subject: Re: the word 'static'
> 
> 
> Jim,
> 
> Thanks for the trivia. That was interesting. However, based
> on what is below I have a question.
> The scenario is:
> I have a subprocedure that displays a screen. I have a DS
> that maps the indicator variables. $Exit maps *in03. When
> the user presses F3, $Exit = *on and I exit the
> subprocedure. When I return to the subprocedure $Exit is
> still equal to *on.
> The question is:
> Since I did not define $Exit as 'Static' why is it not
> reset?
> 
> !!! I'm assuming you mean subprocedure where subroutine is
> mentioned. !!!
> On Fri, 01 Jun 2001 15:27:58 -0700
>  Jim Langston <jimlangston@conexfreight.com> wrote:
> > Static Variable: A variable that retains it's value.
> > Once the "power" is shut
> > off from your subroutine (it returns) the variable keeps
> > it's value.  When
> > the subroutine is returned to the variable will have the
> > same value.
> > 
> > If you do not declare your variables as static, then the
> > next time the 
> > subroutine is called the variables will be
> > re-initialized.
> +---
> | 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
> +---
> 
+---
| 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
+---