RE: Eval with two equals?

Thanks! That is what I suspected it was doing but just didn't know for
sure.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Joel Fritz
Sent: Tuesday, April 05, 2005 3:56 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Eval with two equals?


It would have been clearer with parens. This is why some languages have
an assignment operator and an equality comparison operator e.g. "=" and
"==". It's easy to mistake this for multiple assignment, but it's not.
An equivalent way would be:

if detsty = '1';
   *inu1 = *on;
endif;

All comparisons evaluate to *on or *off ('1' or '0').  You can assign
the value returned by a comparison to another variable. 


> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jeff L. Love
> Sent: Tuesday, April 05, 2005 1:42 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Eval with two equals?
>
> 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'
>
> 
>
> The field DETSTY is a 1 char field described in a DSPF. What
> is the purpose of an Eval statement like this?
>
> 
>
> Thanks,
>
> Jeff
>
> 
>
> 
>
> 
>
> --
> 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.
>
>

*****************************
NOTICE:
All e-mail sent to or from this e-mail address will be received or
otherwise recorded by
The Sharper Image corporate e-mail system and is subject to archival,
monitoring,
and review by and/or disclosure to Sharper Image security and other
management.
This message is intended only for the use of the addressee and may
contain information
that is privileged and confidential.

The contents of this message may contain personal views which are not
the views of The Sharper Image.
If you are not the intended recipient, dissemination of this
communication is prohibited.
*****************************

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