RE: Round to the tenth

D'oh on me.  Thanks for finding my mistake.  I didn't read Dwayne's request
correctly.

Your suggestion will round 20 up to 30, though.

How about:

   Eval  YourNewNumber = ((OriginalNumber + 9) / 10) * 10

Can't remember how intermediary results will treat losing the tenth postion
on the divide, so you may need to:

   Eval  temp = (OriginalNumber + 9) / 10
   Eval  YourNewNumber = temp * 10

temp is defined with zero decimal positions.

Yes, Dwayne, this is RPGLE.  Sorry about that.

db

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx / Fisher, Don
> Sent: Friday, October 22, 2004 3:42 PM
>
> The trouble with that is a number like 21 would be rounded to 20.
>  I believe
> the request was to round to the next higher ten so 21 would round to 30.
>
> I can't think of any way to do this other than:
> EVAL TempNumber =
>       ((YourNumber / 10) + 1) * 10
>
> TempNumber would have 0 decimal positions.
>
> Hope that helps.
>
> Donald R. Fisher, III
> Project Manager
> Roomstore Furniture Company
> (804) 784-7600 extension 2124
> DFisher@xxxxxxxxxxxxx
>
>
> <clip>
> c  Eval(h)  temp = YourNumber / 10
> c  Eval     YourNewNumber = temp * 10
> <clip>