RE: %char alternative

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

I think you need a proc for this.  maybe call it "TrimPrecision" or
"TrimDecPos". If you just trim zeros from the right, a string like 75.00000
will become "75.".  You probably want it to show "75.00".

-Steve

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Hans Boldt
Sent: Wednesday, January 14, 2004 8:32 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: %char alternative


Emery, Eve wrote:
> What I'm wanting is to convert a packed decimal figure 16,8. To a
character
> field, but miss off both leading zeros and trailing zeros.
>
> E.g. 00000003.75000000 ----> '3.75'
> I can get '3.75000000' using %Char, but none of the editC's I use, seem to
> help.
>

The V5R3 method is to code "%trimr(%char(num):'0')". But that's probably
not an option since V5R3 hasn't GA'ed yet.

Today, you can try something like this (untested):

       string = %char(num);
       string = %subst(string:1:%checkr('0':string));

Cheers! Hans


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.