Thanks to visit codestin.com
Credit goes to www.scribd.com

Scribd
Upload
100 views5 pages

TR EntriesPgm

This document contains code to transport data between systems. It calls functions to select a transport request, append object and key entries to the transport, and add the data to the transport request. The code gets a transport request number, creates object and key records with the request number, fills tables with the records, and calls a function to append the tables to the transport.

Uploaded by

Srinivas Borra
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
100 views5 pages

TR EntriesPgm

This document contains code to transport data between systems. It calls functions to select a transport request, append object and key entries to the transport, and add the data to the transport request. The code gets a transport request number, creates object and key records with the request number, fills tables with the records, and calls a function to append the tables to the transport.

Uploaded by

Srinivas Borra
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 5

*&---------------------------------------------------------------------*

*& Report CLIENT_INFO_TRANSPORT *


*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZSAMLE_TR_ADD_DATA.

*PARAMETERS: p_req TYPE trkorr. "W22K900273

DATA: it_e071 TYPE tr_objects,


it_e071k TYPE tr_keys,
wa_e071 TYPE e071,
wa_e071k TYPE e071k.
data : q_req TYPE E070-TRKORR.
data : p_req TYPE E070-TRKORR.
CALL FUNCTION 'TR_ORDER_CHOICE_CORRECTION'
* EXPORTING
* IV_CATEGORY = 'CUST'
* IV_CLI_DEP = 'X'
IMPORTING
EV_ORDER = q_req
EV_TASK = P_req
* EXCEPTIONS
* INVALID_CATEGORY = 1
* NO_CORRECTION_SELECTED = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

* Create Object entry.


wa_e071-trkorr = P_req.
wa_e071-pgmid = 'R3TR'.
wa_e071-object = 'TABU'.
wa_e071-obj_name = 'ZSAMPLE5'.
wa_e071-objfunc = 'K'.
* Create Key entry.
wa_e071k-trkorr = P_req.
wa_e071k-pgmid = 'R3TR'.
wa_e071k-object = 'TABU'.
wa_e071k-objname = 'ZSAMPLE5'.
wa_e071k-tabkey = '*'.
wa_e071k-mastertype = 'TABU'.
wa_e071k-mastername = 'ZSAMPLE5'.

*clear: l_e071k_wa.
* l_e071k_wa-pgmid = 'R3TR'.
* l_e071k_wa-object = 'TABU'.
* l_e071k_wa-objname = 'zsample5'. "'MOB_DEVCFG'.
* l_e071k_wa-tabkey = devcfg_wa-cid.
* l_e071k_wa-mastertype = 'TABU'.
* l_e071k_wa-mastername = 'zsample5'. "'MOB_DEVCFG'.
* append l_e071k_wa to lt_e071k.
* Fill tables.
APPEND wa_e071 TO it_e071.
APPEND wa_e071k TO it_e071k.

* Add table entries to the transport.

call function 'TR_APPEND_TO_COMM_OBJS_KEYS'


exporting
* WI_SIMULATION = 'X'
wi_suppress_key_check = 'X'
wi_trkorr = P_req
tables
wt_e071 = it_e071
wt_e071k = it_e071k
* exceptions
.
if sy-subrc = 0.
endif.
*CALL FUNCTION 'TR_REQUEST_CHOICE'
* EXPORTING
* iv_suppress_dialog = 'X'
* iv_request_types = 'W'
* iv_request = P_req
* it_e071 = it_e071
* it_e071k = it_e071k
* iv_lock_objects = ' '
* iv_with_error_log = 'X'
* iv_no_owner_check = 'X'
* 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.

You might also like