REPORT  Z17_006.
* Class Declarations
CLASS vehicle DEFINITION INHERITING FROM object.
  PUBLIC SECTION.
    METHODS: create.
  PROTECTED SECTION.
    DATA speed TYPE i value '90'.
ENDCLASS.
* Class Implementations
CLASS vehicle IMPLEMENTATION.
  METHOD create.
    speed = speed + 10.
    WRITE: / 'excel is from pony'.
  ENDMETHOD.
ENDCLASS.
* Global Data
DATA: pony TYPE REF TO vehicle,
      excel  TYPE REF TO vehicle.
* Classical Processing Blocks
START-OF-SELECTION.
  CREATE OBJECT: pony.
excel = pony.
*  move pony to excel.
  CALL METHOD: excel->create.