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

["Marvin Radding" <MRadding@xxxxxxxxxxxx>]

Tony,

The problem is that you haven't specifically define PrOverflow.  If you
set it to be N then the if statement will work.  I could be mistaken,
but when you don't put a type in the type field, it assumes character,
which is why the if statement wouldn't work.

I also use this technique but with a slightly different approach.

D  NameInd   DS    Based(%addr(*in))
D  PrtOverFlow               n     overlay(nameind:99)

It looks more modern.  Just a thought.

Marvin

----------------------


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.


------------------------------