Easing the pain in TMS - using transport of copies

[daniel_lippmann5]

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.