RE: Eval(h)

["Barton, Mike" <Mike.Barton@xxxxxxxxxxxxxxxxx>]

Kyle
        glad that fixed it.

Incidentally, you can specify EXPROPTS(*RESDECPOS) 
on the h-spec to do this automatically.

Mike

>-----Original Message-----
>From: Kyle Collie [mailto:kcollie@xxxxxxxxx]
>Sent: 19 May 2005 23:48
>To: RPG programming on the AS400 / iSeries
>Subject: Re: Eval(h)
>
>
>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

**********************************************************************