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:
