*&---------------------------------------------------------------------*
*& Report Z14_08
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_08.

CLASS cls DEFINITION INHERITING FROM object.
  PUBLIC SECTION.
    METHODS: create.
ENDCLASS.


CLASS cls IMPLEMENTATION.
  METHOD create.
    WRITE: / 'Object is created'.
  ENDMETHOD.
ENDCLASS.

DATA : go_obj1 TYPE REF TO cls,
       go_obj2 TYPE REF TO cls.

START-OF-SELECTION.
  CREATE OBJECT: go_obj1.
  go_obj2 = go_obj1.

  CALL METHOD: go_obj2->create.