Re: AW: Help on %EDITC

_________________________________________________________________________________________
HauserSSS wrote:

Hi,

why not simply use the BIFs %DEC or %DECH to format your numeric values,
before %EditC?

MyAlpha = %EditC(%DecH(MyNum: 7: 2): 'A');

Birgitta

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Raul A. Jager W.
Gesendet: Montag, 25. Juli 2005 16:08
An: RPG programming on the AS400 / iSeries
Betreff: Re: Help on %EDITC


I don't think you can do it with editc one way to do it is with %char;
but it will not separate the thousands.

If tou need the output aligned by the decimal point you can put the
edited field in a work area and replace the trailing zeros by blanks,
something like this:
asuming an edited output of 20 characters, adjust as needed.

aux20 = %editc(number:..
for i = 20 to 1 by -1;
  if %subst(aux20: i: 1) <> *zero;
      leave;
  endif;
  %subst(aux20: i: 1) = *blank;
endfor;

If you don't care about align:

edited= %xlate(' ': '0': %trim(%xlate('0': ' ': %editc(number: 'a')));
____________________________________________________________________________
____
Dwarakanath, Srikanth (Cognizant) wrote:

Thanks Jim,

Resending my request.....

I have a requirement not to print trailing zeros in decimal fields.
I had a look at all the %EDIT options in RPG's built in function, could not

figure it out by my self.

For e.g.

123.5600000 should be printed as 123.56.

Can I get some help please.

Many thanks for help.

Best rgds.,
Srikanth D