Re: %DECPOS ?

Why is the answer 8?  Cos dems the rules.  If you multiply a field with 3
decimal places by one with 5 the result requires 8 decimal places - i.e. the sum
of the number of places.  Try multiplying 11.11 by 22.222 on your pocket
calculator and you'll see that it agrees with this principal.








"Shen" <ipacsjj@public.sta.net.cn> on 04/17/99 09:38:19 AM

Please respond to RPG400-L@midrange.com
                                                                                
                                                                                
                                                                                


                                                              
                                                              
                                                              
 To:      rpg400-l@midrange.com                               
                                                              
 cc:      (bcc: Jon Paris/HAL/IT)                             
                                                              
                                                              
                                                              
 Subject: %DECPOS ?                                           
                                                              









Dp4               s                 7p 3   inz(8236.567)
Ds5               s                 9s 5   inz(23.73442)
Dresult6               s                 5i 0
 *
C                       eval           result6 = %decpos(p4 * s5)

Why the result6 = 8 ?

Thanks.



* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *



* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *