RE: Round to the tenth

["Joe Lee" <LeeJD@xxxxxx>]

If what you want is for 20 to remain 20 but for 21 through 29 to = 30 then try 
this:

D TempNumDS       DS                  qualified                  
D Value                   1      9S 0                            
D Ones                    9      9S 0                            
                                                                 
C                   Eval      TempNumDS.Value = yourNumber       
C                   If        TempNumDS.Ones > 0                 
C                   Eval      yourNumber += (10 - TempNumDS.Ones)
C                   Endif                                        

Joe Lee

>>> EPADILLA@xxxxxxxxxxxxxxxxxx 10/22/2004 12:37:51 >>>
This will not work , this will round you to the smaller 10th.  


EAPT
Informática corporativa


-----Original Message-----
From: Dwayne Allison [mailto:Dwayne.Allison@xxxxxxxxx] 
Sent: Friday, October 22, 2004 2:39 PM
To: Midrange Systems Technical Discussion
Subject: RE: Round to the tenth

RPGLE also?

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx 
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Dan Bale
Sent: Friday, October 22, 2004 2:37 PM
To: Midrange Systems Technical Discussion
Subject: RE: Round to the tenth


Well, in RPG:

c  Eval(h)  temp = YourNumber / 10
c  Eval     YourNewNumber = temp * 10

temp would be defined with zero decimal positions.

db

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx / Dwayne Allison
> Sent: Friday, October 22, 2004 3:32 PM
> 
> Is there a code that allow you to round to the highest 10?
> 
> Example 25 will round to 30, 101 will round to 110
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l 
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l 
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx 
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l 
or email: MIDRANGE-L-request@xxxxxxxxxxxx 
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.