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

公众号：SAP Technical

本文作者：matinal

原文出处：http://www.cnblogs.com/SAPmatinal/

原文链接：【ABAP系列】SAP 使用事务码DBCO实现SAP链接外部数据库以及读取例程

 

前言部分

大家可以关注我的公众号，公众号里的排版更好，阅读更舒适。

正文部分

一、链接SQLServer数据库

执行事务码DBCO，点新条目按钮，填写如下图所示信息

这里的连接信息很接近 Sql Server 的连接字符串，但是参数名略有不同。指定主机IP、数据库名即可。

二、链接DB2数据库
执行事务码DBCO，点新条目按钮，填写如下图所示信息

连接信息看上去比较直接，分别是数据库名、端口号、主机IP地址。

三、链接Oracle数据库

执行事务码DBCO，点新条目按钮，填写如下图所示信息

连接信息比较隐晦，必须在 SAP 应用服务器上安装 Oracle Client，然后设置连接，并在这里将连接信息指定与连接名一致。
为了防止乱码，我们还应该在链接信息后加如下参数：ZHS16GBK
格式如下：ORCL.WORLD:ZHS16GBK

四、链接MaxDB数据库

执行事务码DBCO，点新条目按钮，填写如下图所示信息

MaxDB 是 SAP 自己的数据库，这个连接则是 NetWeaver Developer 版中默认创建的一个连接

访问外部数据库

1. 实例：SAP系统访问PeopleSoft数据库

*&----------------------------------------------------------------------------------------------------- &*
*& 定义常量                                                                                           &*
*&------------------------------------------------------------------------------------------------------&*
CONSTANTS: CNS_YGJK TYPE C LENGTH  VALUE 'HR9DEV'. 
 
**打开连接
  EXEC SQL.
    CONNECT TO :CNS_YGJK
  ENDEXEC.
 
***获取人事数据
  TRY.
      EXEC SQL PERFORMING PF_GET_RS.
        SELECT MANDT,
               ZID,
               OTYPE,
               INFTY,
               ZUPDATE,
               OPERA,
               ZDATA
          INTO :WA_HR01-MANDT,
               :WA_HR01-ZID,
               :WA_HR01-OTYPE,
               :WA_HR01-INFTY,
               :WA_HR01-ZUPDATE,
               :WA_HR01-OPERA,
               :WA_HR01-ZDATA
          FROM z00hrjzlch01
         WHERE SAP_GET = ''
      ENDEXEC.
 
**处理人事数据
      IF IT_HR01[] IS NOT INITIAL.
        LOOP AT IT_HR01 INTO WA_HR01.
          EXEC SQL.
            UPDATE z00hrjzlch01
               SET SAP_GET = 'X'
             WHERE MANDT = :WA_HR01-MANDT
               AND ZID = :WA_HR01-ZID
          ENDEXEC.
          IF SY-SUBRC = .
*********更新ERP数据库表
            EXEC SQL.
              COMMIT
            ENDEXEC.
            MODIFY Z00HRJZLCH01 FROM WA_HR01.
            COMMIT WORK.
          ENDIF.
        ENDLOOP.
      ENDIF.
**关闭连接
      EXEC SQL.
        DISCONNECT :CNS_YGJK
      ENDEXEC.
**获取异常
    CATCH CX_SY_NATIVE_SQL_ERROR INTO CL_EXEC_REF.
      EXIT.
    CATCH CX_SQL_EXCEPTION INTO CL_SQLERR_REF.
      EXIT.
  ENDTRY. 
*&---------------------------------------------------------------------*
*&      Form  PF_GET_ZZ
*&---------------------------------------------------------------------*
*       组织增量数据
*----------------------------------------------------------------------*
FORM PF_GET_ZZ .
  APPEND WA_HR02 TO IT_HR02.
ENDFORM. 

事务代码：DBCO查看,SAP系统现存的连接

程序中使用的是连接【HR9DEV.WORLD】，双击这行如下图所示：

先在SAP底层ORACLE数据库编辑TNS文件,一般由BASIS配置完成，配置路径:DIR_ORAHOME->network->admin->tnsnames.ora；配置完成后我们可以用事务码:AL11查看配置是否正确，AL11查看连接【HR9DEV.WORLD】具体配置