RE: Eval with two equals?

[JFeador@xxxxxxxxx]

I always use this for setting the Subfile Display Indicator...
*In50 = RRN1 > *Zero

which would be equal to

If  RRN1 > *Zero;
Eval *In50 = *On;
Else; 
Clear *In50;
EndIf;

5 lines of code scrunched into 1...

A nice feature that it also sets the indicator *Off if the evaluation is 
not true (should it be previously *On)

This has been available for a while, but I'm not sure of exactly when 
either...

/Captain Jerry/

Jerry L. Feador
Senior Programmer / Analyst
(HISNA) Hyundai Information 
              Services, North America
(949) 595-5810





"Bruce Guetzkow" <bruceg@xxxxxxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
04/05/2005 02:18 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Eval with two equals?






Jeff:

<snip>
I just encountered a line of code I have never seen before and can't
figure out exactly what it is doing.

C                   EVAL      *INU1 = DETSTY = '1'
</snip>

What you are seeing is a Boolean expression.  The line of code is not
setting both values to '1' (*ON).  It is only setting the indicator
*INU1 to *ON if the statement DETSTY = '1' is true.  An equivalent but
slightly clearer statement would be:

C                   EVAL      *INU1 = (DETSTY = '1')

I'm not sure when this became valid in RPGLE, but would guess at least
V5.  I like to use it when processing SQL statements during a
fetch-loop:
                 eof-this-file = (sqlstt <> *zeros);

The field eof-this-file is defined as an indicator (type N) and is
turned *ON when field sqlstt is some value other than zeros.

Hope this helps,
--Bruce Guetzkow


-- 
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.