05-08-2007 12:39 PM
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
05-08-2007 12:45 PM
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
05-08-2007 12:45 PM
05-08-2007 12:48 PM
05-08-2007 12:51 PM
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