From d4cd7e2639ba759a9a5bdf5b9d4893c9ec053549 Mon Sep 17 00:00:00 2001 From: Christian Guenter Date: Sun, 13 Jan 2019 08:37:37 +0100 Subject: [PATCH] ZCL_ABAPGIT_OBJECTS: optimize with sec.key --- src/zcl_abapgit_objects.clas.abap | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/src/zcl_abapgit_objects.clas.abap b/src/zcl_abapgit_objects.clas.abap index abe967bf3..c90ffde6d 100644 --- a/src/zcl_abapgit_objects.clas.abap +++ b/src/zcl_abapgit_objects.clas.abap @@ -976,9 +976,11 @@ CLASS ZCL_ABAPGIT_OBJECTS IMPLEMENTATION. lt_overwrite = warning_overwrite_find( ct_results ). LOOP AT lt_overwrite ASSIGNING . - READ TABLE it_overwrite INTO ls_overwrite WITH KEY - obj_type = -obj_type - obj_name = -obj_name. + + READ TABLE it_overwrite INTO ls_overwrite + WITH TABLE KEY object_type_and_name + COMPONENTS obj_type = -obj_type + obj_name = -obj_name. IF sy-subrc <> 0 OR ls_overwrite-decision IS INITIAL. zcx_abapgit_exception=>raise( |Overwrite { -obj_type } { -obj_name } undecided| ). @@ -1035,9 +1037,11 @@ CLASS ZCL_ABAPGIT_OBJECTS IMPLEMENTATION. io_repo = io_repo ). LOOP AT lt_overwrite ASSIGNING . - READ TABLE it_overwrite INTO ls_overwrite WITH KEY - obj_type = -obj_type - obj_name = -obj_name. + + READ TABLE it_overwrite INTO ls_overwrite + WITH TABLE KEY object_type_and_name + COMPONENTS obj_type = -obj_type + obj_name = -obj_name. IF sy-subrc <> 0 OR ls_overwrite-decision IS INITIAL. zcx_abapgit_exception=>raise( |Overwrite odd package { -obj_type } { -obj_name } undecided| ).