Re: Eval(h)

[Kyle Collie <kcollie@xxxxxxxxx>]

That did it! Thanks, Mike.

For the archive, the r extender ("Result Decimal Position") makes
certain that the precision of a decimal intermediate will be computed
such that the number of decimal places will never be reduced smaller
than the number of decimal positions of the result of the assignment.

That's from the ILE RPG reference.

Kyle

On 5/19/05, Barton, Mike <Mike.Barton@xxxxxxxxxxxxxxxxx> wrote:
> >In free-form code, I have:
> >
> >eval(h) 5,2field    = 9,2field / (9,0field /100);
> >
> >It is not rounding up. For example, a result of 11.77815... is
> >truncated to 11.77, not the expected (at least expected by me) 11.78.
> >
> >What am I missing?
> 
> Kyle
>         just a guess but...
> 
> whenever using eval with numbers of different decmal places,
> best to use the opcode extender of r
> eg eval(hr) 5,2field.....
> 
> HTH
> 
> Mike
> 
> ###########################################
> 
> This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange.
> For more information, connect to http://www.F-Secure.com/
> 
> **********************************************************************
> The information transmitted is intended only for use by the addressee and may 
> contain confidential and/or privileged material. Any review, re-transmission, 
> dissemination or other use of it, or the taking of any action in reliance 
> upon this information by persons and/or entities other than the intended 
> recipient is prohibited. If you received this in error, please inform the 
> sender and/or addressee immediately and delete the material.  Thank you
> 
> **********************************************************************
> 
> --
> 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.
> 
>