SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 11:46:38 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Fix index

Browse Source
This commit is contained in:
Mike Pokraka 2025-02-12 21:28:53 +00:00
parent df62f05ab9
commit 71ab974558
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/objects/zcl_abapgit_object_fugr.clas.abap
View File

@ -518,6 +518,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
DATA: lv_area TYPE rs38l-area, DATA: lv_area TYPE rs38l-area,
lt_enlfdir TYPE STANDARD TABLE OF enlfdir. lt_enlfdir TYPE STANDARD TABLE OF enlfdir.
DATA lv_index TYPE i.
FIELD-SYMBOLS: <ls_functab> TYPE LINE OF ty_rs38l_incl_tt, FIELD-SYMBOLS: <ls_functab> TYPE LINE OF ty_rs38l_incl_tt,
<ls_enlfdir> TYPE enlfdir. <ls_enlfdir> TYPE enlfdir.
@ -554,9 +555,10 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
LOOP AT rt_functab ASSIGNING <ls_functab>. LOOP AT rt_functab ASSIGNING <ls_functab>.
TRANSLATE <ls_functab> TO UPPER CASE. TRANSLATE <ls_functab> TO UPPER CASE.
lv_index = sy-tabix.
READ TABLE lt_enlfdir WITH KEY funcname = <ls_functab>-funcname TRANSPORTING NO FIELDS. READ TABLE lt_enlfdir WITH KEY funcname = <ls_functab>-funcname TRANSPORTING NO FIELDS.
IF sy-subrc <> 0. IF sy-subrc <> 0.
DELETE rt_functab INDEX sy-index. DELETE rt_functab INDEX lv_index.
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.