内容: 当某公司有多个平行系统时,比如 多个dev ,但是部署在不同服务器。有时候需要传输请求至其它系统。
PS:传输至同系统中的不同client 用TCODE: SCC1.
*&---------------------------------------------------------------------*
*& Report ZTRANS_TR
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztrans_tr.
INCLUDE ztrans_tr_top.
INCLUDE ztrans_tr_form.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_tr-low.
PERFORM frm_value_trkorr.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_dfname.
* PERFORM frm_upload_file.
* call f4-help
PERFORM frm_valreq_ftfront USING
'1000'
'Quelldatei auf Frontend'(007).
START-OF-SELECTION.
PERFORM frm_get_data.
PERFORM frm_down_file.
*&---------------------------------------------------------------------*
*& Form FRM_VALUE_TRKORR
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_value_trkorr .
DATA: lv_trfunctions LIKE trpari-w_longstat,
lv_trstatus LIKE trpari-w_longstat,
lv_trkorr TYPE e070-trkorr,
ls_dynpfield LIKE dynpread,
lt_dynpfields LIKE dynpread OCCURS 0.
lv_trfunctions = sctsc_types_all.
lv_trstatus = sctsc_states_changeable.
GET CURSOR FIELD ls_dynpfield-fieldname.
APPEND ls_dynpfield TO lt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = 'ZTRANS_TR'
dynumb = sy-dynnr
TABLES
dynpfields = lt_dynpfields.
READ TABLE lt_dynpfields INTO ls_dynpfield INDEX 1.
lv_trkorr = ls_dynpfield-fieldvalue.
CALL FUNCTION 'TR_F4_REQUESTS'
EXPORTING
iv_username = space
iv_trkorr_pattern = lv_trkorr
iv_trfunctions = lv_trfunctions
iv_trstatus = lv_trstatus
IMPORTING