*&---------------------------------------------------------------------*
*& Report Z14_09
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_09.


CLASS vehicle DEFINITION INHERITING FROM object.
  PUBLIC SECTION.
    METHODS: create,
      drive.

  PROTECTED SECTION.
    DATA speed TYPE i VALUE '100'.
ENDCLASS.                    "vehicle DEFINITION

CLASS plane DEFINITION INHERITING FROM vehicle.
  PUBLIC SECTION.
    METHODS: fly.
ENDCLASS.                    "plane DEFINITION

CLASS vehicle IMPLEMENTATION.
  METHOD create.

  ENDMETHOD.                    "vehicle
  METHOD drive.
    speed = speed + 100.

    WRITE : 'Driving is possible, ', 'Current Speed:', speed.
  ENDMETHOD.                    "vehicle
ENDCLASS.                    "vehicle IMPLEMENTATION

CLASS plane IMPLEMENTATION.
  METHOD fly.
    speed = speed + 1000.
  ENDMETHOD.
ENDCLASS.                    "plane IMPLEMENTATION


DATA : car TYPE REF TO vehicle,
       air TYPE REF TO vehicle.

START-OF-SELECTION.
  CREATE OBJECT: car.
  air ?= car.

  CALL METHOD: air->drive.
*  CALL METHOD: air->fly.