WHEN 'TRAN'.

  PERFORM TRANSPORT_MARKED_LINES.

if not global_auth = extern_call.

     call function 'TR_REQUEST_CHOICE'

       exporting

         iv_request_types           = 'FTCOKW'

         iv_cli_dep                 = 'X'

         it_e071                    = lt_e071

         it_e071k                   = lt_e071k

         it_e071k_str               = lt_e071k_str

       exceptions

         invalid_request            = 1

         invalid_request_type       = 2

         user_not_owner             = 3

         no_objects_appended        = 4

         enqueue_error              = 5

         cancelled_by_user          = 6

         recursive_call             = 7

         others                     = 8.

       if sy-subrc <> 0.

         message id sy-msgid type sy-msgty number sy-msgno

                with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

       endif.

   endif.

PROCESS ON VALUE-REQUEST.

 FIELD ko008-trkorr       MODULE value_request_0400.

MODULE value_request_0400 INPUT.

 PERFORM show_own_requests.

 PERFORM update_dynp_values.

 PERFORM set_status_0400.

ENDMODULE.

 

How to show own request?

CALL FUNCTION 'TR_PRESENT_REQUESTS_SEL_POPUP'

   EXPORTING

     iv_organizer_type    = 'T'

     is_selection         = ls_selection

     iv_username          = sy-uname

     iv_title             = lv_title

     is_new_request_props = ls_new_request_props--FTCOKW

     iv_prog_top_of_page  = 'SAPLSTR8'

     iv_form_top_of_page  = 'WRITE_REASON_FOR_REQUEST_TYPE'

   IMPORTING

     es_selected_request  = ls_request

   EXCEPTIONS

     OTHERS               = 1.

Result: