RE: Eval(h)

That worked.  What does the (r) do?  Retain precision?

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Barton, Mike" <Mike.Barton@xxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
19/05/2005 11:02 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Eval(h)






>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.