REPORT  Z17_020                                                     .
* Interfaces

INTERFACE object_status.
  METHODS write_status.
ENDINTERFACE.

* Class Declarations

CLASS vehicle DEFINITION.
  PUBLIC SECTION.
    INTERFACES object_status.
    ALIASES write_status FOR object_status~write_status.
    METHODS accelerate.
  PROTECTED SECTION.
    DATA speed TYPE i.
ENDCLASS.

* Class Implementations

CLASS vehicle IMPLEMENTATION.
  METHOD accelerate.
    speed = speed + 1.
  ENDMETHOD.
  METHOD object_status~write_status.
    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,
               vehicle_ref->write_status.