Packed Decimal conversion

[rhettbutlernc]

I need to convert the numbers usually padded with zeros to a packed decimal number (eg:00000123456789).

I am using a routine to do this but all the leading zeros are being stripped.

Code: Select all

InputNbr = Oconv(InputNbr, "MCN")

Ans=iconv(InputNbr, "MP")

Guess this has to do with the Options. I would appreciate if someone could help me...

Thanks.
-Davis

[ray.wurlod]

It's the Oconv that's stripping zeroes.

To retain them, wrap in a Fmt function.

Code: Select all

InputNbr = Fmt(Oconv(InputNbr, "MCN"), "R%14")

[rhettbutlernc]

The zeros were not being stripped. It was just that the CFF stage not displaying them... I used UltraEdit to view the Hexadecimal equivalent of the leading zeros.

Thanks

[Sainath.Srinivasan]

You can do a trim(yourval, '0', 'L')