Re: Eval with two equals?

Hey, I learned something new.   I like it...   Can't wait until I get a
chance to use it....

Thanks

Eurrat Saylor, Jr.

----- Original Message -----
From: <JFeador@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, April 05, 2005 5:35 PM
Subject: RE: Eval with two equals?


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