SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

add variable, #914

Browse Source
This commit is contained in:
larshp 2017-09-11 16:47:45 +00:00
parent e81748abdf
commit 352d474263
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/zabapgit_object_fugr.prog.abap
View File

@ -430,11 +430,12 @@ CLASS lcl_object_fugr IMPLEMENTATION.
cnam TYPE reposrc-cnam, cnam TYPE reposrc-cnam,
END OF ty_reposrc. END OF ty_reposrc.
DATA: lt_reposrc TYPE STANDARD TABLE OF ty_reposrc WITH DEFAULT KEY, DATA: lt_reposrc TYPE STANDARD TABLE OF ty_reposrc WITH DEFAULT KEY,
ls_reposrc LIKE LINE OF lt_reposrc, ls_reposrc LIKE LINE OF lt_reposrc,
lv_program TYPE program, lv_program TYPE program,
lv_tabix LIKE sy-tabix, lv_offset_ns TYPE i,
lt_functab TYPE ty_rs38l_incl_tt. lv_tabix LIKE sy-tabix,
lt_functab TYPE ty_rs38l_incl_tt.
FIELD-SYMBOLS: <lv_include> LIKE LINE OF rt_includes, FIELD-SYMBOLS: <lv_include> LIKE LINE OF rt_includes,
<ls_func> LIKE LINE OF lt_functab. <ls_func> LIKE LINE OF lt_functab.
@ -464,15 +465,15 @@ CLASS lcl_object_fugr IMPLEMENTATION.
* handle generated maintenance views * handle generated maintenance views
APPEND INITIAL LINE TO rt_includes ASSIGNING <lv_include>. APPEND INITIAL LINE TO rt_includes ASSIGNING <lv_include>.
if ms_item-obj_name(1) <> '/'. IF ms_item-obj_name(1) <> '/'.
"FGroup name does not contain a namespace "FGroup name does not contain a namespace
<lv_include> = |L{ ms_item-obj_name }T00|. <lv_include> = |L{ ms_item-obj_name }T00|.
else. ELSE.
"FGroup name contains a namespace "FGroup name contains a namespace
lv_offset_ns = find( val = ms_item-obj_name+1 sub = '/' ). lv_offset_ns = find( val = ms_item-obj_name+1 sub = '/' ).
lv_offset_ns = lv_offset_ns + 2. lv_offset_ns = lv_offset_ns + 2.
<lv_include> = |{ ms_item-obj_name(lv_offset_ns) }L{ ms_item-obj_name+lv_offset_ns }T00|. <lv_include> = |{ ms_item-obj_name(lv_offset_ns) }L{ ms_item-obj_name+lv_offset_ns }T00|.
endif. ENDIF.
IF lines( rt_includes ) > 0. IF lines( rt_includes ) > 0.
SELECT progname cnam FROM reposrc SELECT progname cnam FROM reposrc