Re: Rounding Question

[Alan Shore <AlanShore@xxxxxxxx>]

We just went through almost the same scenario, only rounding up to the next
penny. For example, if the amount is $27.0200001, the result would be
$27.03.
The only time a rounding does NOT occur, is if the amount is to the penny,
for example $27.0200000, would be $27.02.

The method I recommend is the following.
Move the amount to a 0 decimal field
then compare the 2 decimal to the 0 decimal
I f the 2 decimal is greater than the 0 decimal, then add $1 to the 0
decimal,
for example


D Amount          s              9  2
D Amount0        s              9  0

C                   eval      Amount0 = Amount
C                    if            Amount > Amount0
C                    eval     Amount0 = Amount0 + 1
C                    endif



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx


                                                                       
             Mike Wills                                                
             <koldark@xxxxxxxx                                         
             m>                                                         To
             Sent by:                  RPG programming on the AS400 /  
             rpg400-l-bounces@         iSeries <rpg400-l@xxxxxxxxxxxx> 
             midrange.com                                               cc
                                                                       
                                                                   Subject
             01/18/2006 02:06          Rounding Question               
             PM                                                        
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       




Hey, I want to round to the whole dollar. But I am not doing any
calculation
on the field, so the EVAL(H) won't work for me. Or will it?
This is the line I need to modify: "output = %trim(output) + ',' + %char(
NIBT.balance)". Any good ideas short of writing a subprocedure? The
NIBT.balance is the dollar amount. This dumps to a CSV file.

--
Mike Wills
koldark@xxxxxxxxx
http://mikewills.name
Want Gmail? Email koldark+gmail@xxxxxxxxx to get on my waiting list.

"There are 10 types of people in the world: those who understand binary,
and
those who don't." -Unknown
--
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.