Easing the pain in TMS – using transport of copies
Maybe you know the problem – QA queue is full of old requests, nobody knows which one is relevant (sometimes the programmer isn’t even working for your company any more). The answer is transport of copies! This way, you can test your programs in qa system without filling the qa queue with requests – when your program is working, you release the original request and import it in production.
Educating programmers is the next step. But how about automation? SAP delivers BAdI CTS_REQUEST_CHECK with method CHECK_BEFORE_RELEASE – just implement it and you can do various checks before releasing requests. First you have to check the transport type – just use a case condition:
CASE type. WHEN 'K' OR 'W'.
This way, only workbench and customizing requests are taken in account – the BAdI ignores everything else including tasks.
Creating transport of copies
First, you need a popup to decide whether changes are final:
CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = 'Final?' text_question = 'Are your developments final?' text_button_1 = 'Final'(001) text_button_2 = 'ToC'(002) IMPORTING answer = lv_answer EXCEPTIONS text_not_found = 1 OTHERS = 2.
To create a new request, you can use FM TR_INSERT_REQUEST_WITH_TASKS:
CALL FUNCTION 'TR_INSERT_REQUEST_WITH_TASKS' EXPORTING iv_type = 'T' iv_text = lv_new_text iv_owner = owner iv_target = tarsystem IMPORTING es_request_header = lv_request_header et_task_headers = lv_task_headers EXCEPTIONS insert_failed = 1 enqueue_failed = 2 OTHERS = 3.
T stands for transport of copies, I create a new description with “[TvK]<old text>” to see which transport was created by BAdI. owner andtarsystem is taken from original request. Next step is to copy all objects:
CALL FUNCTION 'TR_COPY_COMM' EXPORTING wi_dialog = abap_false wi_trkorr_from = request wi_trkorr_to = lv_request_header-trkorr wi_without_documentation = abap_false EXCEPTIONS db_access_error = 1 trkorr_from_not_exist = 2 trkorr_to_is_repair = 3 trkorr_to_locked = 4 trkorr_to_not_exist = 5 trkorr_to_released = 6 user_not_owner = 7 no_authorization = 8 wrong_client = 9 wrong_category = 10 object_not_patchable = 11 OTHERS = 12.
TR_COPY_COMM copies all objects in background.
Releasing and importing the created transport
Next step is to release your request, ignoring object locks:
CALL FUNCTION 'TRINT_RELEASE_REQUEST' EXPORTING iv_trkorr = lv_request_header-trkorr iv_dialog = ' ' iv_without_locking = 'X' IMPORTING es_request = lv_request et_deleted_tasks = lt_deleted_tasks et_messages = lt_messages EXCEPTIONS cts_initialization_failure = 1 enqueue_failed = 2 no_authorization = 3 invalid_request = 4 request_already_released = 5 repeat_too_early = 6 object_lock_error = 7 object_check_error = 8 docu_missing = 9 db_access_error = 10 action_aborted_by_user = 11 export_failed = 12 execute_objects_check = 13 release_in_bg_mode = 14 release_in_bg_mode_w_objchk = 15 error_in_export_methods = 16 object_lang_error = 17 OTHERS = 18.
Other standard FMs don’t ignore object locks, so you need TRINT_RELEASE_REQUEST with the option iv_without_locking. Since adding to the target buffer can take some time, I advise to do a loop:
DO 5 TIMES. CALL FUNCTION 'TRINT_GET_LOG_OVERVIEW' EXPORTING iv_request = lv_request_header-trkorr iv_with_transport_targets = 'X' IMPORTING et_log_overview = lt_log_overview. lv_check = 0. LOOP AT lt_log_overview INTO wa_log_overview WHERE sysnam = '<sys>' AND rc = 'W'. ENDLOOP. IF sy-subrc = 0. lv_check = 1. ENDIF. IF lv_check = 1. EXIT. ENDIF. WAIT UP TO 1 SECONDS. ENDDO.
When everything is fine, you can import the created request:
CALL FUNCTION 'TMS_MGR_IMPORT_TR_REQUEST' EXPORTING iv_system = '<target SYSID>' iv_request = lv_request_header-trkorr iv_ignore_cvers = 'X' iv_monitor = ' ' iv_verbose = ' ' IMPORTING ev_tp_ret_code = lv_trretcode es_exception = wa_exception EXCEPTIONS read_config_failed = 1 table_of_requests_is_empty = 2 OTHERS = 3.