mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
Add exceptions to TR_TADIR_INTERFACE
(#5617)
Better support for debugging
This commit is contained in:
parent
da24dba592
commit
bb13a1ff10
|
@ -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.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user