SAP-abap学习记录（11）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_11
*&
*&---------------------------------------------------------------------*
*&类继承练习
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_ABAP_11.

*定义一个基类
CLASS FATHER DEFINITION.

  PUBLIC SECTION.
    METHODS: WRITE_FIRST.
    METHODS: WRITE_SECOND.

ENDCLASS.

*定义一个子类,继承基类
CLASS SON DEFINITION INHERITING FROM FATHER.

  PUBLIC SECTION.
    METHODS: WRITE_THIRD.

ENDCLASS.

*基类实现
CLASS FATHER IMPLEMENTATION.

  METHOD WRITE_FIRST.
    WRITE: / '1ST'.
  ENDMETHOD.

  METHOD WRITE_SECOND.
    WRITE: / '2ND'.
  ENDMETHOD.

ENDCLASS.

*子类实现
CLASS SON IMPLEMENTATION.

  METHOD WRITE_THIRD.
    WRITE: / '3RD'.
  ENDMETHOD.

ENDCLASS.

DATA:SON_OBJ TYPE REF TO SON.

*调用
START-OF-SELECTION.

  CREATE OBJECT SON_OBJ.
  CALL METHOD: SON_OBJ->WRITE_FIRST,
               SON_OBJ->WRITE_SECOND,
               SON_OBJ->WRITE_THIRD.