topic Re: compressing zeros in Application Development and Automation Discussions

compressing zeros

Former Member — Thu, 27 Mar 2008 06:19:00 GMT

hai ,

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

in the numeric field.

Re: compressing zeros

Former Member — Thu, 27 Mar 2008 06:23:24 GMT

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

Re: compressing zeros

Former Member — Thu, 27 Mar 2008 06:23:50 GMT

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

Re: compressing zeros

Former Member — Thu, 27 Mar 2008 06:24:38 GMT

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.

Re: compressing zeros

Former Member — Thu, 27 Mar 2008 06:24:58 GMT

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

Re: compressing zeros

Former Member — Thu, 27 Mar 2008 06:41:13 GMT

best way is to use PACK or UNPACK

REWARD IF USEFUL

SAMEER

Re: compressing zeros

Former Member — Thu, 10 Apr 2008 08:04:26 GMT

thanks