RE: RPG400-L Digest, Vol 3, Issue 353

["Reggie Acosta" <racosta@xxxxxxxxxxxxxxx>]

Try "typing" PrtOverflow as an indicator.

      D                 DS                  Based(IndicatorPtr)
      D PrtOverflow            99     99N

HTH

> 
> message: 11
> date: Thu, 20 May 2004 09:59:27 -0700
> from: CarollaT@xxxxxxxxxxxxxx
> subject: Indicator overlay/rename question
> 
> I have started using the following method for renaming any 
> indicators I use (which are VERY few).  
> 
>      D IndicatorPtr    S               *   Inz(%Addr(*In))
>      D                 DS                  Based(IndicatorPtr)
>      D PrtOverflow            99     99
> 
> As you probably already know, this allows me to use the 
> PrtOverflow in my code instead of the vague *In99.  
> Beautiful.  But now, in my calc specs, in testing the 
> indicator for 'on'-ness, I can't do the following:
> 
>    If PrtOverflow;
>       Write Header;
>       PrtOverflow=*Off;  
>    EndIf;
> 
> This works if I use *In99 instead of PrtOverflow.  The first 
> line of that statement brings up the following error:
> 
> *RNF7423 30  000133  A relational expression or indicator is 
> expected for logical operations
> 
> I have to change the first line to 
> 
>    If PrtOverflow=*On;
> 
> I have been told by a good friend of mine that the statement 
> is basically asking, 'If it's true that it's true'.  Is there 
> a way I can change the technique to allow the first 'if' statement?  
> 
> Tony Carolla
> MedAmerica Billing Services, Inc.
> 
> 
> ------------------------------