接口的实例

*----------------------------------------------------------------------*
*       INTERFACE output  定义接口
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
INTERFACE output.
  METHODS write.
ENDINTERFACE.                    "output

*----------------------------------------------------------------------*
*       CLASS superclass DEFINITION 定义引用接口的类
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS superclass DEFINITION.
  PUBLIC SECTION.
    INTERFACES output.
ENDCLASS.                    "superclass DEFINITION

*----------------------------------------------------------------------*
*       CLASS superclass IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS superclass IMPLEMENTATION.
  METHOD output~write.    "类中定义接口方法的实现
    WRITE:'Hello SAP!'.
  ENDMETHOD.                    "output~write
ENDCLASS.                    "superclass IMPLEMENTATION

DATA:class_obj TYPE REF TO superclass,
      intf_obj TYPE REF TO output,  "引用接口
      intf_table TYPE TABLE OF REF TO output. "引用接口创建内表

START-OF-SELECTION.
  CREATE OBJECT :class_obj. "创建类的实例
  CALL METHOD:class_obj->output~write.

  LOOP AT intf_table INTO intf_obj.  "读取内表实例对象直接输出接口方法
    CALL METHOD intf_obj->write.
  ENDLOOP.