SAP ABAP 跨系统拷贝表数据
放这里免得忘记了:
一、在源系统放一个RFC函数ZPP_TABLE_GET来取数
FUNCTION ZPP_TABLE_GET.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(DATE) TYPE SY-DATUM
*" VALUE(ZZ_PLATFORM) TYPE ZZ_PLATFORM
*" TABLES
*" IT_ZTPP0001 STRUCTURE ZTPP0001 OPTIONAL
*" IT_ZTPP0002 STRUCTURE ZTPP0002 OPTIONAL
*" IT_ZTPP0003 STRUCTURE ZTPP0003 OPTIONAL
*" IT_ZTPP0004 STRUCTURE ZTPP0004 OPTIONAL
*" IT_ZTPP0006 STRUCTURE ZTPP0006 OPTIONAL
*" IT_ZTPP0008 STRUCTURE ZTPP0008 OPTIONAL
*" IT_ZTPP0009 STRUCTURE ZTPP0009 OPTIONAL
*" IT_ZTPP0005_PEL STRUCTURE ZTPP0005_PEL OPTIONAL
*" IT_ZTPP0005_SPACK STRUCTURE ZTPP0005_SPACK OPTIONAL
*"----------------------------------------------------------------------
*data:Z_REC_DATE like sy-datum VALUE '20181102'.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_ZTPP0001
FROM ZTPP0001
where Z_REC_DATE > DATE
* and Z_PLATFORM = ZZ_PLATFORM .
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_ZTPP0002
FROM ZTPP0002
where Z_REC_DATE > DATE
and Z_PLATFORM = ZZ_PLATFORM.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_ZTPP0003
FROM ZTPP0003
where Z_REC_DATE > DATE
* and Z_PLATFORM = ZZ_PLATFORM .
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_ZTPP0004
FROM ZTPP0004
where Z_REC_DATE > DATE
and Z_PLATFORM = ZZ_PLATFORM.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_ZTPP0006
FROM ZTPP0006
where Z_REC_DATE > DATE
* and Z_PLATFORM = ZZ_PLATFORM .
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_ZTPP0008
FROM ZTPP0008
where Z_REC_DATE > DATE
and Z_PLATFORM = ZZ_PLATFORM.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_ZTPP0009
FROM ZTPP0009
where Z_REC_DATE > DATE
and Z_PLATFORM = ZZ_PLATFORM.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE IT_ZTPP0005_PEL
FROM ZTPP0005_PEL
where Z_REC_DATE > DATE
and Z_PLATFORM = ZZ_PLATFORM.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE it_ZTPP0005_SPACK
FROM ZTPP0005_SPACK
where Z_REC_DATE > DATE
and Z_PLATFORM = ZZ_PLATFORM.
ENDFUNCTION.
二、在目标系统中,用一个程序去CALL RFC拿到数据,然后更新到本地表中
*&---------------------------------------------------------------------*
*& Report ZJAMES013_700
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZJAMES013_700.
DATA gt_ztpp0001 LIKE TABLE OF ztpp0001 .
DATA gt_ztpp0002 LIKE TABLE OF ztpp0002 .
DATA gt_ztpp0003 LIKE TABLE OF ztpp0003 .
DATA: result LIKE trexs_connection_check_result.
CALL FUNCTION 'TREX_RFC_CONNECT_CHECK_LOCAL'
EXPORTING
trex_destination = 'S4P600'
IMPORTING
local_result = result
EXCEPTIONS
system_failure = 1
communication_failure = 2
authority_not_available = 3
send_error = 4
OTHERS = 5.
IF result-error_code <> 0."无响应
MESSAGE '连接错误,请检查服务是否注册成功' TYPE 'E'.
ELSE.
CALL FUNCTION 'ZPP_TABLE_GET' DESTINATION 'S4P600'
EXPORTING
date = '20210912'
zz_platform = 'S106B'
TABLES
it_ztpp0002 = gt_ztpp0002.
BREAK-POINT.
MODIFY ztpp0002 FROM TABLE gt_ztpp0002.
ENDIF.
文章来自于网络,如果侵犯了您的权益,请联系站长删除!