Search statement

[Former Member]

Hi,

DATA: BEGIN OF TSC_BDET OCCURS 20,

DEPNO LIKE ZFIMHMDEP-ZDEPNO,

GA LIKE ZFITHMBDET-ZHC,

GB LIKE ZFITHMBDET-ZHC,

GC LIKE ZFITHMBDET-ZHC,

GD LIKE ZFITHMBDET-ZHC,

FRDB TYPE I,

END OF TSC_BDET.

MODULE CHECK_DUPLICATE INPUT.

SEARCH TSC_BDET FOR TSC_BDET-DEPNO.

IF SY-SUBRC = 0 AND SY-TABIX < TC_BDET-CURRENT_LINE.

MESSAGE E999 WITH 'Dept: ' TSC_BDET-DEPNO

' already allocated to this function/module' ''.

ENDIF.

ENDMODULE. " CHECK_DUPLICATE INPUT

search is obsolete. Can anyone suggest me what is the replacement for

this?

thanks,

keerthi

[Former Member]

Hi Keerthi,

Refer this code :

DATA: BEGIN OF TSC_BDET OCCURS 20,

DEPNO LIKE ZFIMHMDEP-ZDEPNO,

GA LIKE ZFITHMBDET-ZHC,

GB LIKE ZFITHMBDET-ZHC,

GC LIKE ZFITHMBDET-ZHC,

GD LIKE ZFITHMBDET-ZHC,

FRDB TYPE I,

END OF TSC_BDET.

READ TABLE TSC_BDET INDEX 1 INTO PREV_LINE.

LOOP AT TSC_BDET FROM 2 INTO WA.

IF WA = PREV_LINE.

DELETE TSC_BDET.

ELSE.

PREV_LINE = WA.

ENDIF.

ENDLOOP.

or use this statement :

DELETE ADJACENT DUPLICATES FROM TSC_BDET

COMPARING K.

Reward points if helpful.

Regards,

Hemant

[seshatalpasai_madala]

Hi,

FIND is the replacement for SEARCH.

Best Regards,

Sesh

[Former Member]

can u give the code for using "find"

[seshatalpasai_madala]

Hi,

See the simple example below:

DATA: patt TYPE string VALUE `now`,

text TYPE string,

result_tab TYPE match_result_tab.

FIELD-SYMBOLS <match> LIKE LINE OF result_tab.

FIND ALL OCCURRENCES OF patt IN

`Everybody knows this is nowhere`

RESULTS result_tab.

LOOP AT result_tab ASSIGNING <match>.

WRITE: / <match>-offset, <match>-length.

ENDLOOP.

Best Regards,

Sesh