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

Improve error messages (#4472)

Browse Source 
* Improve error messages

Pass T100 messages to UI/log

* T100 errors

* APACK

* OO

* DEVC

* DRUL

* DTDC

* SRVB

* OBJS

* Program

Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard 2021-02-03 10:31:55 -05:00 committed by GitHub
parent 13d3d0aac1
commit 73576ee60e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
59 changed files with 596 additions and 593 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/apack/zcl_abapgit_apack_migration.clas.abap
View File

@ -129,7 +129,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION.
other = 6 other = 6
OTHERS = 7. OTHERS = 7.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from SEO_INTERFACE_CREATE_COMPLETE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
add_intf_source_and_activate( ). add_intf_source_and_activate( ).
@ -236,7 +236,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION.
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_WORKING_OBJECTS_ACTIVATE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

9
src/cts/zcl_abapgit_default_transport.clas.abap
View File

@ -74,9 +74,8 @@ CLASS zcl_abapgit_default_transport IMPLEMENTATION.
invalid_order = 2 invalid_order = 2
invalid_task = 3 invalid_task = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TASK_RESET. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -101,9 +100,8 @@ CLASS zcl_abapgit_default_transport IMPLEMENTATION.
invalid_category = 2 invalid_category = 2
invalid_client = 3 invalid_client = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TASK_GET. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
READ TABLE lt_e070use INTO rs_default_task READ TABLE lt_e070use INTO rs_default_task
@ -168,9 +166,8 @@ CLASS zcl_abapgit_default_transport IMPLEMENTATION.
invalid_order = 5 invalid_order = 5
invalid_task = 6 invalid_task = 6
OTHERS = 7. OTHERS = 7.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TASK_SET. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

6
src/cts/zcl_abapgit_transport.clas.abap
View File

@ -60,7 +60,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION. CLASS zcl_abapgit_transport IMPLEMENTATION.
METHOD add_all_objects_to_trans_req. METHOD add_all_objects_to_trans_req.
@ -149,7 +149,7 @@ CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |FM TRINT_SELECT_OBJECTS subrc={ sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
INSERT LINES OF lt_objects INTO TABLE lt_objects_all. INSERT LINES OF lt_objects INTO TABLE lt_objects_all.
@ -218,7 +218,7 @@ CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION.
invalid_input = 1 invalid_input = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from TR_READ_REQUEST_WITH_TASKS' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
APPEND LINES OF lt_requests TO rt_requests. APPEND LINES OF lt_requests TO rt_requests.

6
src/objects/core/zcl_abapgit_objects_activation.clas.abap
View File

@ -61,7 +61,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECTS_ACTIVATION IMPLEMENTATION. CLASS zcl_abapgit_objects_activation IMPLEMENTATION.
METHOD activate. METHOD activate.
@ -138,7 +138,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_ACTIVATION IMPLEMENTATION.
OTHERS = 5. OTHERS = 5.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DD_MASS_ACT_C3' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
IF lv_rc > 0. IF lv_rc > 0.
@ -327,7 +327,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_ACTIVATION IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from TR_READ_LOG' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
DELETE lt_lines WHERE severity <> 'E'. DELETE lt_lines WHERE severity <> 'E'.

4
src/objects/oo/zcl_abapgit_oo_serializer.clas.abap
View File

@ -84,7 +84,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OO_SERIALIZER IMPLEMENTATION. CLASS zcl_abapgit_oo_serializer IMPLEMENTATION.
METHOD are_test_classes_skipped. METHOD are_test_classes_skipped.
@ -255,7 +255,7 @@ CLASS ZCL_ABAPGIT_OO_SERIALIZER IMPLEMENTATION.
class_not_existing = 1 class_not_existing = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from CL_OO_SOURCE. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
lo_source->read( 'A' ). lo_source->read( 'A' ).

4
src/objects/texts/zcl_abapgit_sotr_handler.clas.abap
View File

@ -74,7 +74,7 @@ CLASS zcl_abapgit_sotr_handler IMPLEMENTATION.
object_not_found = 1 object_not_found = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from SOTR_OBJECT_GET_OBJECTS. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
READ TABLE lt_objects INDEX 1 INTO lv_object. READ TABLE lt_objects INDEX 1 INTO lv_object.
@ -111,7 +111,7 @@ CLASS zcl_abapgit_sotr_handler IMPLEMENTATION.
no_entry_found = 18 no_entry_found = 18
OTHERS = 19. OTHERS = 19.
IF sy-subrc <> 0 AND sy-subrc <> 5. IF sy-subrc <> 0 AND sy-subrc <> 5.
zcx_abapgit_exception=>raise( |Error from SOTR_CREATE_CONCEPT. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.

2
src/objects/zcl_abapgit_object_acid.clas.abap
View File

@ -31,7 +31,7 @@ CLASS zcl_abapgit_object_acid IMPLEMENTATION.
name_not_allowed = 1 name_not_allowed = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error creating CL_AAB_ID object' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

3
src/objects/zcl_abapgit_object_amsd.clas.abap
View File

@ -11,6 +11,7 @@ CLASS zcl_abapgit_object_amsd DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
METHODS: METHODS:
clear_fields clear_fields
@ -389,7 +390,7 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -57,7 +57,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_BDEF IMPLEMENTATION. CLASS zcl_abapgit_object_bdef IMPLEMENTATION.
METHOD clear_field. METHOD clear_field.
@ -588,7 +588,7 @@ CLASS ZCL_ABAPGIT_OBJECT_BDEF IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -31,7 +31,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_CHAR IMPLEMENTATION. CLASS zcl_abapgit_object_char IMPLEMENTATION.
METHOD instantiate_char_and_lock. METHOD instantiate_char_and_lock.
@ -266,7 +266,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHAR IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS, CHAR| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

12
src/objects/zcl_abapgit_object_chdo.clas.abap
View File

@ -41,7 +41,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION. CLASS zcl_abapgit_object_chdo IMPLEMENTATION.
METHOD after_import. METHOD after_import.
@ -100,7 +100,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1 tadir_entry_not_existing = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc > 1. IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -116,7 +116,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1 tadir_entry_not_existing = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc > 1. IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -132,7 +132,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1 tadir_entry_not_existing = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc > 1. IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -148,7 +148,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1 tadir_entry_not_existing = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc > 1. IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -164,7 +164,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1 tadir_entry_not_existing = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc > 1. IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDIF. ENDIF.

6
src/objects/zcl_abapgit_object_cmpt.clas.abap
View File

@ -18,7 +18,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION. CLASS zcl_abapgit_object_cmpt IMPLEMENTATION.
METHOD constructor. METHOD constructor.
@ -128,7 +128,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CMPT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -201,7 +201,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS, CMPT| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

2
src/objects/zcl_abapgit_object_cus0.clas.abap
View File

@ -96,7 +96,7 @@ CLASS zcl_abapgit_object_cus0 IMPLEMENTATION.
unknown_objectclass = 3 unknown_objectclass = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CUS0' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

2
src/objects/zcl_abapgit_object_cus1.clas.abap
View File

@ -114,7 +114,7 @@ CLASS zcl_abapgit_object_cus1 IMPLEMENTATION.
unknown_objectclass = 3 unknown_objectclass = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CUS0' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -20,7 +20,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_DIAL IMPLEMENTATION. CLASS zcl_abapgit_object_dial IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -180,7 +180,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DIAL IMPLEMENTATION.
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_DIALOG_SHOW, DIAL| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -23,7 +23,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_DOCV IMPLEMENTATION. CLASS zcl_abapgit_object_docv IMPLEMENTATION.
METHOD read. METHOD read.
@ -78,7 +78,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DOCV IMPLEMENTATION.
ret_code = 1 ret_code = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DOCU_DEL' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

6
src/objects/zcl_abapgit_object_doma.clas.abap
View File

@ -120,7 +120,7 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_PUT @TEXTS' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
@ -282,7 +282,7 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_PUT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
deserialize_texts( ii_xml = io_xml deserialize_texts( ii_xml = io_xml
@ -364,7 +364,7 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION.
illegal_input = 1 illegal_input = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0 OR ls_dd01v IS INITIAL. IF sy-subrc <> 0 OR ls_dd01v IS INITIAL.
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_GET' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CLEAR: ls_dd01v-as4user, CLEAR: ls_dd01v-as4user,

317
src/objects/zcl_abapgit_object_drul.clas.abap
View File

@ -11,6 +11,7 @@ CLASS zcl_abapgit_object_drul DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
METHODS: METHODS:
clear_fields clear_fields
@ -52,8 +53,76 @@ CLASS zcl_abapgit_object_drul DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_drul IMPLEMENTATION. CLASS zcl_abapgit_object_drul IMPLEMENTATION.
METHOD clear_field.
FIELD-SYMBOLS: <lv_value> TYPE data.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_dependency_rule
TO <lv_value>.
ASSERT sy-subrc = 0.
CLEAR: <lv_value>.
ENDMETHOD.
METHOD clear_fields.
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_AT'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_BY'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_AT'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_BY'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-MASTER_LANGUAGE'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-RESPONSIBLE'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-PACKAGE_REF'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'CONTENT-SOURCE'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
ENDMETHOD.
METHOD constructor. METHOD constructor.
super->constructor( super->constructor(
@ -73,6 +142,96 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD fill_metadata_from_db.
DATA:
li_wb_object_operator TYPE REF TO object,
lr_dependency_rule_old TYPE REF TO data.
FIELD-SYMBOLS:
<ls_dependency_rule_old> TYPE any,
<lv_created_at> TYPE xsddatetime_z,
<lv_created_by> TYPE syuname,
<lv_created_at_old> TYPE xsddatetime_z,
<lv_created_by_old> TYPE syuname.
li_wb_object_operator = get_wb_object_operator( ).
CREATE DATA lr_dependency_rule_old TYPE ('CL_DRUL_WB_OBJECT_DATA=>TY_OBJECT_DATA').
ASSIGN lr_dependency_rule_old->* TO <ls_dependency_rule_old>.
ASSERT sy-subrc = 0.
CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ')
IMPORTING
data = <ls_dependency_rule_old>.
ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE cs_dependency_rule
TO <lv_created_by>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_AT' OF STRUCTURE cs_dependency_rule
TO <lv_created_at>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE <ls_dependency_rule_old>
TO <lv_created_by_old>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_AT' OF STRUCTURE <ls_dependency_rule_old>
TO <lv_created_at_old>.
ASSERT sy-subrc = 0.
<lv_created_at> = <lv_created_at_old>.
<lv_created_by> = <lv_created_by_old>.
ENDMETHOD.
METHOD get_transport_req_if_needed.
DATA: li_sap_package TYPE REF TO zif_abapgit_sap_package.
li_sap_package = zcl_abapgit_factory=>get_sap_package( iv_package ).
IF li_sap_package->are_changes_recorded_in_tr_req( ) = abap_true.
rv_transport_request = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
ENDIF.
ENDMETHOD.
METHOD get_wb_object_operator.
DATA:
ls_object_type TYPE wbobjtype,
lx_error TYPE REF TO cx_root.
IF mi_wb_object_operator IS BOUND.
ri_wb_object_operator = mi_wb_object_operator.
ENDIF.
ls_object_type-objtype_tr = 'DRUL'.
ls_object_type-subtype_wb = 'DRL'.
TRY.
CALL METHOD ('CL_WB_OBJECT_OPERATOR')=>('CREATE_INSTANCE')
EXPORTING
object_type = ls_object_type
object_key = mv_dependency_rule_key
RECEIVING
result = mi_wb_object_operator.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise(
iv_text = lx_error->get_text( )
ix_previous = lx_error ).
ENDTRY.
ri_wb_object_operator = mi_wb_object_operator.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: DATA:
@ -262,7 +421,7 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -316,160 +475,4 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
iv_string = lv_source ). iv_string = lv_source ).
ENDMETHOD. ENDMETHOD.
METHOD fill_metadata_from_db.
DATA:
li_wb_object_operator TYPE REF TO object,
lr_dependency_rule_old TYPE REF TO data.
FIELD-SYMBOLS:
<ls_dependency_rule_old> TYPE any,
<lv_created_at> TYPE xsddatetime_z,
<lv_created_by> TYPE syuname,
<lv_created_at_old> TYPE xsddatetime_z,
<lv_created_by_old> TYPE syuname.
li_wb_object_operator = get_wb_object_operator( ).
CREATE DATA lr_dependency_rule_old TYPE ('CL_DRUL_WB_OBJECT_DATA=>TY_OBJECT_DATA').
ASSIGN lr_dependency_rule_old->* TO <ls_dependency_rule_old>.
ASSERT sy-subrc = 0.
CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ')
IMPORTING
data = <ls_dependency_rule_old>.
ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE cs_dependency_rule
TO <lv_created_by>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_AT' OF STRUCTURE cs_dependency_rule
TO <lv_created_at>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE <ls_dependency_rule_old>
TO <lv_created_by_old>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_AT' OF STRUCTURE <ls_dependency_rule_old>
TO <lv_created_at_old>.
ASSERT sy-subrc = 0.
<lv_created_at> = <lv_created_at_old>.
<lv_created_by> = <lv_created_by_old>.
ENDMETHOD.
METHOD get_transport_req_if_needed.
DATA: li_sap_package TYPE REF TO zif_abapgit_sap_package.
li_sap_package = zcl_abapgit_factory=>get_sap_package( iv_package ).
IF li_sap_package->are_changes_recorded_in_tr_req( ) = abap_true.
rv_transport_request = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
ENDIF.
ENDMETHOD.
METHOD get_wb_object_operator.
DATA:
ls_object_type TYPE wbobjtype,
lx_error TYPE REF TO cx_root.
IF mi_wb_object_operator IS BOUND.
ri_wb_object_operator = mi_wb_object_operator.
ENDIF.
ls_object_type-objtype_tr = 'DRUL'.
ls_object_type-subtype_wb = 'DRL'.
TRY.
CALL METHOD ('CL_WB_OBJECT_OPERATOR')=>('CREATE_INSTANCE')
EXPORTING
object_type = ls_object_type
object_key = mv_dependency_rule_key
RECEIVING
result = mi_wb_object_operator.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise(
iv_text = lx_error->get_text( )
ix_previous = lx_error ).
ENDTRY.
ri_wb_object_operator = mi_wb_object_operator.
ENDMETHOD.
METHOD clear_field.
FIELD-SYMBOLS: <lv_value> TYPE data.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_dependency_rule
TO <lv_value>.
ASSERT sy-subrc = 0.
CLEAR: <lv_value>.
ENDMETHOD.
METHOD clear_fields.
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_AT'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_BY'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_AT'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_BY'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-MASTER_LANGUAGE'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-RESPONSIBLE'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-PACKAGE_REF'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
clear_field(
EXPORTING
iv_fieldname = 'CONTENT-SOURCE'
CHANGING
cs_dependency_rule = cs_dependency_rule ).
ENDMETHOD.
ENDCLASS. ENDCLASS.

2
src/objects/zcl_abapgit_object_dsys.clas.abap
View File

@ -214,7 +214,7 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DSYS_EDIT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

317
src/objects/zcl_abapgit_object_dtdc.clas.abap
View File

@ -11,6 +11,7 @@ CLASS zcl_abapgit_object_dtdc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
METHODS: METHODS:
clear_fields clear_fields
@ -52,8 +53,76 @@ CLASS zcl_abapgit_object_dtdc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ENDCLASS. ENDCLASS.
CLASS zcl_abapgit_object_dtdc IMPLEMENTATION. CLASS zcl_abapgit_object_dtdc IMPLEMENTATION.
METHOD clear_field.
FIELD-SYMBOLS: <lv_value> TYPE data.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_dynamic_cache
TO <lv_value>.
ASSERT sy-subrc = 0.
CLEAR: <lv_value>.
ENDMETHOD.
METHOD clear_fields.
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_AT'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_BY'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_AT'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_BY'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-MASTER_LANGUAGE'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-RESPONSIBLE'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-PACKAGE_REF'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'CONTENT-SOURCE'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
ENDMETHOD.
METHOD constructor. METHOD constructor.
super->constructor( super->constructor(
@ -73,6 +142,96 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD fill_metadata_from_db.
DATA:
li_wb_object_operator TYPE REF TO object,
lr_dynamic_cache_old TYPE REF TO data.
FIELD-SYMBOLS:
<ls_dynamic_cache_old> TYPE any,
<lv_created_at> TYPE xsddatetime_z,
<lv_created_by> TYPE syuname,
<lv_created_at_old> TYPE xsddatetime_z,
<lv_created_by_old> TYPE syuname.
li_wb_object_operator = get_wb_object_operator( ).
CREATE DATA lr_dynamic_cache_old TYPE ('CL_DTDC_WB_OBJECT_DATA=>TY_DTDC_OBJECT_DATA').
ASSIGN lr_dynamic_cache_old->* TO <ls_dynamic_cache_old>.
ASSERT sy-subrc = 0.
CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ')
IMPORTING
data = <ls_dynamic_cache_old>.
ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE cs_dynamic_cache
TO <lv_created_by>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_AT' OF STRUCTURE cs_dynamic_cache
TO <lv_created_at>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE <ls_dynamic_cache_old>
TO <lv_created_by_old>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_AT' OF STRUCTURE <ls_dynamic_cache_old>
TO <lv_created_at_old>.
ASSERT sy-subrc = 0.
<lv_created_at> = <lv_created_at_old>.
<lv_created_by> = <lv_created_by_old>.
ENDMETHOD.
METHOD get_transport_req_if_needed.
DATA: li_sap_package TYPE REF TO zif_abapgit_sap_package.
li_sap_package = zcl_abapgit_factory=>get_sap_package( iv_package ).
IF li_sap_package->are_changes_recorded_in_tr_req( ) = abap_true.
rv_transport_request = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
ENDIF.
ENDMETHOD.
METHOD get_wb_object_operator.
DATA:
ls_object_type TYPE wbobjtype,
lx_error TYPE REF TO cx_root.
IF mi_wb_object_operator IS BOUND.
ri_wb_object_operator = mi_wb_object_operator.
ENDIF.
ls_object_type-objtype_tr = 'DTDC'.
ls_object_type-subtype_wb = 'DF'.
TRY.
CALL METHOD ('CL_WB_OBJECT_OPERATOR')=>('CREATE_INSTANCE')
EXPORTING
object_type = ls_object_type
object_key = mv_dynamic_cache_key
RECEIVING
result = mi_wb_object_operator.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise(
iv_text = lx_error->get_text( )
ix_previous = lx_error ).
ENDTRY.
ri_wb_object_operator = mi_wb_object_operator.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: DATA:
@ -263,7 +422,7 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -317,160 +476,4 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION.
iv_string = lv_source ). iv_string = lv_source ).
ENDMETHOD. ENDMETHOD.
METHOD fill_metadata_from_db.
DATA:
li_wb_object_operator TYPE REF TO object,
lr_dynamic_cache_old TYPE REF TO data.
FIELD-SYMBOLS:
<ls_dynamic_cache_old> TYPE any,
<lv_created_at> TYPE xsddatetime_z,
<lv_created_by> TYPE syuname,
<lv_created_at_old> TYPE xsddatetime_z,
<lv_created_by_old> TYPE syuname.
li_wb_object_operator = get_wb_object_operator( ).
CREATE DATA lr_dynamic_cache_old TYPE ('CL_DTDC_WB_OBJECT_DATA=>TY_DTDC_OBJECT_DATA').
ASSIGN lr_dynamic_cache_old->* TO <ls_dynamic_cache_old>.
ASSERT sy-subrc = 0.
CALL METHOD li_wb_object_operator->('IF_WB_OBJECT_OPERATOR~READ')
IMPORTING
data = <ls_dynamic_cache_old>.
ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE cs_dynamic_cache
TO <lv_created_by>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_AT' OF STRUCTURE cs_dynamic_cache
TO <lv_created_at>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_BY' OF STRUCTURE <ls_dynamic_cache_old>
TO <lv_created_by_old>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'METADATA-CREATED_AT' OF STRUCTURE <ls_dynamic_cache_old>
TO <lv_created_at_old>.
ASSERT sy-subrc = 0.
<lv_created_at> = <lv_created_at_old>.
<lv_created_by> = <lv_created_by_old>.
ENDMETHOD.
METHOD get_transport_req_if_needed.
DATA: li_sap_package TYPE REF TO zif_abapgit_sap_package.
li_sap_package = zcl_abapgit_factory=>get_sap_package( iv_package ).
IF li_sap_package->are_changes_recorded_in_tr_req( ) = abap_true.
rv_transport_request = zcl_abapgit_default_transport=>get_instance( )->get( )-ordernum.
ENDIF.
ENDMETHOD.
METHOD get_wb_object_operator.
DATA:
ls_object_type TYPE wbobjtype,
lx_error TYPE REF TO cx_root.
IF mi_wb_object_operator IS BOUND.
ri_wb_object_operator = mi_wb_object_operator.
ENDIF.
ls_object_type-objtype_tr = 'DTDC'.
ls_object_type-subtype_wb = 'DF'.
TRY.
CALL METHOD ('CL_WB_OBJECT_OPERATOR')=>('CREATE_INSTANCE')
EXPORTING
object_type = ls_object_type
object_key = mv_dynamic_cache_key
RECEIVING
result = mi_wb_object_operator.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise(
iv_text = lx_error->get_text( )
ix_previous = lx_error ).
ENDTRY.
ri_wb_object_operator = mi_wb_object_operator.
ENDMETHOD.
METHOD clear_field.
FIELD-SYMBOLS: <lv_value> TYPE data.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_dynamic_cache
TO <lv_value>.
ASSERT sy-subrc = 0.
CLEAR: <lv_value>.
ENDMETHOD.
METHOD clear_fields.
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_AT'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_BY'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_AT'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_BY'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-MASTER_LANGUAGE'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-RESPONSIBLE'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-PACKAGE_REF'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
clear_field(
EXPORTING
iv_fieldname = 'CONTENT-SOURCE'
CHANGING
cs_dynamic_cache = cs_dynamic_cache ).
ENDMETHOD.
ENDCLASS. ENDCLASS.

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

@ -82,7 +82,7 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from DDIF_DTEL_PUT @TEXTS, { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
@ -206,7 +206,7 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from DDIF_DTEL_PUT, { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
deserialize_texts( ii_xml = io_xml deserialize_texts( ii_xml = io_xml

8
src/objects/zcl_abapgit_object_ecatt_super.clas.abap
View File

@ -136,7 +136,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_ECATT_SUPER IMPLEMENTATION. CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
METHOD clear_attributes. METHOD clear_attributes.
@ -215,7 +215,6 @@ CLASS ZCL_ABAPGIT_OBJECT_ECATT_SUPER IMPLEMENTATION.
lo_upload TYPE REF TO cl_apl_ecatt_upload, lo_upload TYPE REF TO cl_apl_ecatt_upload,
li_upload TYPE REF TO zif_abapgit_ecatt_upload, li_upload TYPE REF TO zif_abapgit_ecatt_upload,
lv_xml TYPE xstring, lv_xml TYPE xstring,
lv_text TYPE string,
li_document TYPE REF TO if_ixml_document, li_document TYPE REF TO if_ixml_document,
lv_version TYPE string, lv_version TYPE string,
lx_error TYPE REF TO cx_ecatt. lx_error TYPE REF TO cx_ecatt.
@ -246,8 +245,7 @@ CLASS ZCL_ABAPGIT_OBJECT_ECATT_SUPER IMPLEMENTATION.
lo_upload->upload( CHANGING ch_object = ls_object ). lo_upload->upload( CHANGING ch_object = ls_object ).
CATCH cx_ecatt INTO lx_error. CATCH cx_ecatt INTO lx_error.
lv_text = lx_error->get_text( ). zcx_abapgit_exception=>raise( lx_error->get_text( ) ).
zcx_abapgit_exception=>raise( lv_text ).
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.
@ -575,7 +573,7 @@ CLASS ZCL_ABAPGIT_OBJECT_ECATT_SUPER IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error { sy-subrc } from RS_TOOL_ACCESS | ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -82,7 +82,7 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_ENQU_PUT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
zcl_abapgit_objects_activation=>add_item( ms_item ). zcl_abapgit_objects_activation=>add_item( ms_item ).
@ -160,7 +160,7 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION.
illegal_input = 1 illegal_input = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_ENQU_GET' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
IF ls_dd25v IS INITIAL. IF ls_dd25v IS INITIAL.
RETURN. " does not exist in system RETURN. " does not exist in system

34
src/objects/zcl_abapgit_object_ftgl.clas.abap
View File

@ -12,6 +12,7 @@ CLASS zcl_abapgit_object_ftgl DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
DATA: DATA:
mv_toggle_id TYPE c LENGTH 40, "sftgl_ft_id mv_toggle_id TYPE c LENGTH 40, "sftgl_ft_id
@ -31,6 +32,21 @@ ENDCLASS.
CLASS zcl_abapgit_object_ftgl IMPLEMENTATION. CLASS zcl_abapgit_object_ftgl IMPLEMENTATION.
METHOD clear_field.
FIELD-SYMBOLS: <lg_field> TYPE data.
ASSIGN
COMPONENT iv_fieldname
OF STRUCTURE cg_header
TO <lg_field>.
ASSERT sy-subrc = 0.
CLEAR: <lg_field>.
ENDMETHOD.
METHOD constructor. METHOD constructor.
super->constructor( super->constructor(
@ -162,7 +178,7 @@ CLASS zcl_abapgit_object_ftgl IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |FTGL Jump Error. RS_TOOL_ACCESS subrc={ sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -208,20 +224,4 @@ CLASS zcl_abapgit_object_ftgl IMPLEMENTATION.
ig_data = <lg_toggle> ). ig_data = <lg_toggle> ).
ENDMETHOD. ENDMETHOD.
METHOD clear_field.
FIELD-SYMBOLS: <lg_field> TYPE data.
ASSIGN
COMPONENT iv_fieldname
OF STRUCTURE cg_header
TO <lg_field>.
ASSERT sy-subrc = 0.
CLEAR: <lg_field>.
ENDMETHOD.
ENDCLASS. ENDCLASS.

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

@ -417,7 +417,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
area_length_error = 11 area_length_error = 11
OTHERS = 12. OTHERS = 12.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from FUNCTION_INCLUDE_SPLIT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ii_xml->read( EXPORTING iv_name = 'AREAT' ii_xml->read( EXPORTING iv_name = 'AREAT'
@ -456,7 +456,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
update_func_group_short_text( iv_group = lv_group update_func_group_short_text( iv_group = lv_group
iv_short_text = lv_stext ). iv_short_text = lv_stext ).
WHEN OTHERS. WHEN OTHERS.
zcx_abapgit_exception=>raise( |error from RS_FUNCTION_POOL_INSERT, code: { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDCASE. ENDCASE.
ENDMETHOD. ENDMETHOD.
@ -479,7 +479,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
function_pool_not_found = 1 function_pool_not_found = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_FUNCTION_POOL_CONTENTS for { lv_area }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
* The result can also contain function which are lowercase. * The result can also contain function which are lowercase.
@ -742,7 +742,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
area_length_error = 11 area_length_error = 11
OTHERS = 12. OTHERS = 12.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from FUNCTION_INCLUDE_SPLIT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CONCATENATE lv_namespace 'SAPL' lv_group INTO rv_program. CONCATENATE lv_namespace 'SAPL' lv_group INTO rv_program.
@ -1037,7 +1037,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
cancelled = 9 cancelled = 9
OTHERS = 10. OTHERS = 10.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_FUNCTION_POOL_DELETE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
update_where_used( lt_includes ). update_where_used( lt_includes ).

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

@ -69,7 +69,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_IASP IMPLEMENTATION. CLASS zcl_abapgit_object_iasp IMPLEMENTATION.
METHOD constructor. METHOD constructor.
@ -364,7 +364,7 @@ CLASS ZCL_ABAPGIT_OBJECT_IASP IMPLEMENTATION.
invalid_object_type = 2 invalid_object_type = 2
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from RS_TOOL_ACCESS. Subrc={ sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -11,7 +11,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_JOBD IMPLEMENTATION. CLASS zcl_abapgit_object_jobd IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -152,7 +152,7 @@ CLASS ZCL_ABAPGIT_OBJECT_JOBD IMPLEMENTATION.
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_OBJECT_JUMP_TO_TOOL, JOBD| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -301,7 +301,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
OTHERS = 1. OTHERS = 1.
IF sy-subrc <> 0 OR lv_frozen <> space. IF sy-subrc <> 0 OR lv_frozen <> space.
zcx_abapgit_exception=>raise( 'Error from (copy of) RS_DELETE_MESSAGE_ID' )."can't access zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
lv_access_granted = abap_true. lv_access_granted = abap_true.
@ -321,7 +321,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
IF lv_access_granted = abap_true. IF lv_access_granted = abap_true.
free_access_permission( lv_message_id ). free_access_permission( lv_message_id ).
ENDIF. ENDIF.
zcx_abapgit_exception=>raise( 'Error from (copy of) RS_DELETE_MESSAGE_ID' )."can't access zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
delete_msgid( lv_message_id ). delete_msgid( lv_message_id ).

14
src/objects/zcl_abapgit_object_nrob.clas.abap
View File

@ -43,7 +43,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
subobject_not_found = 8 subobject_not_found = 8
OTHERS = 9. OTHERS = 9.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_INTERVAL_LIST' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
IF lines( lt_list ) = 0. IF lines( lt_list ) = 0.
@ -68,7 +68,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
object_not_found = 1 object_not_found = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0 OR lv_error = abap_true. IF sy-subrc <> 0 OR lv_error = abap_true.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_INTERVAL_UPDATE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL FUNCTION 'NUMBER_RANGE_UPDATE_CLOSE' CALL FUNCTION 'NUMBER_RANGE_UPDATE_CLOSE'
@ -79,7 +79,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
object_not_initialized = 2 object_not_initialized = 2
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_UPDATE_CLOSE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -140,7 +140,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
wrong_indicator = 3 wrong_indicator = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_DELETE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -173,7 +173,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
wrong_indicator = 5 wrong_indicator = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_UPDATE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
tadir_insert( iv_package ). tadir_insert( iv_package ).
@ -185,7 +185,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
EXCEPTIONS EXCEPTIONS
object_not_initialized = 1. object_not_initialized = 1.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_CLOSE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -287,7 +287,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
IF sy-subrc = 1. IF sy-subrc = 1.
RETURN. RETURN.
ELSEIF sy-subrc <> 0. ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_READ' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
io_xml->add( iv_name = 'ATTRIBUTES' io_xml->add( iv_name = 'ATTRIBUTES'

2
src/objects/zcl_abapgit_object_otgr.clas.abap
View File

@ -238,7 +238,7 @@ CLASS zcl_abapgit_object_otgr IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS, CHAR| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

6
src/objects/zcl_abapgit_object_para.clas.abap
View File

@ -10,7 +10,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_PARA IMPLEMENTATION. CLASS zcl_abapgit_object_para IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -89,7 +89,7 @@ CLASS ZCL_ABAPGIT_OBJECT_PARA IMPLEMENTATION.
type = 'CR'. type = 'CR'.
ENDIF. ENDIF.
ELSE. ELSE.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL FUNCTION 'RS_ACCESS_PERMISSION' CALL FUNCTION 'RS_ACCESS_PERMISSION'
@ -137,7 +137,7 @@ CLASS ZCL_ABAPGIT_OBJECT_PARA IMPLEMENTATION.
unknown_objectclass = 3 unknown_objectclass = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, PARA' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
MODIFY tpara FROM ls_tpara. "#EC CI_SUBRC MODIFY tpara FROM ls_tpara. "#EC CI_SUBRC

2
src/objects/zcl_abapgit_object_prog.clas.abap
View File

@ -154,7 +154,7 @@ CLASS zcl_abapgit_object_prog IMPLEMENTATION.
immediate = 'X' immediate = 'X'
actualize_working_area = 'X'. actualize_working_area = 'X'.
ELSEIF sy-subrc <> 0. ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_DELETE_PROGRAM: { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
delete_longtexts( c_longtext_id_prog ). delete_longtexts( c_longtext_id_prog ).

8
src/objects/zcl_abapgit_object_scp1.clas.abap
View File

@ -55,7 +55,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION. CLASS zcl_abapgit_object_scp1 IMPLEMENTATION.
METHOD adjust_inbound. METHOD adjust_inbound.
@ -186,7 +186,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
system_failure = 2 system_failure = 2
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SCP1 locking error| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -269,7 +269,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
database_error = 4 database_error = 4
OTHERS = 5. OTHERS = 5.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error saving SCP1, { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -319,7 +319,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
error_in_transport_layer = 2 error_in_transport_layer = 2
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error saving SCP1, { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

2
src/objects/zcl_abapgit_object_shi3.clas.abap
View File

@ -260,7 +260,7 @@ CLASS zcl_abapgit_object_shi3 IMPLEMENTATION.
no_nodes_given = 1 no_nodes_given = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from STREE_HIERARCHY_SAVE, SHI3' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

6
src/objects/zcl_abapgit_object_shlp.clas.abap
View File

@ -10,7 +10,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SHLP IMPLEMENTATION. CLASS zcl_abapgit_object_shlp IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -82,7 +82,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SHLP IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_SHLP_PUT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
zcl_abapgit_objects_activation=>add_item( ms_item ). zcl_abapgit_objects_activation=>add_item( ms_item ).
@ -164,7 +164,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SHLP IMPLEMENTATION.
illegal_input = 1 illegal_input = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_SHLP_GET' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
IF ls_dd30v IS INITIAL. IF ls_dd30v IS INITIAL.
RETURN. " does not exist in system RETURN. " does not exist in system

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

@ -9,7 +9,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SHMA IMPLEMENTATION. CLASS zcl_abapgit_object_shma IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -62,7 +62,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SHMA IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL METHOD ('\PROGRAM=SAPMSHM_MONITOR\CLASS=LCL_SHMM')=>('FREE_AREA_BY_NAME') CALL METHOD ('\PROGRAM=SAPMSHM_MONITOR\CLASS=LCL_SHMM')=>('FREE_AREA_BY_NAME')

12
src/objects/zcl_abapgit_object_sicf.clas.abap
View File

@ -83,7 +83,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION. CLASS zcl_abapgit_object_sicf IMPLEMENTATION.
METHOD change_sicf. METHOD change_sicf.
@ -147,7 +147,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 26 no_authority = 26
OTHERS = 27 ). OTHERS = 27 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from change_node. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -169,7 +169,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 5 no_authority = 5
OTHERS = 6 ). OTHERS = 6 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from service_from_url. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -232,7 +232,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 26 no_authority = 26
OTHERS = 27 ). OTHERS = 27 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from insert_node: { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -270,7 +270,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 4 no_authority = 4
OTHERS = 5 ). OTHERS = 5 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from get_info_from_serv. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ASSERT lines( lt_serv_info ) = 1. ASSERT lines( lt_serv_info ) = 1.
@ -434,7 +434,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 11 no_authority = 11
OTHERS = 12 ). OTHERS = 12 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from delete_node. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -43,7 +43,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SMTG IMPLEMENTATION. CLASS zcl_abapgit_object_smtg IMPLEMENTATION.
METHOD add_component. METHOD add_component.
@ -310,7 +310,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SMTG IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SMTG Jump Error. RS_TOOL_ACCESS subrc={ sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

6
src/objects/zcl_abapgit_object_sots.clas.abap
View File

@ -40,7 +40,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SOTS IMPLEMENTATION. CLASS zcl_abapgit_object_sots IMPLEMENTATION.
METHOD create_sots. METHOD create_sots.
@ -199,7 +199,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SOTS IMPLEMENTATION.
OTHERS = 7. OTHERS = 7.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error in BTFR_DELETE_SINGLE_TEXT subrc={ sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
@ -338,7 +338,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SOTS IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS Subrc={ sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

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

@ -9,7 +9,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SRFC IMPLEMENTATION. CLASS zcl_abapgit_object_srfc IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -167,7 +167,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SRFC IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_TOOL_ACCESS' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

78
src/objects/zcl_abapgit_object_srvb.clas.abap
View File

@ -11,6 +11,7 @@ CLASS zcl_abapgit_object_srvb DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
RAISING RAISING
zcx_abapgit_exception. zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
METHODS: METHODS:
clear_fields clear_fields
@ -34,6 +35,43 @@ ENDCLASS.
CLASS zcl_abapgit_object_srvb IMPLEMENTATION. CLASS zcl_abapgit_object_srvb IMPLEMENTATION.
METHOD clear_field.
FIELD-SYMBOLS: <lv_value> TYPE data.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_service_binding
TO <lv_value>.
ASSERT sy-subrc = 0.
CLEAR: <lv_value>.
ENDMETHOD.
METHOD clear_fields.
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_AT'
CHANGING
cs_service_binding = cs_service_binding ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_BY'
CHANGING
cs_service_binding = cs_service_binding ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-LANGUAGE'
CHANGING
cs_service_binding = cs_service_binding ).
ENDMETHOD.
METHOD constructor. METHOD constructor.
super->constructor( super->constructor(
@ -52,6 +90,7 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: DATA:
@ -206,7 +245,7 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -247,41 +286,4 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION.
ig_data = <ls_service_binding> ). ig_data = <ls_service_binding> ).
ENDMETHOD. ENDMETHOD.
METHOD clear_fields.
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_AT'
CHANGING
cs_service_binding = cs_service_binding ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_BY'
CHANGING
cs_service_binding = cs_service_binding ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-LANGUAGE'
CHANGING
cs_service_binding = cs_service_binding ).
ENDMETHOD.
METHOD clear_field.
FIELD-SYMBOLS: <lv_value> TYPE data.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_service_binding
TO <lv_value>.
ASSERT sy-subrc = 0.
CLEAR: <lv_value>.
ENDMETHOD.
ENDCLASS. ENDCLASS.

149
src/objects/zcl_abapgit_object_srvd.clas.abap
View File

@ -37,6 +37,79 @@ ENDCLASS.
CLASS zcl_abapgit_object_srvd IMPLEMENTATION. CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
METHOD clear_field.
FIELD-SYMBOLS: <lv_value> TYPE data.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_service_definition
TO <lv_value>.
ASSERT sy-subrc = 0.
CLEAR: <lv_value>.
ENDMETHOD.
METHOD clear_fields.
clear_field(
EXPORTING
iv_fieldname = 'CONTENT-SOURCE'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_AT'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_BY'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_AT'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_BY'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-MASTER_LANGUAGE'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-RESPONSIBLE'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-DT_UUID'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-PACKAGE_REF-NAME'
CHANGING
cs_service_definition = cs_service_definition ).
ENDMETHOD.
METHOD constructor. METHOD constructor.
super->constructor( super->constructor(
@ -55,6 +128,7 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
DATA: DATA:
@ -197,7 +271,7 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -250,77 +324,4 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
iv_string = lv_source ). iv_string = lv_source ).
ENDMETHOD. ENDMETHOD.
METHOD clear_fields.
clear_field(
EXPORTING
iv_fieldname = 'CONTENT-SOURCE'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_AT'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CREATED_BY'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_AT'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-CHANGED_BY'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-MASTER_LANGUAGE'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-RESPONSIBLE'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-DT_UUID'
CHANGING
cs_service_definition = cs_service_definition ).
clear_field(
EXPORTING
iv_fieldname = 'METADATA-PACKAGE_REF-NAME'
CHANGING
cs_service_definition = cs_service_definition ).
ENDMETHOD.
METHOD clear_field.
FIELD-SYMBOLS: <lv_value> TYPE data.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_service_definition
TO <lv_value>.
ASSERT sy-subrc = 0.
CLEAR: <lv_value>.
ENDMETHOD.
ENDCLASS. ENDCLASS.

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

@ -215,8 +215,8 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
EXCEPTIONS EXCEPTIONS
no_form = 1 no_form = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0 AND sy-subrc <> 1. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from FB_DELETE_FORM' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

8
src/objects/zcl_abapgit_object_ssst.clas.abap
View File

@ -15,7 +15,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION. CLASS zcl_abapgit_object_ssst IMPLEMENTATION.
METHOD validate_font. METHOD validate_font.
@ -64,7 +64,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
illegal_language = 6 illegal_language = 6
OTHERS = 7. OTHERS = 7.
IF sy-subrc <> 0 AND sy-subrc <> 2. IF sy-subrc <> 0 AND sy-subrc <> 2.
zcx_abapgit_exception=>raise( 'error from SSF_DELETE_STYLE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -131,7 +131,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
illegal_language = 5 illegal_language = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SSF_ACTIVATE_STYLE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDIF. ENDIF.
@ -254,7 +254,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
IF sy-subrc = 2. IF sy-subrc = 2.
RETURN. RETURN.
ELSEIF sy-subrc <> 0. ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SSF_READ_STYLE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CLEAR ls_header-version. CLEAR ls_header-version.

18
src/objects/zcl_abapgit_object_sxci.clas.abap
View File

@ -17,7 +17,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION. CLASS zcl_abapgit_object_sxci IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by. METHOD zif_abapgit_object~changed_by.
@ -45,7 +45,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 5. OTHERS = 5.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_IMPL_DELETE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -78,7 +78,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_BADI_READ' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
lv_package = iv_package. lv_package = iv_package.
@ -109,7 +109,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_IMPL_SAVE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL FUNCTION 'SXO_IMPL_ACTIVE' CALL FUNCTION 'SXO_IMPL_ACTIVE'
@ -127,7 +127,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 8. OTHERS = 8.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_IMPL_ACTIVE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -193,7 +193,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_TOOL_ACCESS' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -223,7 +223,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXV_EXIT_FOR_IMP' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL FUNCTION 'SXO_BADI_READ' CALL FUNCTION 'SXO_BADI_READ'
@ -243,7 +243,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_BADI_READ' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL FUNCTION 'SXO_IMPL_FOR_BADI_READ' CALL FUNCTION 'SXO_IMPL_FOR_BADI_READ'
@ -268,7 +268,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_IMPL_FOR_BADI_READ' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CLEAR: ls_classic_badi_implementation-implementation_data-aname, CLEAR: ls_classic_badi_implementation-implementation_data-aname,

8
src/objects/zcl_abapgit_object_tabl.clas.abap
View File

@ -319,7 +319,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
EXCEPTIONS EXCEPTIONS
OTHERS = 1. OTHERS = 1.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from TR_TADIR_INTERFACE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -366,7 +366,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from DDIF_TABL_PUT @TEXTS, { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDLOOP. ENDLOOP.
@ -734,7 +734,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_TABL_PUT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
zcl_abapgit_objects_activation=>add_item( ms_item ). zcl_abapgit_objects_activation=>add_item( ms_item ).
@ -765,7 +765,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_INDX_PUT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL FUNCTION 'DD_DD_TO_E071' CALL FUNCTION 'DD_DD_TO_E071'

2
src/objects/zcl_abapgit_object_tobj.clas.abap
View File

@ -299,7 +299,7 @@ CLASS zcl_abapgit_object_tobj IMPLEMENTATION.
IF sy-subrc = 1. IF sy-subrc = 1.
RETURN. RETURN.
ELSEIF sy-subrc <> 0. ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from CTO_OBJECT_GET' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CLEAR: ls_objh-luser, CLEAR: ls_objh-luser,

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

@ -23,7 +23,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_TYPE IMPLEMENTATION. CLASS zcl_abapgit_object_type IMPLEMENTATION.
METHOD create. METHOD create.
@ -50,7 +50,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TYPE IMPLEMENTATION.
illegal_name = 5 illegal_name = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_DD_TYGR_INSERT_SOURCES' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CONCATENATE c_prefix lv_typegroup INTO lv_progname. CONCATENATE c_prefix lv_typegroup INTO lv_progname.

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

@ -35,7 +35,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_UCSA IMPLEMENTATION. CLASS zcl_abapgit_object_ucsa IMPLEMENTATION.
METHOD clear_dynamic_fields. METHOD clear_dynamic_fields.
@ -241,7 +241,7 @@ CLASS ZCL_ABAPGIT_OBJECT_UCSA IMPLEMENTATION.
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_TOOL_ACCESS' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

2
src/objects/zcl_abapgit_object_udmo.clas.abap
View File

@ -215,7 +215,7 @@ CLASS zcl_abapgit_object_udmo IMPLEMENTATION.
IF sy-subrc = 1. IF sy-subrc = 1.
zcx_abapgit_exception=>raise( 'Cancelled' ). zcx_abapgit_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0. ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from RS_CORR_INSERT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

6
src/objects/zcl_abapgit_object_vcls.clas.abap
View File

@ -113,7 +113,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
IF sy-subrc = 1. IF sy-subrc = 1.
zcx_abapgit_exception=>raise( 'Cancelled' ). zcx_abapgit_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0. ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
lv_objectname = ls_vcldir_entry-vclname. lv_objectname = ls_vcldir_entry-vclname.
@ -131,7 +131,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
object_enqueue_failed = 5 object_enqueue_failed = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error in OBJ_GENERATE for VCLS' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -292,7 +292,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
incomplete_viewcluster = 2 incomplete_viewcluster = 2
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error in VIEWCLUSTER_GET_DEFINITION' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
SORT lt_vclstrudep BY vclname object objfield. SORT lt_vclstrudep BY vclname object objfield.

2
src/objects/zcl_abapgit_object_wdyn.clas.abap
View File

@ -141,7 +141,7 @@ CLASS zcl_abapgit_object_wdyn IMPLEMENTATION.
object_not_found = 1 object_not_found = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
LOOP AT lt_objects ASSIGNING <ls_object>. LOOP AT lt_objects ASSIGNING <ls_object>.

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

@ -105,7 +105,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECTS_GENERIC IMPLEMENTATION. CLASS zcl_abapgit_objects_generic IMPLEMENTATION.
METHOD after_import. METHOD after_import.
@ -230,7 +230,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_GENERIC IMPLEMENTATION.
unknown_objectclass = 3 unknown_objectclass = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CMPT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

16
src/objects/zcl_abapgit_objects_program.clas.abap
View File

@ -289,7 +289,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
* if moving code from SAPlink, see https://github.com/abapGit/abapGit/issues/562 * if moving code from SAPlink, see https://github.com/abapGit/abapGit/issues/562
zcx_abapgit_exception=>raise( |Error from RS_CUA_INTERNAL_WRITE. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
zcl_abapgit_objects_activation=>add( zcl_abapgit_objects_activation=>add(
@ -409,10 +409,8 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
permission_failure = 2 permission_failure = 2
unknown_objectclass = 3 unknown_objectclass = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc = 1. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_CORR_INSERT, Cancelled, { sy-msgid }, { sy-msgno }| ). zcx_abapgit_exception=>raise_t100( ).
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_CORR_INSERT, { sy-msgid }, { sy-msgno }| ).
ENDIF. ENDIF.
READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'.
@ -739,7 +737,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
unknown_version = 2 unknown_version = 2
OTHERS = 3. OTHERS = 3.
IF sy-subrc > 1. IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from RS_CUA_INTERNAL_FETCH, { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -777,7 +775,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
not_found = 1 not_found = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc = 2. IF sy-subrc = 2.
zcx_abapgit_exception=>raise( |Error from RS_SCREEN_LIST. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
SORT lt_d020s BY dnum ASCENDING. SORT lt_d020s BY dnum ASCENDING.
@ -803,7 +801,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
permission_error = 3 permission_error = 3
OTHERS = 4. OTHERS = 4.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error while reading dynpro: { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
"#2746: we need the dynpro fields in internal format: "#2746: we need the dynpro fields in internal format:
@ -900,7 +898,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
RETURN. RETURN.
ELSEIF sy-subrc <> 0. ELSEIF sy-subrc <> 0.
zcl_abapgit_language=>restore_login_language( ). zcl_abapgit_language=>restore_login_language( ).
zcx_abapgit_exception=>raise( |Error reading program with RPY_PROGRAM_READ. Subrc = { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
zcl_abapgit_language=>restore_login_language( ). zcl_abapgit_language=>restore_login_language( ).

2
src/objects/zcl_abapgit_objects_super.clas.abap
View File

@ -403,7 +403,7 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
OTHERS = 1. OTHERS = 1.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.

10
src/persist/zcl_abapgit_persist_migrate.clas.abap
View File

@ -60,7 +60,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION. CLASS zcl_abapgit_persist_migrate IMPLEMENTATION.
METHOD distribute_settings_to_users. METHOD distribute_settings_to_users.
@ -171,7 +171,7 @@ CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'migrate, error from DDIF_ENQU_PUT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
lv_obj_name = zcl_abapgit_persistence_db=>c_lock. lv_obj_name = zcl_abapgit_persistence_db=>c_lock.
@ -186,7 +186,7 @@ CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
EXCEPTIONS EXCEPTIONS
OTHERS = 1. OTHERS = 1.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL FUNCTION 'DDIF_ENQU_ACTIVATE' CALL FUNCTION 'DDIF_ENQU_ACTIVATE'
@ -362,7 +362,7 @@ CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
put_refused = 5 put_refused = 5
OTHERS = 6. OTHERS = 6.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'migrate, error from DDIF_TABL_PUT' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
lv_obj_name = zcl_abapgit_persistence_db=>c_tabname. lv_obj_name = zcl_abapgit_persistence_db=>c_tabname.
@ -377,7 +377,7 @@ CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
EXCEPTIONS EXCEPTIONS
OTHERS = 1. OTHERS = 1.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
CALL FUNCTION 'DDIF_TABL_ACTIVATE' CALL FUNCTION 'DDIF_TABL_ACTIVATE'

4
src/persist/zcl_abapgit_persistence_db.clas.abap
View File

@ -85,7 +85,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION. CLASS zcl_abapgit_persistence_db IMPLEMENTATION.
METHOD add. METHOD add.
@ -172,7 +172,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION.
system_failure = 2 system_failure = 2
OTHERS = 3. OTHERS = 3.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Could not aquire lock { iv_type } { iv_value }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
lv_dummy_update_function = get_update_function( ). lv_dummy_update_function = get_update_function( ).

6
src/ui/zcl_abapgit_frontend_services.clas.abap
View File

@ -55,7 +55,7 @@ CLASS zcl_abapgit_frontend_services IMPLEMENTATION.
error_no_gui = 23 error_no_gui = 23
OTHERS = 24 ). OTHERS = 24 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from gui_download' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -135,7 +135,7 @@ CLASS zcl_abapgit_frontend_services IMPLEMENTATION.
not_supported_by_gui = 4 not_supported_by_gui = 4
OTHERS = 5 ). OTHERS = 5 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from "File Open" dialog' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
IF lv_action = cl_gui_frontend_services=>action_cancel. IF lv_action = cl_gui_frontend_services=>action_cancel.
zcx_abapgit_exception=>raise( 'Cancelled' ). zcx_abapgit_exception=>raise( 'Cancelled' ).
@ -177,7 +177,7 @@ CLASS zcl_abapgit_frontend_services IMPLEMENTATION.
not_supported_by_gui = 3 not_supported_by_gui = 3
OTHERS = 4 ). OTHERS = 4 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from "File Save" dialog' ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
IF lv_action = cl_gui_frontend_services=>action_cancel. IF lv_action = cl_gui_frontend_services=>action_cancel.
zcx_abapgit_exception=>raise( 'Cancelled' ). zcx_abapgit_exception=>raise( 'Cancelled' ).

2
src/ui/zcl_abapgit_popups.clas.abap
View File

@ -1206,7 +1206,7 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
IF sy-subrc = 1. IF sy-subrc = 1.
RAISE EXCEPTION TYPE zcx_abapgit_cancel. RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ELSEIF sy-subrc > 1. ELSEIF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TRINT_ORDER_CHOICE { sy-subrc }| ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.