topic Re: Insert Leading Zeroes in Application Development and Automation Discussions

Insert Leading Zeroes

Former Member — Mon, 05 Mar 2007 16:45:21 GMT

How Do Everyone!

I have a currency amount say 144.66 and I want to insert leading zeroes.

I want to convert it to say 000000144.66

I have used the FM CONVERSION_EXIT_ALPHA_INPUT but because

there is a decimal point in the number it is not quite working.

Any ideas anyone??

Cheers

Andy

Re: Insert Leading Zeroes

Former Member — Mon, 05 Mar 2007 16:49:11 GMT

Hi,

Try using the UNPACK statement..

Thanks,

Naren

Re: Insert Leading Zeroes

Former Member — Mon, 05 Mar 2007 16:51:07 GMT

You could move it to a type C field and use

overlay <field> with '0000000000'.

Re: Insert Leading Zeroes

Former Member — Mon, 05 Mar 2007 16:57:03 GMT

Hi,

Try this..

data: p_1 type p decimals 2.

data: p_2(16).

p_1 = '144.66'.

p_2 = p_1.

translate p_2 using ' 0'.

write: / p_2.

Thanks,

Naren

Re: Insert Leading Zeroes

Former Member — Mon, 05 Mar 2007 16:59:55 GMT

Hi,

Please try this.


DATA: P TYPE P DECIMALS 2 VALUE '144.66'.
DATA: N(12) TYPE C.
                                                                        
N = P.
SHIFT N RIGHT.
TRANSLATE N USING ' 0'.
                                                                        
WRITE:/ N.

Regards,

Ferry Lianto

Re: Insert Leading Zeroes

Former Member — Mon, 05 Mar 2007 17:01:22 GMT

try this...

data: v_test(16) type p decimals 2,

v_test1(19).

v_test = '000000144.66'.

write v_test.

v_test1 = v_test.

overlay v_test1 with '000000'.

condense v_test1 no-gaps.

write:/ v_Test1.

award points if it helps.

Re: Insert Leading Zeroes

Former Member — Mon, 05 Mar 2007 17:05:42 GMT

Hi Use

Function Module:

CONVERSION_EXIT_ALPHA_INPUT