Re: Indicator overlay/rename question

["joe" <as400@xxxxxxx>]

Carolla

try

D PrtOverflow            99     99N
or
D PrtOverflow            99     99       Like(*IN99)

joe


----- Original Message -----
From: <CarollaT@xxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, May 20, 2004 11:59 AM
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.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>