topic Re: delete leading 0's by using shift. in Application Development and Automation Discussions

delete leading 0's by using shift.

former_member225134 — Tue, 27 May 2014 11:45:23 GMT

HI,

I want to delete leading zeroes only if the local variable having numeric field.

suppose the local variable is alpha-numeric means i want to display the full digit.

EX.

if lo_dcno = '0000000000052' i want 52 only otherwards

lo_dcno = '0000000sesese1' i want to display whole digits.

anyone give idea to solve this.

Re: delete leading 0's by using shift.

rosenberg_eitan — Tue, 27 May 2014 11:50:17 GMT

Hi,

Try CONVERSION_EXIT_MATN1_OUTPUT

Regards.

Re: delete leading 0's by using shift.

Former Member — Tue, 27 May 2014 11:52:44 GMT

Hi Anitha,

1. Use these Function Module

CONVERSION_EXIT_ALPHA_INPUT

2. Use 'No-zero' Component

WRITE lo_dcno no-zero.

Example:

REPORT zc_convvert.

DATA : v1(10) TYPE n.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = '000AAA112'

IMPORTING

output = v1.

WRITE :v1 NO-ZERO.

OUTPUT: AAA112

Regards,

Thrimu

Re: delete leading 0's by using shift.

FredericGirod — Tue, 27 May 2014 11:53:56 GMT

Hi,

conversion_exit .. is a good idea

you could code this with something like this

do.

if lv_value+sy-tabix(1) ne '0'.

lv_len = strlen( lv_value ) - sy-tabix.

lv_value = lv_value+sy-tabix(lv_len).

exit.

endif.

enddo.

Re: delete leading 0's by using shift.

Former Member — Tue, 27 May 2014 11:57:19 GMT

Hi,

you can try this:

I don't know how you declar DOCNO. You can use string or char.

Regards, Dieter

Re: delete leading 0's by using shift.

anubhab — Tue, 27 May 2014 11:57:27 GMT

Hi Anitha,

This might be helpful for you.

IF NOT lo_dcno CA 'abcdefghijklmnopqrstuvwxyz'.

SHIFT lo_dcno LEFT DELETING LEADING '0'.

ENDIF.

Regards,

Anubhab

Re: delete leading 0's by using shift.

gagandeep_singh17 — Tue, 27 May 2014 12:00:28 GMT

Hi,

Use the below code to check for number presence in the variable.

IF lo_dcno CO '0123456789'.

SHIFT lo_dcno LEFT DELETING LEADING '0'.

ENDIF.

Re: delete leading 0's by using shift.

former_member225134 — Tue, 27 May 2014 12:12:26 GMT

Thanx to all,

Issue solved.

Re: delete leading 0's by using shift.

Former Member — Tue, 27 May 2014 12:39:02 GMT

Just use in fieldcatalog

LS_FCAT-CONVEXIT = 'ALPHA'.

Regards,

Vadamalai A

Re: delete leading 0's by using shift.

Former Member — Tue, 27 May 2014 12:49:31 GMT

Try using:

IF lo_dcno CO '0123456789 '.

PACK lo_dcno TO lo_dcno. CONDENSE lo_dcno.

ELSE.

"Do nothing

ENDIF.

Regards,

Óscar