Re: Eval with two equals?

["Steve Landess" <sjl_abc@xxxxxxxxxxx>]

*INU1 is being assigned the value of the logical comparison, which is either 
true ('1') or false ('0').


This code snippet might show you better what is happening...

D INDIC01         S              1A   INZ('1')
D INDIC02         S              1A   INZ('1')
D INDIC03         S              1A   INZ('0')

C                   EVAL      *INU1 = (INDIC01 = INDIC02)
C     '*INU1'       DSPLY                   *INU1

C                   EVAL      *INU1 = (INDIC01 = INDIC03)
C     '*INU1'       DSPLY                   *INU1

C                   EVAL      *INLR = *ON

Regards,
Steve


----- Original Message ----- 
From: <MWalter@xxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, April 05, 2005 3:54 PM
Subject: Re: Eval with two equals?


> Hmm, this is what I thought it was, but I just entered this code into a
> source member I use for testing snippets of code:
>
>   field1test = field2test = '1';
>   dsply field1test;
>   dsply field2test;
>
> the first dsply returned '0'
> the second one returned a blank
>
> both field1test and field2test are defined as 1 byte alpha fields.
>
> Anyone else care to chime in?
>
>
> Thanks,
>
> Mark
>
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
>
>
>
>             MWalter@hanoverwi
>             re.com
>             Sent by:                                                   To
>             rpg400-l-bounces+         RPG programming on the AS400 /
>             mwalter=hanoverwi         iSeries <rpg400-l@xxxxxxxxxxxx>
>             re.com@xxxxxxxxxx                                          cc
>             om
>                                                                   Subject
>                                       Re: Eval with two equals?
>             04/05/2005 04:49
>             PM
>
>
>             Please respond to
>              RPG programming
>              on the AS400 /
>                  iSeries
>             <rpg400-l@midrang
>                  e.com>
>
>
>
>
>
>
> It's setting two fields to '1' or *ON at once. Although, I didn't know 
> this
> was valid RPG syntax. Learn something new every day.
>
> Thanks,
>
> Mark
>
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
>
>
>
>             "Jeff L. Love"
>             <jllove@xxxxxxxxx
>             om>                                                        To
>             Sent by:                  <rpg400-l@xxxxxxxxxxxx>
>             rpg400-l-bounces@                                          cc
>             midrange.com
>                                                                   Subject
>                                       Eval with two equals?
>             04/05/2005 04:41
>             PM
>
>
>             Please respond to
>              RPG programming
>              on the AS400 /
>                  iSeries
>             <rpg400-l@midrang
>                  e.com>
>
>
>
>
>
>
> 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.
>
>
>
> --
> 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.