RE: Eval(R) - the R does NOT mean round...

That would be Toronto, not Rochester.
And not to be confused with EVALR (no parens) which is highly valuable.

Bob

> -----Original Message-----
> From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com] On Behalf Of William
> A.(Tony) Corbett
> Sent: Tuesday, June 11, 2002 6:30 PM
> To: rpg400-l@midrange.com
> Subject: Eval(R) - the R does NOT mean round...
>
>
>
> Hi all,
> This just bit me today and I thought I'd share it.  I've
> always assumed that the extender (R) on the Eval statement
> meant Round the result.  Don't know why I thought that, I
> guess I just jumped to a logical conclusion.
>
> My problem today was:
> Eval(R) wkdsc1 = (tmdisc * odmtot)
>          8.34  =   .020  * 417.30
> Real answer is 8.346, from a calculator
> wkdsc1 should be 8.35
>
> Eval(H)   wkdsc1 = (tmdisc * odmtot)
> this one gets 8.35, as expected above........
>
> From the RPG reference:
> ----------------------------------------------------
> There are two sets of precision rules that you can use to
> control the sizes of intermediate values:
>
> The default rules give you intermediate results that are as
> large as possible in order to minimize the possibility of
> numeric overflow. Unfortunately, in certain cases, this may
> yield results with zero decimal places if the result is very large.
>
> The "Result Decimal Positions" precision rule works the same
> as the default rule except that if the statement involves an
> assignment to a numeric variable or a conversion to a
> specific decimal precision, the number of decimal positions
> of any intermediate result is never reduced below the desired
> result decimal places.
> ----------------------------------------------------
> This is on a V4R4 machine, at first I thought it was a
> compiler error which hopefully is fixed on a subsequent
> release.  To me, this makes the (R) extender less than
> worthless and I cannot imagine who on the Rochester
> development team thought this was a good idea, since the Eval
> with no extender (default rules) should give this same result
> except with more accurate intermediate work variables used.
>
> Or is it just me????  Maybe I'll feel better about this when
> the blood on my head dries (from beating my head against the
> wall trying to figure out what the problem was).
>
> AS/Resources, Inc.
> William A.(Tony) Corbett
> IBM Certified Specialist - AS/400 Developer
> http://www.asresources.com > corbett@asresources.com
> 770-587-4812 (office) 678-935-5006 (mobile) 404-663-4737 (fax)
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>