RE: Indicators

Alan Cassidy wrote:

>Not a magic wand, but...

>If the following "tradeoff" is okay for your purposes, you can use an 
>internal subprocedure to "emulate" an automatic way to work that way.

>You could "hide" the "double negative", if the point is a more readable 
>and comprehensible source code flow.

>So rather than code:
>f PrtStatus = InValid;

>I code (and find as readable):
>If Prt#Invld;

>Define your Prt#Invld overlaying *In23.

>Then a procedure:
> <source>
>D   Prt#Valid      pi     n

>C   Return Not Prt#invald
> </source>

>This way, you could use Prt#Valid, and it will "automatically" have the 
>expected value.

>-- Alan

Thanks Alan,

Looks like a method I will try.

Tim Kredlo
Exterior Wood, 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.