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.
原文地址:http://www.cnblogs.com/xjm123/p/3830508.html