REPORT  Z17_005                                                     .
* Class Declarations
CLASS vehicle DEFINITION INHERITING FROM object.
  PUBLIC SECTION.
    METHODS: accelerate.
  PROTECTED SECTION.
    DATA speed TYPE i value '90'.
ENDCLASS.
* Class Implementations
CLASS vehicle IMPLEMENTATION.
  METHOD accelerate.
    speed = speed + 10.
    WRITE: / 'Speed:', speed.
  ENDMETHOD.
ENDCLASS.

* Global Data
DATA: vehicle_ref TYPE REF TO vehicle.

* Classical Processing Blocks
START-OF-SELECTION.
  CREATE OBJECT: vehicle_ref.

  CALL METHOD: vehicle_ref->accelerate..