Character Comparison

[Former Member]

hi All,

Can any one provide me the code for character comparison?

I need to check the data in one field ZDATA and pass the value to ZDATA1

If ZDATA is a char or blank then ZDATA1 = 0

else

Move the number value of ZDATA to ZDATA1.

\[removed by moderator\]

Thanks in advance!

Edited by: Jan Stallkamp on Aug 25, 2008 4:36 PM

[Former Member]

Hi,

Try this.

Use CA for comparing.

If zdata CA '0123456789'.

<as per your requirement>

else.

zdata = 0.

endif.

Sharin.

[Former Member]

Hi,

IF zdata CA 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' OR zdata EQ space.

MOVE 0 to zdata1

else.

MOVE zdata to zdata1

endif.

[Former Member]

find strlen(zdata) into variable i.

do i times.

if not zdata(i) in r_numbers.

zdata1(i) = '0'.

else.

zdata1(i) = zdata(i).

enddo.

hope it helps....

[Former Member]

If ZDATA cn sy-abcde or ZDATA eq ''.

ZDATA1 = 0

else.

CALL FUNCTION 'NUMERIC_CHECK'

EXPORTING

STRING_IN = ZDATA

IMPORTING

STRING_OUT = ZDATA

type = type

IF type NE 'NUMC'.

zdata1 = zdata

endif

endif.

[Former Member]

Hi,

Try like this:

if zdata CA sy-abcde OR zdata EQ ''.

zdata1 = 0.

write:/ zdata1.

else.

move zdata to zdata1.

write:/ zdata1.

endif.

Regards,

Bhaskar