RE:

Tommy,
I've use CVTEFN for years in RPG xTools and now in my book "RPG TNT" the code is
featured. It will do what you want and often times "better" than %DEC and it
allows any target variable size. Of course you have to pass the return value as
a parm but it works create. 
Or you can use the wrapper I wrote, call CharToNum() which converts the input
value into a Packed(30,9) value and returns it. It can then be assigned to any
numeric value of any length--provided you don't extend that size. In V5.3, it
will support 63-digit values too. <g>


-Bob Cozzi
www.i5PodCast.com
Ask your manager to watch i5 TV



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Holden Tommy
Sent: Friday, March 30, 2007 1:27 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: 

alternative for %DEC? 

i have a issue i'm trying to resolve. basically i want to use something
similar to %DEC. unfortunately you can't use variable values for digits
& precision with %DEC. here is basically what i want to do:
Code:
                 number = %Dec(%trim(%Subst(Data:FieldDS(Ctr).InBuffer:
                          FieldDS(Ctr).Length)):
                          FieldDS(Ctr).Digits:FieldDS(Ctr).Decimals);
instead of using tons of IFs etc. is there a way to do this? unless
someone has a clever answer 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....wonder if there is a way for the compiler team
to add this functionality???


Thanks,
Tommy Holden