Re: Decimal Place in Character String

Dave, I'm going to respond to this post, because it seems not to have
registered with many of the readers (either they didn't read it or
they didn't understand it or they forgot it).

Let's first underscore that this is a working solution. People keep
going on as though you still have no clue how to achieve what you
want.

On Mon, Mar 2, 2020 at 4:09 PM <dlclark@xxxxxxxxxxxxxxxx> wrote:

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;

Now that we've heard from Barbara herself, I think we can comfortably
conclude that no, there isn't an easier way.

Birgitta's suggestion of dynamic SQL seems like overkill to me, though
if you're the kind of person who "thinks in SQL" (like Birgitta does,
expertly), then I would have no problem with going that route.

Honestly, your little routine doesn't strike me as particularly
complicated or hard. It's more-or-less how I would have done it.

John Y.