Re: Convert character to decimal

[Henrik Rützou <hr@xxxxxxxxxxxx>]

Booth

divisions only goes into error if you devide by zero that in this case you
don't


On Mon, Mar 18, 2013 at 10:57 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:

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