ABAP 面向对象OO-接口-重写（REDEFINITION）

完整程序

*&---------------------------------------------------------------------*
*& Report Z_OO_INTERFACE_LHY
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_OO_INTERFACE_LHY.

CLASS CLS DEFINITION INHERITING FROM Z_CL_PERSON_LHY2.
  PUBLIC SECTION.
    ALIASES GET_ID_CLS FOR Z_IF_PERSON_LHY~GET_ID. "给接口的方法起一个别名

    ALIASES SET_NAME_CLS FOR Z_IF_PERSON_LHY~SET_NAME.
    METHODS SET_NAME_CLS REDEFINITION . "重写
ENDCLASS.

CLASS CLS IMPLEMENTATION.
  METHOD Z_IF_PERSON_LHY~SET_NAME.
    Z_IF_PERSON_LHY~NAME = '哈哈哈哈哈哈'.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA(LO_STUDENT) = NEW CLS( ).
  DATA ID TYPE I.
  DATA NAME TYPE CHAR10.

  CALL METHOD LO_STUDENT->Z_IF_PERSON_LHY~SET_ID
    EXPORTING
      IV_ID = 12.

  CALL METHOD LO_STUDENT->GET_ID_CLS( IMPORTING OV_ID = ID ).

  CALL METHOD LO_STUDENT->SET_NAME_CLS( EXPORTING IV_NAME = 'aaa' ).
  CALL METHOD LO_STUDENT->Z_IF_PERSON_LHY~GET_NAME( IMPORTING OV_NAME = NAME ).

  WRITE:/,'id:' && ID.
  WRITE:/,'name:' && NAME.

运行结果