compressing zeros

[Former Member]

hai ,

please help me to find out how can i compress the zeros

in the numeric field.

[Former Member]

Hi

Move the data to CHar type and use condense

or use FM conversion_alpha_exit_output

Or in write statement you can use no-zero

WRITE: '000123',

/ '000123' NO-ZERO.

000123

123

Regards

Shiva

[Former Member]

hi,

the leading zeros can be compressed by using NO-ZEROS.

eg: write var1 to var2 no-zeros

Regards,

Anil.

Edited by: Anilkumar Prajapati on Mar 27, 2008 7:26 AM

[Former Member]

Use the Function Module CONVERSION_EXIT_ALPHA_INPUT

Check the sample code:

data: NUMBER(8) VALUE 0, "Original number without zeros

NUMBER2(8). "numbers with zeros

*Incrementing value.

NUMBER = NUMBER + 1.

*Padding zeros

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = NUMBER

IMPORTING

OUTPUT = NUMBER2.

WRITE: / 'Number 1 ', NUMBER,

'Number 2 ', NUMBER2.

Reward points if useful.

[Former Member]

Hello,

Check this .

DATA:wrk_char TYPE char10.

DATA:wrk_num TYPE i.

wrk_num = ' 1000'.

wrk_char = wrk_num.

PACK wrk_char TO wrk_char.

CONDENSE wrk_char.

Neeraj

[Former Member]

best way is to use PACK or UNPACK

REWARD IF USEFUL

SAMEER

[Former Member]

thanks