REPORT  Z017_007                                                    .

* Class Declarations
CLASS vehicle DEFINITION INHERITING FROM object.
  PUBLIC SECTION.
    METHODS: create.
  PROTECTED SECTION.
    DATA speed TYPE i value '90'.
ENDCLASS.

CLASS plane DEFINITION INHERITING FROM vehicle.
  PUBLIC SECTION.
    METHODS: fly.
  PROTECTED SECTION.
    DATA altitude TYPE i.
ENDCLASS.


* Class Implementations
CLASS vehicle IMPLEMENTATION.
  METHOD create.
    speed = speed + 10.
    WRITE: / 'air777 is from pony????'.
  ENDMETHOD.
ENDCLASS.

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

* Global Data
DATA: pony TYPE REF TO vehicle,
      air777  TYPE REF TO vehicle.
* Classical Processing Blocks
START-OF-SELECTION.
  CREATE OBJECT: pony.
air777 ?= pony.
*  move pony to excel.
*  CALL METHOD: air777->fly.
  CALL METHOD: air777->create.

*  CALL METHOD: air777->create.