RE: Rounding up to nearest 1000

Ah-ha, so someone spotted my deliberate mistake (tongue in cheek)

Yeh - my mistake



Alan Shore

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




                                                                       
             AGlauser@erbgroup                                         
             .com                                                      
             Sent by:                                                   To
             rpg400-l-bounces@         RPG programming on the AS400 /  
             midrange.com              iSeries <rpg400-l@xxxxxxxxxxxx> 
                                                                        cc
                                                                       
             11/10/2006 03:25                                      Subject
             PM                        RE: Rounding up to nearest 1000 
                                                                       
                                                                       
             Please respond to                                         
              RPG programming                                          
              on the AS400 /                                           
                  iSeries                                              
             <rpg400-l@midrang                                         
                  e.com>                                               
                                                                       
                                                                       




Alan Shore wrote on 10/11/2006 03:13:50 PM:

So N is 1461 and S = 1000

Temp = 1461 + 1000/2
Temp = 1461 + 500
Temp = 1961
Result = (1961/1000) * 1000
Result = 1

Huh?  Do you mean 1000?



#####################################################################################

Attention:
The above message and/or attachment(s) is private and confidential and is
intended
only for the people for which it is addressed. If you are not named in the
address
fields, ignore the contents and delete all the material. Thank you. Have a
nice day.

For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################

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