Re: Convert character to decimal

Two things always make me nervous on these kinds of conversion. One is
the decimal places and the other is division. To stop my palpitations I
generally try to avoid certain processes.

I would try something like this, to see if it works, then if I had the
time, maybe try combining functions to make it one line of code.


> Monitor;
> Work_Rate = (%Dec(Oh@AirRate) * .00001);
Work_Rate = Work_Rate * .000001; // instead of divide.
> $Air_Rate = Work_Rate;
> On-Error;
> $Air_Rate = *Zero;
> EndMon;


On 3/18/2013 4:30 PM, Jeff Young wrote:

All,
I have a character representation of a numeric field whose value is
'0009671180' .
This represents 96.71180.
When I attempt to convert it back to a decimal value, I get the following
message:
Message ID . . . . . . : RNX0103 Severity . . . . . . . :
99
Message type . . . . . :
Escape
Date sent . . . . . . : 18/03/13 Time sent . . . . . . :
16:24:25


Message . . . . : The target for a numeric operation is too small to
hold
the
result.
Cause . . . . . : An arithmetic operation resulted in a value which

is

too
large to fit in the target. If this is a numeric expression, the
overflow
could be the result of the calculation of some intermediate
result.
Recovery . . . : Either make the target of the operation larger or,

if

in
an expression, choose the precision of the operands in the expression
so
that intermediate value will fit into the intermediate
result.

The code I am using is:
<snip>
D Work_Rate S 63 15
,
,
/Free
.
.
.
Monitor;
Work_Rate = (%Dec(Oh@AirRate : 10 : 5) / 100000);
$Air_Rate = Work_Rate;
On-Error;
$Air_Rate = *Zero;
EndMon;
</snip>

Since I made my work field more than large enough to hold the result, why
am I receiving this error?

Thanks,

--
Booth Martin
802-461-5349
http://www.martinvt.com
--
This is the RPG programming on the IBM i (AS/400 and 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.