RE: Calculation Truncation Problem

What's the field definitions for all three fields?

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Kurt Anderson" <kjanderson@xxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/09/14 03:10 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: Calculation Truncation Problem






Is the module optimized?  If so, evaluate the field a couple steps after 
it to see the value.
Also, I think the result should be .000005 (but that should still appear 
in your n,7 field). 
Otherwise, I got nothin.


Kurt Anderson
Application Developer
Highsmith Inc

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] 
On Behalf Of Weber, Richard
Sent: Wednesday, September 14, 2005 12:20 PM
To: 'rpg400-l@xxxxxxxxxxxx'
Subject: Calculation Truncation Problem

I'm having trouble with the following line of code:

Sum_x_PJS = SumOProjD * P1_PjSlsDol;

Where the input variables are:

P1_PJSLSDOL = 0000000000000.01
SUMOPROJD = 0000000000000.0005

When step through the program the result of this is SUM_X_PJS =
0000000000000.0000000.   Of course the result should be .00005.  So, 
what's
going on?  I have the receiving variable SUMOPROJD small enough to hold 
the result, 7 below the decimal.  What am I missing?


Richard L. Weber  |  Senior Systems Analyst, TOYS 'Я' US International  |
973.617.3497  |  weberr@xxxxxxxxxxx <mailto:weberr@xxxxxxxxxxx> 



========================================================================
This email message is for the sole use of the intended recipient (s) and 
may contain confidential and privileged information. Any unauthorized 
review, use, disclosure or distribution is prohibited. If you are not the 
intended recipient, please contact the sender by reply email and destroy 
all copies of the original message. To reply to our email administrator 
directly, send an email to EmailAdmin@xxxxxxxxxxxx 
Toys "R" Us, Inc.
--
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.