Re: Decimals

'0F' is not a valid ebcdic digit,  dec can not read it.

Holden Tommy wrote:

Ok I've tried several variations using %DEC().  The program blows up
when trying to convert the packed data from a character field.  For
example I have packed data that is a 4p1.  I'm using %dec on the
substring value.  The hex value for the 3 bytes are x'40400F'.  The
packed data is in a char field in pos. 489-491.  when the code:
                number = %Dec(%trim(%Subst(Data:FieldDS(Ctr).InBuffer:

FieldDS(Ctr).Length)):63:31); executes I get an error "character representation of a numeric value is

in error". Since the trimmed hex *should* be x'0F'.  What's the problem?



Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Joe Pluta
Sent: Friday, March 30, 2007 1:53 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Decimals

Tommy, could you just stuff it into a huge field (like 63,15) and then
eval
the target field from the big field?

Joe

From: Holden Tommy

i'll end up using this kind of garbage:
Code:
 select;
    when FieldDS(Ctr).Decimals = 1;
       number = %Dec(%trim(%subst(data:fieldds(ctr).InBuffer:
              FieldDS(Ctr).Length)):30:1);
    when FieldDS(Ctr).Decimals = 2;
       number = %Dec(%trim(%subst(data:fieldds(ctr).InBuffer:
              FieldDS(Ctr).Length)):30:2);
which is a major pain.