SAP通过DBLink直接访问Oracle数据库

DBLINK设定的数据

1. 用TCode: DBCO设定数据联接

Oracle连接配置如下

2. 程序示例

REPORT ytest.

CONSTANTS: con(20) TYPE c VALUE 'PFSTEST'.

DATA: lv_str TYPE string,

lr_ex TYPE REF TO cx_root. DATA: BEGIN OF lt OCCURS 0, uuid(10), pt_type(4),

balance TYPE p DECIMALS 2, END OF lt.

DATA: \ ls LIKE LINE OF lt.

EXEC SQL .

CONNECT TO :con ENDEXEC.

IF sy-subrc <> 0.

MESSAGE '连接失败' TYPE 'E'. EXIT. ENDIF.

EXEC SQL.

SET CONNECTION :con ENDEXEC. TRY.

EXEC SQL.

OPEN dbcur FOR

SELECT UUID, PT_TYPE, BALANCE FROM YTEST ENDEXEC.

DO.

EXEC SQL.

FETCH NEXT dbcur into structure :ls package size 1000 ENDEXEC.

IF sy-subrc IS INITIAL. APPEND ls TO lt. ELSE. EXIT. ENDIF. ENDDO.

EXEC SQL. CLOSE dbcur ENDEXEC.

CATCH cx_root INTO lr_ex. ENDTRY.

EXEC SQL.

SET CONNECTION 'DEFAULT' ENDEXEC.

EXEC SQL.

DISCONNECT :con ENDEXEC.

转载另一个更新程序：

CONSTANTS: con(20) TYPE c VALUE ' CONSTRING'. EXEC SQL.

SET CONNECTION :con ENDEXEC.

IF sy-subrc <> 0. EXEC SQL .

CONNECT TO :con ENDEXEC.

IF sy-subrc <> 0.

MESSAGE '连接失败' TYPE 'E'. EXIT. ENDIF. ENDIF.

EXEC SQL.

DELETE FROM DB2INST1.EXAMPLEDATA where FinComCode = :lc_bukrs and FinDate = :lc_spmon

ENDEXEC. ENDLOOP.

CALL FUNCTION 'DB_COMMIT'. EXEC SQL.

INSERT INTO DB2INST1.LFFINBASE

( FinComCode,ItemCode,ReportDate,StatValue,MakeDate,MakeTime,FinDate ) VALUES ( :lc_bukrs,:lc_zhbbm,:lc_budat,:itab_021-dmbtr,:lc_datum,:lc_uzeit,:lc_spmon ) ENDEXEC. ENDLOOP.

CALL FUNCTION 'DB_COMMIT'.

EXEC SQL.

SET CONNECTION 'DEFAULT' ENDEXEC.

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库SAP通过DBLink直接访问Oracle数据库在线全文阅读。