SAP-abap学习记录（14）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_14
*&
*&---------------------------------------------------------------------*
*&接口的定义和使用
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_ABAP_14.

*定义接口
INTERFACE OUTPUT.
  METHODS: WRITE.
ENDINTERFACE.

*定义接口实现类
CLASS OUTPUTIMPL DEFINITION.

  PUBLIC SECTION.
    INTERFACES OUTPUT.        "实现接口

ENDCLASS.

*类的实现
CLASS OUTPUTIMPL IMPLEMENTATION.

  METHOD OUTPUT~WRITE.
    WRITE:  / 'HELLO SEVEN'.
  ENDMETHOD.

ENDCLASS.

*调用

DATA: IMPL_OBJ TYPE REF TO OUTPUTIMPL,          "接口实现类对象
      OUT_OBJ TYPE REF TO OUTPUT,               "直接引用接口
      OUT_TAB TYPE TABLE OF REF TO OUTPUT.      "引用接口创建内表。直接调用接口方法时必做

START-OF-SELECTION.

  CREATE OBJECT IMPL_OBJ.
    CALL METHOD: IMPL_OBJ->OUTPUT~WRITE.        "通过实现类调用

    LOOP AT OUT_TAB INTO OUT_OBJ.               "获取内表实例对象直接调用接口方法
      CALL METHOD: OUT_OBJ->WRITE.
    ENDLOOP.