W3xx: Replace call with TADIR_INSERT (#5618)

This commit is contained in:
Marc Bernard 2022-06-06 07:48:10 +02:00 committed by GitHub
parent 7ba88d4345
commit 6e5f41277f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -289,44 +289,7 @@ CLASS zcl_abapgit_object_w3xx_super IMPLEMENTATION.
zcx_abapgit_exception=>raise( 'Cannot upload W3xx data' ). zcx_abapgit_exception=>raise( 'Cannot upload W3xx data' ).
ENDIF. ENDIF.
CONCATENATE 'W3' ms_key-relid INTO lv_tadir_obj. tadir_insert( iv_package ).
CALL FUNCTION 'TR_TADIR_INTERFACE'
EXPORTING
wi_tadir_pgmid = 'R3TR'
wi_tadir_object = lv_tadir_obj
wi_tadir_devclass = iv_package
wi_tadir_obj_name = ms_key-objid
wi_test_modus = space
EXCEPTIONS
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 = 99.
IF sy-subrc IS NOT INITIAL.
zcx_abapgit_exception=>raise( 'Cannot update TADIR for W3xx' ).
ENDIF.
corr_insert( iv_package ). corr_insert( iv_package ).