From 71ab974558969f2df188349897459f814e3e631b Mon Sep 17 00:00:00 2001
From: Mike Pokraka <mike@quirky.me.uk>
Date: Wed, 12 Feb 2025 21:28:53 +0000
Subject: [PATCH] Fix index

---
 src/objects/zcl_abapgit_object_fugr.clas.abap | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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: <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.