SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +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
OTHERS = 7.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from SEO_INTERFACE_CREATE_COMPLETE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
add_intf_source_and_activate( ).
@ -236,7 +236,7 @@ CLASS zcl_abapgit_apack_migration IMPLEMENTATION.
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_WORKING_OBJECTS_ACTIVATE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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_task = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TASK_RESET. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -101,9 +100,8 @@ CLASS zcl_abapgit_default_transport IMPLEMENTATION.
invalid_category = 2
invalid_client = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TASK_GET. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_e070use INTO rs_default_task
@ -168,9 +166,8 @@ CLASS zcl_abapgit_default_transport IMPLEMENTATION.
invalid_order = 5
invalid_task = 6
OTHERS = 7.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TASK_SET. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -149,7 +149,7 @@ CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |FM TRINT_SELECT_OBJECTS subrc={ sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
INSERT LINES OF lt_objects INTO TABLE lt_objects_all.
@ -218,7 +218,7 @@ CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION.
invalid_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from TR_READ_REQUEST_WITH_TASKS' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -138,7 +138,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_ACTIVATION IMPLEMENTATION.
OTHERS = 5.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DD_MASS_ACT_C3' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF lv_rc > 0.
@ -327,7 +327,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_ACTIVATION IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from TR_READ_LOG' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -255,7 +255,7 @@ CLASS ZCL_ABAPGIT_OO_SERIALIZER IMPLEMENTATION.
class_not_existing = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from CL_OO_SOURCE. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from SOTR_OBJECT_GET_OBJECTS. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE lt_objects INDEX 1 INTO lv_object.
@ -111,7 +111,7 @@ CLASS zcl_abapgit_sotr_handler IMPLEMENTATION.
no_entry_found = 18
OTHERS = 19.
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.
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
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error creating CL_AAB_ID object' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
METHODS:
clear_fields
@ -389,7 +390,7 @@ CLASS zcl_abapgit_object_amsd IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -588,7 +588,7 @@ CLASS ZCL_ABAPGIT_OBJECT_BDEF IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -266,7 +266,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHAR IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS, CHAR| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -100,7 +100,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1
OTHERS = 2.
IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
@ -116,7 +116,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1
OTHERS = 2.
IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
@ -132,7 +132,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1
OTHERS = 2.
IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
@ -148,7 +148,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1
OTHERS = 2.
IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
@ -164,7 +164,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CHDO IMPLEMENTATION.
tadir_entry_not_existing = 1
OTHERS = 2.
IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ).
zcx_abapgit_exception=>raise_t100( ).
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.
@ -128,7 +128,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CMPT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -201,7 +201,7 @@ CLASS ZCL_ABAPGIT_OBJECT_CMPT IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS, CMPT| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CUS0' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CUS0' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -180,7 +180,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DIAL IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_DIALOG_SHOW, DIAL| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -78,7 +78,7 @@ CLASS ZCL_ABAPGIT_OBJECT_DOCV IMPLEMENTATION.
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DOCU_DEL' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_PUT @TEXTS' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
@ -282,7 +282,7 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_PUT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
deserialize_texts( ii_xml = io_xml
@ -364,7 +364,7 @@ CLASS zcl_abapgit_object_doma IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0 OR ls_dd01v IS INITIAL.
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_GET' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
METHODS:
clear_fields
@ -52,8 +53,76 @@ CLASS zcl_abapgit_object_drul DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ENDCLASS.
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.
super->constructor(
@ -73,6 +142,96 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
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.
DATA:
@ -262,7 +421,7 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -316,160 +475,4 @@ CLASS zcl_abapgit_object_drul IMPLEMENTATION.
iv_string = lv_source ).
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.

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

@ -214,7 +214,7 @@ CLASS zcl_abapgit_object_dsys IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DSYS_EDIT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
METHODS:
clear_fields
@ -52,8 +53,76 @@ CLASS zcl_abapgit_object_dtdc DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ENDCLASS.
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.
super->constructor(
@ -73,6 +142,96 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION.
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.
DATA:
@ -263,7 +422,7 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -317,160 +476,4 @@ CLASS zcl_abapgit_object_dtdc IMPLEMENTATION.
iv_string = lv_source ).
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.

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

@ -82,7 +82,7 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from DDIF_DTEL_PUT @TEXTS, { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
@ -206,7 +206,7 @@ CLASS zcl_abapgit_object_dtel IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from DDIF_DTEL_PUT, { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -215,7 +215,6 @@ CLASS ZCL_ABAPGIT_OBJECT_ECATT_SUPER IMPLEMENTATION.
lo_upload TYPE REF TO cl_apl_ecatt_upload,
li_upload TYPE REF TO zif_abapgit_ecatt_upload,
lv_xml TYPE xstring,
lv_text TYPE string,
li_document TYPE REF TO if_ixml_document,
lv_version TYPE string,
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 ).
CATCH cx_ecatt INTO lx_error.
lv_text = lx_error->get_text( ).
zcx_abapgit_exception=>raise( lv_text ).
zcx_abapgit_exception=>raise( lx_error->get_text( ) ).
ENDTRY.
ENDMETHOD.
@ -575,7 +573,7 @@ CLASS ZCL_ABAPGIT_OBJECT_ECATT_SUPER IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error { sy-subrc } from RS_TOOL_ACCESS | ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_ENQU_PUT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
zcl_abapgit_objects_activation=>add_item( ms_item ).
@ -160,7 +160,7 @@ CLASS zcl_abapgit_object_enqu IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_ENQU_GET' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF ls_dd25v IS INITIAL.
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
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
DATA:
mv_toggle_id TYPE c LENGTH 40, "sftgl_ft_id
@ -31,6 +32,21 @@ ENDCLASS.
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.
super->constructor(
@ -162,7 +178,7 @@ CLASS zcl_abapgit_object_ftgl IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |FTGL Jump Error. RS_TOOL_ACCESS subrc={ sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -208,20 +224,4 @@ CLASS zcl_abapgit_object_ftgl IMPLEMENTATION.
ig_data = <lg_toggle> ).
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.

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
OTHERS = 12.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from FUNCTION_INCLUDE_SPLIT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
iv_short_text = lv_stext ).
WHEN OTHERS.
zcx_abapgit_exception=>raise( |error from RS_FUNCTION_POOL_INSERT, code: { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDCASE.
ENDMETHOD.
@ -479,7 +479,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
function_pool_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_FUNCTION_POOL_CONTENTS for { lv_area }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
* The result can also contain function which are lowercase.
@ -742,7 +742,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
area_length_error = 11
OTHERS = 12.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from FUNCTION_INCLUDE_SPLIT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CONCATENATE lv_namespace 'SAPL' lv_group INTO rv_program.
@ -1037,7 +1037,7 @@ CLASS zcl_abapgit_object_fugr IMPLEMENTATION.
cancelled = 9
OTHERS = 10.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_FUNCTION_POOL_DELETE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -364,7 +364,7 @@ CLASS ZCL_ABAPGIT_OBJECT_IASP IMPLEMENTATION.
invalid_object_type = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from RS_TOOL_ACCESS. Subrc={ sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -152,7 +152,7 @@ CLASS ZCL_ABAPGIT_OBJECT_JOBD IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_OBJECT_JUMP_TO_TOOL, JOBD| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.

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

@ -301,7 +301,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
OTHERS = 1.
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.
lv_access_granted = abap_true.
@ -321,7 +321,7 @@ CLASS zcl_abapgit_object_msag IMPLEMENTATION.
IF lv_access_granted = abap_true.
free_access_permission( lv_message_id ).
ENDIF.
zcx_abapgit_exception=>raise( 'Error from (copy of) RS_DELETE_MESSAGE_ID' )."can't access
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 9.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_INTERVAL_LIST' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF lines( lt_list ) = 0.
@ -68,7 +68,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
object_not_found = 1
OTHERS = 2.
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.
CALL FUNCTION 'NUMBER_RANGE_UPDATE_CLOSE'
@ -79,7 +79,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
object_not_initialized = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_UPDATE_CLOSE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -140,7 +140,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
wrong_indicator = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_DELETE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -173,7 +173,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
wrong_indicator = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_UPDATE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
tadir_insert( iv_package ).
@ -185,7 +185,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
EXCEPTIONS
object_not_initialized = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_CLOSE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -287,7 +287,7 @@ CLASS zcl_abapgit_object_nrob IMPLEMENTATION.
IF sy-subrc = 1.
RETURN.
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_READ' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS, CHAR| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -89,7 +89,7 @@ CLASS ZCL_ABAPGIT_OBJECT_PARA IMPLEMENTATION.
type = 'CR'.
ENDIF.
ELSE.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION 'RS_ACCESS_PERMISSION'
@ -137,7 +137,7 @@ CLASS ZCL_ABAPGIT_OBJECT_PARA IMPLEMENTATION.
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, PARA' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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'
actualize_working_area = 'X'.
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_DELETE_PROGRAM: { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -186,7 +186,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SCP1 locking error| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -269,7 +269,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
database_error = 4
OTHERS = 5.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error saving SCP1, { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -319,7 +319,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
error_in_transport_layer = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error saving SCP1, { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from STREE_HIERARCHY_SAVE, SHI3' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -82,7 +82,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SHLP IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_SHLP_PUT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
zcl_abapgit_objects_activation=>add_item( ms_item ).
@ -164,7 +164,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SHLP IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_SHLP_GET' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF ls_dd30v IS INITIAL.
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.
@ -62,7 +62,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SHMA IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -147,7 +147,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 26
OTHERS = 27 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from change_node. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -169,7 +169,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from service_from_url. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -232,7 +232,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 26
OTHERS = 27 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from insert_node: { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -270,7 +270,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from get_info_from_serv. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ASSERT lines( lt_serv_info ) = 1.
@ -434,7 +434,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SICF IMPLEMENTATION.
no_authority = 11
OTHERS = 12 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SICF - error from delete_node. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -310,7 +310,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SMTG IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |SMTG Jump Error. RS_TOOL_ACCESS subrc={ sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -199,7 +199,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SOTS IMPLEMENTATION.
OTHERS = 7.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error in BTFR_DELETE_SINGLE_TEXT subrc={ sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
@ -338,7 +338,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SOTS IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS Subrc={ sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -167,7 +167,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SRFC IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_TOOL_ACCESS' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
zcx_abapgit_exception.
PROTECTED SECTION.
PRIVATE SECTION.
METHODS:
clear_fields
@ -34,6 +35,43 @@ ENDCLASS.
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.
super->constructor(
@ -52,6 +90,7 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
DATA:
@ -206,7 +245,7 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -247,41 +286,4 @@ CLASS zcl_abapgit_object_srvb IMPLEMENTATION.
ig_data = <ls_service_binding> ).
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.

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

@ -37,6 +37,79 @@ ENDCLASS.
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.
super->constructor(
@ -55,6 +128,7 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
DATA:
@ -197,7 +271,7 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |RC={ sy-subrc } from RS_TOOL_ACCESS| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -250,77 +324,4 @@ CLASS zcl_abapgit_object_srvd IMPLEMENTATION.
iv_string = lv_source ).
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.

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

@ -215,8 +215,8 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION.
EXCEPTIONS
no_form = 1
OTHERS = 2.
IF sy-subrc <> 0 AND sy-subrc <> 1.
zcx_abapgit_exception=>raise( 'Error from FB_DELETE_FORM' ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -64,7 +64,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
illegal_language = 6
OTHERS = 7.
IF sy-subrc <> 0 AND sy-subrc <> 2.
zcx_abapgit_exception=>raise( 'error from SSF_DELETE_STYLE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -131,7 +131,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
illegal_language = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SSF_ACTIVATE_STYLE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
@ -254,7 +254,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SSST IMPLEMENTATION.
IF sy-subrc = 2.
RETURN.
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SSF_READ_STYLE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -45,7 +45,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 5.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_IMPL_DELETE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -78,7 +78,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_BADI_READ' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lv_package = iv_package.
@ -109,7 +109,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_IMPL_SAVE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION 'SXO_IMPL_ACTIVE'
@ -127,7 +127,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 8.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_IMPL_ACTIVE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -193,7 +193,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_TOOL_ACCESS' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -223,7 +223,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXV_EXIT_FOR_IMP' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION 'SXO_BADI_READ'
@ -243,7 +243,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_BADI_READ' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION 'SXO_IMPL_FOR_BADI_READ'
@ -268,7 +268,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SXCI IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from SXO_IMPL_FOR_BADI_READ' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from TR_TADIR_INTERFACE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -366,7 +366,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |error from DDIF_TABL_PUT @TEXTS, { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDLOOP.
@ -734,7 +734,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_TABL_PUT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
zcl_abapgit_objects_activation=>add_item( ms_item ).
@ -765,7 +765,7 @@ CLASS zcl_abapgit_object_tabl IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from DDIF_INDX_PUT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
RETURN.
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from CTO_OBJECT_GET' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -50,7 +50,7 @@ CLASS ZCL_ABAPGIT_OBJECT_TYPE IMPLEMENTATION.
illegal_name = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_DD_TYGR_INSERT_SOURCES' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -241,7 +241,7 @@ CLASS ZCL_ABAPGIT_OBJECT_UCSA IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_TOOL_ACCESS' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
zcx_abapgit_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from RS_CORR_INSERT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
zcx_abapgit_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lv_objectname = ls_vcldir_entry-vclname.
@ -131,7 +131,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
object_enqueue_failed = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error in OBJ_GENERATE for VCLS' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -292,7 +292,7 @@ CLASS zcl_abapgit_object_vcls IMPLEMENTATION.
incomplete_viewcluster = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error in VIEWCLUSTER_GET_DEFINITION' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -230,7 +230,7 @@ CLASS ZCL_ABAPGIT_OBJECTS_GENERIC IMPLEMENTATION.
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CMPT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.

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

@ -289,7 +289,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
* 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.
zcl_abapgit_objects_activation=>add(
@ -409,10 +409,8 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
permission_failure = 2
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc = 1.
zcx_abapgit_exception=>raise( |Error from RS_CORR_INSERT, Cancelled, { sy-msgid }, { sy-msgno }| ).
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from RS_CORR_INSERT, { sy-msgid }, { sy-msgno }| ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'.
@ -739,7 +737,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
unknown_version = 2
OTHERS = 3.
IF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from RS_CUA_INTERNAL_FETCH, { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -777,7 +775,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
not_found = 1
OTHERS = 2.
IF sy-subrc = 2.
zcx_abapgit_exception=>raise( |Error from RS_SCREEN_LIST. Subrc = { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
SORT lt_d020s BY dnum ASCENDING.
@ -803,7 +801,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
permission_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error while reading dynpro: { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
"#2746: we need the dynpro fields in internal format:
@ -900,7 +898,7 @@ CLASS zcl_abapgit_objects_program IMPLEMENTATION.
RETURN.
ELSEIF sy-subrc <> 0.
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.
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.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from TR_TADIR_INTERFACE (subrc={ sy-subrc } ).| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -171,7 +171,7 @@ CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'migrate, error from DDIF_ENQU_PUT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lv_obj_name = zcl_abapgit_persistence_db=>c_lock.
@ -186,7 +186,7 @@ CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
CALL FUNCTION 'DDIF_ENQU_ACTIVATE'
@ -362,7 +362,7 @@ CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'migrate, error from DDIF_TABL_PUT' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lv_obj_name = zcl_abapgit_persistence_db=>c_tabname.
@ -377,7 +377,7 @@ CLASS ZCL_ABAPGIT_PERSIST_MIGRATE IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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.
@ -172,7 +172,7 @@ CLASS ZCL_ABAPGIT_PERSISTENCE_DB IMPLEMENTATION.
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Could not aquire lock { iv_type } { iv_value }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
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
OTHERS = 24 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from gui_download' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.
@ -135,7 +135,7 @@ CLASS zcl_abapgit_frontend_services IMPLEMENTATION.
not_supported_by_gui = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from "File Open" dialog' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF lv_action = cl_gui_frontend_services=>action_cancel.
zcx_abapgit_exception=>raise( 'Cancelled' ).
@ -177,7 +177,7 @@ CLASS zcl_abapgit_frontend_services IMPLEMENTATION.
not_supported_by_gui = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from "File Save" dialog' ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
IF lv_action = cl_gui_frontend_services=>action_cancel.
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.
RAISE EXCEPTION TYPE zcx_abapgit_cancel.
ELSEIF sy-subrc > 1.
zcx_abapgit_exception=>raise( |Error from TRINT_ORDER_CHOICE { sy-subrc }| ).
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDMETHOD.