Re: Decimal Place in Character String

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/05/2020
05:15:32 PM:

On 2020-03-03 3:10 p.m., dlclark@xxxxxxxxxxxxxxxx
wrote:

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

If you code DECPREC(63) in your CTL-OPT, you'll get the decimal
positions in the output of %CHAR.

Thanks, Barbara. That worked but then it gives me way too

many

digits to the right of the decimal place. Is there a way to specify

the

number of decimal positions I want using a non-constant variable?

I just read your post again. If you don't want to hard-code the number
of decimal positions, I think you're going to have to do some
post-processing on the string.

Yep, that is why I came up with the following on Monday. Was
hoping for 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