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.