Re: Eval with two equals?

[Captain Jerry <captainjerry@xxxxxxxxx>]

Thanks Jon -- Your lessons, and posts are always so clear and
concise... (I didn't even know you could have multiple conditions --
indicator = this > that or this < the other) See?  No "nasty numbers" 
LOL...

/CJ/

On Apr 6, 2005 10:49 AM, Jon Paris <Jon.Paris@xxxxxxxxxxxxxx> wrote:
> >> 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...
> 
> It has been available forever - or at least as long as RPG IV has existed.
> It was in the very first release.
> 
> Since you mention it's ability to turn the indicator off if it is already
> on, it is probably worth extending your example to _preserve_ the current
> state of the indicator. e.g.
> 
> *In50 = (RRN1 > *Zero) or *In50
> 
> Of course we shouldn't be using nasty numbers anyway now should we <grin> -
> so a better example might be:
> 
> Where SubfileDisplay is a named constant with a value of 50.  If we have
> used the INDDS keyword to name our indicators, then it becomes even cleaner
> because it could read like this:
> 
> SubfileDisplay = (RRN1 > *Zero) or SubfileDisplay
> 
> P.S. Just realized that if people aren't familiar with this use of EVAL to
> set an indicator, they may not be familiar with the indicator shorthand I
> just used.  Since RPGIV understands that an indicator is a boolean
> true/false you don't need the "= *On" or "= '1'" <shudder!>.  So "If
> *In(SubfileDisplay)" is equivalent to "If *In(SubfileDisplay) = *On" - and
> "If Not *In(SubfileDisplay)" is equivalent to "If *In(SubfileDisplay) =
> *Off"
> 
> Jon Paris
> Partner400
> 
> www.Partner400.com
> www.RPGWorld.com
> 
> --
> 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.
> 
>