topic Re: Replace Leading Zeros with spaces in Application Development and Automation Discussions

Replace Leading Zeros with spaces

Former Member — Sun, 09 Nov 2008 12:13:17 GMT

Hi All,

Please help me with a functional module to remove the leading zeros and replace them with spaces.

Eg: number : 000095

output needed : 95.

I tried with the search in the sdn but couldnt find.

Regards,

Srikanth.

Re: Replace Leading Zeros with spaces

jaheer_hussain — Sun, 09 Nov 2008 12:25:58 GMT

Hi srik,

I think there is no function module for purpose,but have a look on the simple staatement

data:p(5) value '00044'.

write:/ p no-zero.

output:44

with Regards,

Jaheer.

Re: Replace Leading Zeros with spaces

Former Member — Sun, 09 Nov 2008 12:27:43 GMT

Hi,

I need spaces replacing those zeros.

Regards,

Srik

Re: Replace Leading Zeros with spaces

matt — Sun, 09 Nov 2008 14:45:26 GMT

Look at function module CONVERSION_EXIT_ALPHA_OUTPUT This will convert "000095" to '95'. If you need to get to '<4 spaces>95' then use the WRITE INTO command with the addition "RIGHT-JUSTIFIED".

Jaheer Hussein's suggestion should also work, with some modification.

data:p(5) value '00044',
    v(5).

write p into v no-zero right justified.

matt

Edited by: Matt on Nov 9, 2008 3:45 PM

Re: Replace Leading Zeros with spaces

Former Member — Sun, 09 Nov 2008 17:17:54 GMT

Hi Srikanth,

Check out the code for your requirement.


DATA: V_MATNR TYPE MARA-MATNR VALUE '00098'.
DATA: V_OUTPUT TYPE MARA-MATNR.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input         =  V_MATNR
 IMPORTING
   OUTPUT        =   V_OUTPUT.

          .
WRITE: / V_OUTPUT.

Thanks,

Chidanand

Re: Replace Leading Zeros with spaces

Former Member — Mon, 10 Nov 2008 02:10:55 GMT

Hi,

Please use FM ''CONVERSION_EXIT_ALPHA_OUTPUT'' to have a try.

Regards,

Chris Gu

Re: Replace Leading Zeros with spaces

Former Member — Mon, 10 Nov 2008 08:03:24 GMT

hi,

try this..


BKK_DELETE_LEADING_ZERO

Arunima

Re: Replace Leading Zeros with spaces

Former Member — Mon, 10 Nov 2008 09:53:42 GMT

First move the value into a variable of type char(xx).

Then use

REPLACE ALL OCCURENCES OF '0' with SPACE.

This will help

Re: Replace Leading Zeros with spaces

Former Member — Mon, 10 Nov 2008 09:54:17 GMT

Hi,

Try below code for your requirement.

DATA:p(10) VALUE '000095'.

WRITE: p NO-ZERO RIGHT-JUSTIFIED.

Best Regards,

Deepa Kulkarni

Re: Replace Leading Zeros with spaces

Former Member — Mon, 10 Nov 2008 09:54:53 GMT

Hi,

Go for a REPLACE stmt.

Re: Replace Leading Zeros with spaces

Former Member — Mon, 10 Nov 2008 09:57:49 GMT

Hi,

Just use a SHIFT statement.

SHIFT number left deleting leading '0'.

Regards,

Suganya

Re: Replace Leading Zeros with spaces

Former Member — Mon, 10 Nov 2008 10:29:03 GMT

thanks a lot it worked with write to