edtcde

[mksamy_99]

I need an output in my printer file as 0.00. I tried for 3, C, L ,P. they give
only .00. Is there any other editcode for giving the output as 0.00


Thanks
Muthu
Programmer

[MikeS]

Re: edtcde

You cant do this with an edit code because I think that all the codes suppress leading zeros.

You will have to use an EditWord instead.

example:

A FIELD1 7 2 5 2EDTWRD(' 0. ')


This will suppress leading zeros up to, but not including, the first digit to the left of the decimal place.

The details on edit words can be found in the DDS reference

[Zdenko]

Re: edtcde

Hi

It depends up how your SYSVAL QDECFMT is set.
This value is valid for the system decimal editing.
Try to figure with WRKSYSVAL SYSVAL(*EDT)

Another way to avoid this is to define internal in your *pgm in H spec following keyword:
DECEDIT('0,') or DECEDIT(',').

The printout will be as follows = DECEDIT('0,') = 0,123
DECEDIT(',') = ,123

[jamief]

Re: edtcde

Might also try editcode X

eval char5 = %editc(dec52:'X')


jamie