*&---------------------------------------------------------------------*
*& Report Z14_14
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_14.

CLASS abstract_shape DEFINITION ABSTRACT.
  PUBLIC SECTION.
    METHODS: calculate_area ABSTRACT.

ENDCLASS.

CLASS abstract_shape IMPLEMENTATION.

ENDCLASS.

CLASS concrete_rectangle DEFINITION INHERITING FROM abstract_shape.
  PUBLIC SECTION.
    METHODS: calculate_area REDEFINITION.

ENDCLASS.

CLASS concrete_rectangle IMPLEMENTATION.
  METHOD calculate_area.
    DATA: width  TYPE i VALUE 5,
          height TYPE i VALUE 10,
          result TYPE i.

    result = width * height.

    WRITE: / 'Rectangle area:', result.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: lo_rectangle TYPE REF TO concrete_rectangle.

  CREATE OBJECT lo_rectangle.

  lo_rectangle->calculate_area( ).