sap dbco mysql,【ABAP系列】SAP 使用事务码DBCO实现SAP链接外部数据库以及读取例程...

* \-----------------------------------------------------------------------------------------------------\ * * \定义常量。 \ n; \ n; \ n; \ * * \------------------------------------------------------------------------------------------------------\ *

常量:CNS_YGJK TYPE C LENGTH 10 VALUE " HR9DEV " 。

* *打开连接

EXEC SQL 。

CONNECT TO :CNS_YGJK

ENDEXEC 。

* **获取人员数据

TRY 。

EXEC SQL 执行PF_GET_RS。

选择 MANDT，

ZID，

OTYPE，

INFTY，

ZUPDATE，

歌剧，

威刚

INTO:WA_HR01-MANDT，

\ nbsp ;:WA_HR01 -\ nbsp ;:WA_HR01-\ nbsp ;:WA_HR01- FROM z00hrjzlch01

在哪里 SAP_GET = ""

ENDEXEC 。

* *处理人员数据

IF IT_HR01 [] IS NOT 初始 。

LOOP AT IT_HR01 INTO WA_HR01。

EXEC SQL 。

更新 z00hrjzlch01

SET SAP_GET = " X "

在哪里 MANDT =:WA_HR01-MANDT

AND ZID =:WA_HR01-ZID

ENDEXEC 。

如果 SY-SUBRC = 0 。

* ********更新ERP数据库表

EXEC SQL 。

COMMIT

ENDEXEC 。

修改 Z00HRJZLCH01 FROM WA_HR01。

COMMIT 工作 。

ENDIF 。

ENDLOOP 。

ENDIF 。

* *关闭连接

EXEC SQL 。

断开连接:CNS_YGJK

ENDEXEC 。

* *获取异常

CATCH CX_SY_NATIVE_SQL_ERROR INTO CL_EXEC_REF。

退出 。

CATCH CX_SQL_EXCEPTION INTO CL_SQLERR_REF。

退出 。

ENDTRY 。

* \---------------------------------------------------------------------*

* \ 表格\ PF_GET_ZZ

* \---------------------------------------------------------------------*

* 整理增量数据

* ----------------------------------------------------------------------*

表单 PF_GET_ZZ。

APPEND WA_HR02 TO IT_HR02。

ENDFORM。