Z14_07

REPORT  Z14_07.

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.