From 238fdeb2e0418ca412aebec3e1d2a881e56647f8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Christian=20G=C3=BCnter?= Date: Sun, 5 Nov 2017 22:40:41 +0000 Subject: [PATCH] Extract method store_current_default_task --- src/zcl_abapgit_default_task.clas.abap | 64 +++++++++++++++----------- 1 file changed, 37 insertions(+), 27 deletions(-) diff --git a/src/zcl_abapgit_default_task.clas.abap b/src/zcl_abapgit_default_task.clas.abap index c0139b48d..ce295b16b 100644 --- a/src/zcl_abapgit_default_task.clas.abap +++ b/src/zcl_abapgit_default_task.clas.abap @@ -32,44 +32,26 @@ CLASS zcl_abapgit_default_task DEFINITION DATA: mv_task_is_set_by_abapgit TYPE abap_bool, ms_save_default_task TYPE e070use. - METHODS restore_old_default_task - RAISING - zcx_abapgit_exception. + METHODS: + store_current_default_task + RAISING + zcx_abapgit_exception, + + restore_old_default_task + RAISING + zcx_abapgit_exception. ENDCLASS. - CLASS zcl_abapgit_default_task IMPLEMENTATION. METHOD constructor. - DATA: lt_e070use TYPE STANDARD TABLE OF e070use. - - " Save the current default task to restore it later... - CALL FUNCTION 'TR_TASK_GET' - TABLES - tt_e070use = lt_e070use " Table of current settings - EXCEPTIONS - invalid_username = 1 - invalid_category = 2 - invalid_client = 3 - OTHERS = 4. - - IF sy-subrc <> 0. - zcx_abapgit_exception=>raise( |Error from TR_TASK_GET { sy-subrc }| ). - ENDIF. - - IF lines( lt_e070use ) = 0. - RETURN. - ENDIF. - - READ TABLE lt_e070use INTO ms_save_default_task - INDEX 1. + store_current_default_task( ). ENDMETHOD. - METHOD get_instance. IF mo_instance IS NOT BOUND. @@ -239,4 +221,32 @@ CLASS zcl_abapgit_default_task IMPLEMENTATION. ENDMETHOD. + + METHOD store_current_default_task. + + DATA: lt_e070use TYPE STANDARD TABLE OF e070use. + + " Save the current default task to restore it later... + CALL FUNCTION 'TR_TASK_GET' + TABLES + tt_e070use = lt_e070use " Table of current settings + EXCEPTIONS + invalid_username = 1 + invalid_category = 2 + invalid_client = 3 + OTHERS = 4. + + IF sy-subrc <> 0. + zcx_abapgit_exception=>raise( |Error from TR_TASK_GET { sy-subrc }| ). + ENDIF. + + IF lines( lt_e070use ) = 0. + RETURN. + ENDIF. + + READ TABLE lt_e070use INTO ms_save_default_task + INDEX 1. + + ENDMETHOD. + ENDCLASS.