mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 11:46:38 +08:00
Fix index
This commit is contained in:
parent
df62f05ab9
commit
71ab974558
|
@ -518,6 +518,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
|
|||
|
||||
DATA: lv_area TYPE rs38l-area,
|
||||
lt_enlfdir TYPE STANDARD TABLE OF enlfdir.
|
||||
DATA lv_index TYPE i.
|
||||
|
||||
FIELD-SYMBOLS: <ls_functab> TYPE LINE OF ty_rs38l_incl_tt,
|
||||
<ls_enlfdir> TYPE enlfdir.
|
||||
|
@ -554,9 +555,10 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
|
|||
|
||||
LOOP AT rt_functab ASSIGNING <ls_functab>.
|
||||
TRANSLATE <ls_functab> TO UPPER CASE.
|
||||
lv_index = sy-tabix.
|
||||
READ TABLE lt_enlfdir WITH KEY funcname = <ls_functab>-funcname TRANSPORTING NO FIELDS.
|
||||
IF sy-subrc <> 0.
|
||||
DELETE rt_functab INDEX sy-index.
|
||||
DELETE rt_functab INDEX lv_index.
|
||||
ENDIF.
|
||||
ENDLOOP.
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user