Re: Decimal Place in Character String

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/02/2020
03:36:55 PM:

So, I changed it to the following and now I an getting too many
zeroes on the right of the returned result.

return %char(%dec(packed_data / d_shift));

I know how many decimal places I want but the %DEC function will not
accept a variable name for that operand. How can I easily strip off
the excess right zeroes?

I came up with the following -- and it works -- but it seems there
should be an easier way.


t_string = %char(%dec(packed_data / d_shift));
t_len = %scan('.':t_string);
if t_len > *zero;
if use_scale > *zero;
t_string = %subst(t_string:1:t_len+use_scale);
else;
t_string = %subst(t_string:1:t_len-1);
endif;
endif;
return t_string;


Sincerely,

Dave Clark