SAP ABAP RFC函数(基础)

• 函数组与函数概念与关系
• 本地函数与远程函数
• SE37函数的定义（import、export、table等参数）
• 函数的调用
• 系统标准预留函数BAPI

一、RFC是什么

RFC是SAP系统和其他（SAP或非SAP）系统间的一个重要而常用的双向接口技术，也被视为SAP与外部通信的基本协议。简单地说，RFC过程就是系统调用当前系统外的程序模块，从而实现某个功能，而且调用系统和被调用系统中至少有一个必须是SAPABAP系统。这种远程功能调用也可在同一系统内部进行（如本地SAP系统内的远程调用）；但通常情况下，调用程序和被调用程序处于不同系统。

二、RFC开发技巧

• 属性定义
• 导入定义
• 导出定义
• 正在更改
• 表
• 例外
• 源代码

三、RFC开发实战(TCODE: SE37)

业务背景

因为业务需要多个业务场景需要获取学员的信息，包含学员基本信息、学员考勤等信息；现在需要把此功能封装供不用业务场景共同调用。

功能分析

1）创建共享共享程序块RFC。
2）RFC中实现，学员信息查询功能。

1.首先创建函数组（function group）

se80 输入将要创建的函数组名称“”，点击回车进行创建

输入描述信息，然后保存到自己的包和请求号下

创建成功，并激活

2.创建rfc函数（function module）

se37 输入将要创建的RFC函数“ZFM_HY01_SXQ01”，进行创建

输入刚才创建的函数组和描述信息

属性定义：改为远程调用，并进行激活

导入定义：修改输入参数

导出定义：修改输出参数

表：定义学员考勤表

例外（异常）：定义异常

源代码：写入代码

FUNCTION zfm_hy01_sxq01.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(PI_ZXH) TYPE  ZDEKY_XH OPTIONAL
*"     VALUE(PI_ZBJ) TYPE  ZDEKY_BJ OPTIONAL
*"  EXPORTING
*"     VALUE(PE_ZXYXX) LIKE  ZTKT_XYXX STRUCTURE  ZTKT_XYXX
*"  TABLES
*"      ET_ZXYKQ STRUCTURE  ZTKT_XYKQ OPTIONAL
*"  EXCEPTIONS
*"      Z_NO_XYXX
*"      Z_NO_XYKQ
*"      Z_NO_ALL
*"----------------------------------------------------------------------


* 获取：学员基本信息
  SELECT SINGLE *
    INTO CORRESPONDING FIELDS OF pe_zxyxx
    FROM ztkt_xyxx
    WHERE zxh = pi_zxh
      AND zbj = pi_zbj.

*抛出三个异常
 IF SY-SUBRC <> 0.

*3.获取：学员考勤记录表
    SELECT *
      INTO CORRESPONDING FIELDS OF TABLE ET_ZXYKQ
      FROM ZTKT_XYKQ
     WHERE ZXH = PI_ZXH
       AND ZBJ = PI_ZBJ.
   IF SY-SUBRC = 0."无学员信息，有考勤记录
*3.1.抛出异常:无学员信息
     RAISE Z_NO_XYXX.
     ELSE.
*3.抛出异常:无任何信息
     RAISE Z_NO_ALL.
   ENDIF.

   ELSE.
*2.获取：学员考勤记录表
    SELECT *
      INTO CORRESPONDING FIELDS OF TABLE ET_ZXYKQ
      FROM ZTKT_XYKQ
     WHERE ZXH = PI_ZXH
       AND ZBJ = PI_ZBJ.

    IF SY-SUBRC NE 0.
*2.抛出异常:无考勤记录
      RAISE E_NO_KQJL.
    ENDIF.
  ENDIF.

ENDFUNCTION.

3.运行结果查看，输入学号班级

执行查看

表中考勤记录查看

4.异常信息查看，输入不存在的学号

执行查看抛出的异常

5.调用rfc

（1）SE38 创建新的可执行程序

（2）Pattern快速调用RFC

显示

（3）定义变量

DATA: L_ZXH LIKE ZTKT_XYXX-ZXH VALUE 'HY101',
      L_ZBJ LIKE ZTKT_XYXX-ZBJ VALUE 'H1',
      LS_ZXYXX LIKE ZTKT_XYXX,
      LT_ZXYKQ LIKE TABLE OF ZTKT_XYKQ WITH HEADER LINE.

全部代码

*&---------------------------------------------------------------------*
*& Report ZHYR01_20220721_HY101
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZHYR01_20220721_HY101.

DATA: L_ZXH LIKE ZTKT_XYXX-ZXH VALUE 'HY101',
      L_ZBJ LIKE ZTKT_XYXX-ZBJ VALUE 'H1',
      LS_ZXYXX LIKE ZTKT_XYXX,
      LT_ZXYKQ LIKE TABLE OF ZTKT_XYKQ WITH HEADER LINE.

CALL FUNCTION 'ZFM_HY01_SXQ01'
  EXPORTING
    pi_zxh          = L_ZXH
    pi_zbj          = L_ZBJ
 IMPORTING
   PE_ZXYXX        = LS_ZXYXX
 TABLES
   ET_ZXYKQ        = LT_ZXYKQ
 EXCEPTIONS
   E_NO_ALL        = 1
   OTHERS          = 2
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
  MESSAGE '无此学员信息' TYPE 'I'.
ELSE.
  WRITE LS_ZXYXX-ZXM.
  MESSAGE '获取学员信息成功' TYPE 'S'.
ENDIF.

运行结果查看

对比 修改输入的序号为表中不存在的学号

输出“无此学员信息”