Case sensitive Searh field

[Former Member]

Hi guys!

Kindly check my codes. It seems like FIND command doesn't work (sy-subrc= 4).

**Pass Value

IF sl_id IS INITIAL.

sl_id = '%'.

ENDIF.

IF sl_desc IS INITIAL.

sl_desc = '%'.

ELSE.

• TRANSLATE sl_desc+1 TO LOWER CASE.

CONCATENATE '%' sl_desc '%' INTO sl_desc.

ENDIF.

**Initial Value

storage_loc-sl_id = '-'.

storage_loc-sl_desc = 'None'.

APPEND storage_loc.

CLEAR storage_loc.

**Get Storage Location

SELECT lgort

lgobe

INTO (storage_loc-sl_id,

lv_text)

FROM t001l

WHERE werks = 'AGP1'

*AND lgort LIKE sl_id

*AND lgobe LIKE sl_desc

.

CONCATENATE '%' lv_text '%' INTO lv_text.

CHECK sl_desc IS NOT INITIAL.

TRANSLATE lv_text TO UPPER CASE.

-->> FIND sl_desc IN lv_text IGNORING CASE.

IF sy-subrc = 0.

SELECT SINGLE lgobe

INTO storage_loc-sl_desc

FROM t001l

WHERE lgort LIKE sl_desc.

APPEND storage_loc.

CLEAR storage_loc.

ENDIF.

ENDSELECT.

[Former Member]

Hi guys!

Kindly check my codes. It seems like FIND command doesn't work (sy-subrc= 4).

**Pass Value

IF sl_id IS INITIAL.

sl_id = '%'.

ENDIF.

IF sl_desc IS INITIAL.

sl_desc = '%'.

ELSE.

• TRANSLATE sl_desc+1 TO LOWER CASE.

CONCATENATE '%' sl_desc '%' INTO sl_desc.

ENDIF.

**Initial Value

storage_loc-sl_id = '-'.

storage_loc-sl_desc = 'None'.

APPEND storage_loc.

CLEAR storage_loc.

**Get Storage Location

SELECT lgort

lgobe

INTO (storage_loc-sl_id,

lv_text)

FROM t001l

WHERE werks = 'AGP1'

*AND lgort LIKE sl_id

*AND lgobe LIKE sl_desc

.

CONCATENATE '%' lv_text '%' INTO lv_text.

CHECK sl_desc IS NOT INITIAL.

TRANSLATE lv_text TO UPPER CASE.

-->> FIND sl_desc IN lv_text IGNORING CASE.

IF sy-subrc = 0.

SELECT SINGLE lgobe

INTO storage_loc-sl_desc

FROM t001l

WHERE lgort LIKE sl_desc.

APPEND storage_loc.

CLEAR storage_loc.

ENDIF.

ENDSELECT.

[Former Member]

Maui,

I believe you can use SEARCH option. See the code below from SAP HELP.

Hope this will solve your problem,

Cheers,

Thomas.

DATA STRING(30) VALUE 'This is a little sentence.'.

WRITE: / 'Searched', 'SY-SUBRC', 'SY-FDPOS'.
ULINE /1(26).

SEARCH STRING FOR 'X'.
WRITE: / 'X', SY-SUBRC UNDER 'SY-SUBRC',
               SY-FDPOS UNDER 'SY-FDPOS' 

SEARCH STRING FOR 'itt '.
WRITE: / 'itt   ', SY-SUBRC UNDER 'SY-SUBRC',
                   SY-FDPOS UNDER 'SY-FDPOS' 

SEARCH STRING FOR '.e .'.
WRITE: / '.e .', SY-SUBRC UNDER 'SY-SUBRC',
SY-FDPOS UNDER 'SY-FDPOS'.

SEARCH STRING FOR '*e'.
WRITE: / '*e ', SY-SUBRC UNDER 'SY-SUBRC',
SY-FDPOS UNDER 'SY-FDPOS'.

SEARCH STRING FOR 's*'.
WRITE: / 's* ', SY-SUBRC UNDER 'SY-SUBRC',
SY-FDPOS UNDER 'SY-FDPOS'.