*&---------------------------------------------------------------------*
*& Report Z14_12
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_12.


CLASS parent_shape DEFINITION.
  PUBLIC SECTION.
    DATA: width  TYPE i VALUE 5,
          height TYPE i VALUE 10,
          result TYPE i.

    METHODS: calculate_area.
ENDCLASS.

CLASS parent_shape IMPLEMENTATION.
  METHOD calculate_area.
    " 부모 클래스에서는 가로와 높이를 합산해서 반환
    result = width + height.
    WRITE :/ 'Parent method :', result.
  ENDMETHOD.
ENDCLASS.

CLASS child_rectangle DEFINITION INHERITING FROM parent_shape.
  PUBLIC SECTION.
    METHODS: calculate_area REDEFINITION.
ENDCLASS.

CLASS child_rectangle IMPLEMENTATION.
  METHOD calculate_area.
    " 자식 클래스에서는 사각형의 넓이를 계산
    CALL METHOD super->calculate_area.

    result = width * height.
    WRITE :/ 'Child method :', result.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: lo_child TYPE REF TO child_rectangle.

  CREATE OBJECT lo_child.

  " 자식 클래스의 calculate_area 메소드 호출
  lo_child->calculate_area( ).