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.

Z14_07,布布扣,bubuko.com