RE: Indicator overlay/rename question

Define the data type of "N", instead of blank on the PrtOverflow subfield.
Should take care of it. 


Ross Hartford
Cothern Computer Systems, Inc.
1640 Lelia Drive, Suite 200
Jackson, MS  39216

Phone:     601-718-0803
Fax:       601-969-1184
Support:   888-222-5577

email:     rossh@xxxxxxxxxxx
website:   www.ccslink.com
 
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of CarollaT@xxxxxxxxxxxxxx
Sent: Thursday, May 20, 2004 11:59 AM
To: rpg400-l@xxxxxxxxxxxx
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.