首先登录 ABAP On-Premises 系统，运行事物码：aco_proxy，为 RFC 函数 RFC_SYSTEM_INFO 和 RFC_READ_TABLE, 生成代理类元数据，格式为 xml. 将 xml 文件另存到本地。

![](https://img-blog.csdnimg.cn/img_convert/fce932fbac5e0f060cca4d5f80068583.png)

使用 ABAP Development Tool 登录 SAP BTP ABAP 运行环境，新建一个 Service Consumption Model，类型选择 RFC：

![](https://img-blog.csdnimg.cn/img_convert/edbb07d71eff204c287655ac8b3611a6.png)

生成一个 Proxy Class，我们稍后会在 ABAP 代码里，通过这个 Proxy Class 来调用 On-Premises 系统上的 RFC 函数。将前一步骤在 On-Premises 系统里生成的 metadata.xml, 导入到 Proxy 类生成向导里。

![](https://img-blog.csdnimg.cn/img_convert/a590c7b725d53a414f2a10bf841894ca.png)

激活这个 Service Consumption Model，在自动生成的代理类里，我们能找到 ABAP 代码模板，这个代码模板，可以直接拷贝到我们的 ABAP 代码里，稍作修改，就能调用 ABAP On-Premises 系统的 RFC 函数了。

![](https://img-blog.csdnimg.cn/img_convert/3504259844f4802d2124eac91caab2d3.png)

新建一个 ABAP 类，将上图代理类里的代码拷贝到这个 ABAP 类的 Main 方法里：

![](https://img-blog.csdnimg.cn/img_convert/14214b29c7b16b139f4de9052c829939.png)

完整代码如下：

```abap
CLASS zcl_consume_rfc DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

PUBLIC SECTION.

INTERFACES if_oo_adt_classrun .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.

CLASS zcl_consume_rfc IMPLEMENTATION.

METHOD if_oo_adt_classrun~main.
    DATA dest TYPE REF TO IF_RFC_DEST.
    DATA myobj  TYPE REF TO ZCL_JERRY_RFC_PROXY.

DATA CURRENT_RESOURCES TYPE ZCL_JERRY_RFC_PROXY=>SYST_INDEX.
    DATA FAST_SER_VERS TYPE INT4.
    DATA MAXIMAL_RESOURCES TYPE ZCL_JERRY_RFC_PROXY=>SYST_INDEX.
    DATA RECOMMENDED_DELAY TYPE ZCL_JERRY_RFC_PROXY=>SYST_INDEX.
    DATA RFCSI_EXPORT TYPE ZCL_JERRY_RFC_PROXY=>RFCSI.
    DATA S4_HANA TYPE ZCL_JERRY_RFC_PROXY=>CHAR1.

TRY.
      dest = CL_RFC_DESTINATION_PROVIDER=>create_by_cloud_destination( 'AG3' ).

CREATE OBJECT myobj
        EXPORTING
          destination = dest.
    catch CX_RFC_DEST_PROVIDER_ERROR.
     " handle CX_RFC_DEST_PROVIDER_ERROR
    ENDTRY.

TRY.
      myobj->RFC_SYSTEM_INFO(
         IMPORTING
           CURRENT_RESOURCES = CURRENT_RESOURCES
           FAST_SER_VERS = FAST_SER_VERS
           MAXIMAL_RESOURCES = MAXIMAL_RESOURCES
           RECOMMENDED_DELAY = RECOMMENDED_DELAY
           RFCSI_EXPORT = RFCSI_EXPORT
           S4_HANA = S4_HANA
       ).
     CATCH  CX_ACO_COMMUNICATION_FAILURE INTO DATA(lcx_comm).
      " handle CX_ACO_COMMUNICATION_FAILURE (sy-msg* in lcx_comm->IF_T100_MESSAGE~T100KEY)
     CATCH CX_ACO_SYSTEM_FAILURE INTO DATA(lcx_sys).
      " handle CX_ACO_SYSTEM_FAILURE (sy-msg* in lcx_sys->IF_T100_MESSAGE~T100KEY)
     CATCH CX_ACO_APPLICATION_EXCEPTION INTO DATA(lcx_appl).
      " handle APPLICATION_EXCEPTIONS (sy-msg* in lcx_appl->IF_T100_MESSAGE~T100KEY)
    ENDTRY.

ENDMETHOD.
ENDCLASS.
```

注意，需要按照这篇[文章](https://developers.sap.com/tutorials/abap-env-rfc.html)提到的步骤，借助 SAP Cloud Connector ，在 SAP BTP Cockpit 上，完成指向 ABAP On-Premises 系统 AG3 的 Destination 配置。

原因是，在 SAP BTP、ABAP 环境和内部部署之间设置连接时存在两个问题：

* ABAP 环境“存在”于 Internet 中，但客户内部部署系统位于防火墙之后
* RFC 不支持 Internet

因此，需要建立从内部部署系统到 SAP BTP、ABAP 环境的安全隧道连接。

* ABAP 环境租户从 Destination 服务实例中获取目的地。
* ABAP 环境租户通过 Connectivity 服务请求打开隧道连接。
* 连接服务告诉云连接器使用管理连接打开与此特定 ABAP 环境租户的连接。
* 云连接器使用其公共租户 URL 打开到 ABAP 环境租户的隧道连接。
* 隧道建立后，可用于使用 RFC 或 HTTP(S)协议进行实际数据连接。

![](https://img-blog.csdnimg.cn/img_convert/a3e563db55902edac535d4933b384d63.png)

ITPub博客

如何在 SAP BTP ABAP 编程环境里直接调用 ABAP On-Premises 系统的 RFC 函数

最新文章