abap 创建 RFC

FUNCTION ZRFC_GET_MARA_DATA.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_MATNR) TYPE  MARA-MATNR OPTIONAL
*"  EXPORTING
*"     VALUE(E_RETURN) TYPE  BAPIRET2
*"  TABLES
*"      ET_MARA STRUCTURE  MARA OPTIONAL
*"----------------------------------------------------------------------

  REFRESH ET_MARA.

  IF I_MATNR IS INITIAL.
    SELECT * FROM MARA
      INTO TABLE ET_MARA.
  ELSE.
    SELECT * FROM MARA
      INTO TABLE ET_MARA
      WHERE MATNR = I_MATNR.
  ENDIF.

  IF SY-SUBRC = 0.
    E_RETURN-TYPE   = 'S'.          " 成功
    E_RETURN-MESSAGE = '查询成功'.   " 消息文本
  ELSE.
    E_RETURN-TYPE   = 'E'.          " 错误
    E_RETURN-MESSAGE = '未找到数据'.
  ENDIF.

ENDFUNCTION.