Add exceptions to TR_TADIR_INTERFACE (#5617)

Better support for debugging
This commit is contained in:
Marc Bernard 2022-06-05 21:29:04 +02:00 committed by GitHub
parent da24dba592
commit bb13a1ff10
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -342,17 +342,40 @@ CLASS zcl_abapgit_objects_super IMPLEMENTATION.
CALL FUNCTION 'TR_TADIR_INTERFACE' CALL FUNCTION 'TR_TADIR_INTERFACE'
EXPORTING EXPORTING
wi_test_modus = abap_false wi_test_modus = abap_false
wi_tadir_pgmid = 'R3TR' wi_tadir_pgmid = 'R3TR'
wi_tadir_object = ms_item-obj_type wi_tadir_object = ms_item-obj_type
wi_tadir_obj_name = ms_item-obj_name wi_tadir_obj_name = ms_item-obj_name
wi_tadir_author = sy-uname wi_tadir_author = sy-uname
wi_tadir_devclass = iv_package wi_tadir_devclass = iv_package
wi_tadir_masterlang = mv_language wi_tadir_masterlang = mv_language
iv_delflag = abap_false iv_delflag = abap_false
EXCEPTIONS EXCEPTIONS
OTHERS = 1. tadir_entry_not_existing = 1
tadir_entry_ill_type = 2
no_systemname = 3
no_systemtype = 4
original_system_conflict = 5
object_reserved_for_devclass = 6
object_exists_global = 7
object_exists_local = 8
object_is_distributed = 9
obj_specification_not_unique = 10
no_authorization_to_delete = 11
devclass_not_existing = 12
simultanious_set_remove_repair = 13
order_missing = 14
no_modification_of_head_syst = 15
pgmid_object_not_allowed = 16
masterlanguage_not_specified = 17
devclass_not_specified = 18
specify_owner_unique = 19
loc_priv_objs_no_repair = 20
gtadir_not_reached = 21
object_locked_for_order = 22
change_of_class_not_allowed = 23
no_change_from_sap_to_tmp = 24
OTHERS = 25.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ). zcx_abapgit_exception=>raise_t100( ).
ENDIF. ENDIF.