diff --git a/src/objects/zcl_abapgit_object_fugr.clas.abap b/src/objects/zcl_abapgit_object_fugr.clas.abap index 219d5187f..3a106a5d4 100644 --- a/src/objects/zcl_abapgit_object_fugr.clas.abap +++ b/src/objects/zcl_abapgit_object_fugr.clas.abap @@ -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: TYPE LINE OF ty_rs38l_incl_tt, TYPE enlfdir. @@ -554,9 +555,10 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION. LOOP AT rt_functab ASSIGNING . TRANSLATE TO UPPER CASE. + lv_index = sy-tabix. READ TABLE lt_enlfdir WITH KEY funcname = -funcname TRANSPORTING NO FIELDS. IF sy-subrc <> 0. - DELETE rt_functab INDEX sy-index. + DELETE rt_functab INDEX lv_index. ENDIF. ENDLOOP.