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

Optimize order of uninstalling objects (#4148)

Browse Source 
- Add FUGR, CLAS, INTF into existing order of object types
- Also fixes BINARY search for DDLS dependencies

Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard 2020-11-10 00:36:22 -05:00 committed by GitHub
parent 3162b23c39
commit b519f7c989
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/zcl_abapgit_dependencies.clas.abap
View File

@ -49,7 +49,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_DEPENDENCIES IMPLEMENTATION. CLASS zcl_abapgit_dependencies IMPLEMENTATION.
METHOD get_ddls_dependencies. METHOD get_ddls_dependencies.
@ -125,6 +125,8 @@ CLASS ZCL_ABAPGIT_DEPENDENCIES IMPLEMENTATION.
WHEN 'ACID'. WHEN 'ACID'.
" ACID after PROG/FUGR/CLAS " ACID after PROG/FUGR/CLAS
<ls_tadir>-korrnum = '300000'. <ls_tadir>-korrnum = '300000'.
WHEN 'FUGR'.
<ls_tadir>-korrnum = '260000'.
WHEN 'PROG'. WHEN 'PROG'.
" delete includes after main programs " delete includes after main programs
SELECT COUNT(*) FROM reposrc SELECT COUNT(*) FROM reposrc
@ -132,10 +134,14 @@ CLASS ZCL_ABAPGIT_DEPENDENCIES IMPLEMENTATION.
AND r3state = 'A' AND r3state = 'A'
AND subc = 'I'. AND subc = 'I'.
IF sy-subrc = 0. IF sy-subrc = 0.
<ls_tadir>-korrnum = '200000'. <ls_tadir>-korrnum = '250000'.
ELSE. ELSE.
<ls_tadir>-korrnum = '180000'. <ls_tadir>-korrnum = '240000'.
ENDIF. ENDIF.
WHEN 'INTF'.
<ls_tadir>-korrnum = '230000'.
WHEN 'CLAS'.
<ls_tadir>-korrnum = '220000'.
WHEN 'IDOC'. WHEN 'IDOC'.
<ls_tadir>-korrnum = '200000'. <ls_tadir>-korrnum = '200000'.
WHEN 'WDCA'. WHEN 'WDCA'.
@ -253,6 +259,7 @@ CLASS ZCL_ABAPGIT_DEPENDENCIES IMPLEMENTATION.
ENDLOOP. ENDLOOP.
" build DDLS edges " build DDLS edges
SORT ct_tadir. "binary search
LOOP AT ct_tadir ASSIGNING <ls_tadir_ddls> LOOP AT ct_tadir ASSIGNING <ls_tadir_ddls>
WHERE object = 'DDLS'. WHERE object = 'DDLS'.