SAP接口的使用例子

REPORT Z_INTERFACE_01                          .

*&---------定义接口---------------
INTERFACE OUTPUT.
METHODS WRITE.
ENDINTERFACE.

*&---------定义引用接口的类------
CLASS SUPERCLASS DEFINITION.
PUBLIC SECTION.
INTERFACES OUTPUT.
ENDCLASS.

*&---------类中定义接口的实现----
CLASS SUPERCLASS IMPLEMENTATION.
METHOD OUTPUT~WRITE.
WRITE:'HELLO SAP'.
ENDMETHOD.
ENDCLASS.
*&---------
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.