Re: Convert character to decimal

[Booth Martin <booth@xxxxxxxxxxxx>]

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,