Code: Alles auswählen.
REPORT zclone.
CLASS zcl_clone DEFINITION.
PUBLIC SECTION.
INTERFACES: if_os_clone.
DATA: m_attribute TYPE i.
ENDCLASS.
CLASS zcl_clone IMPLEMENTATION.
METHOD if_os_clone~clone.
SYSTEM-CALL OBJMGR CLONE me TO result.
ENDMETHOD.
ENDCLASS.
DATA: l_object1 TYPE REF TO zcl_clone.
DATA: l_object2 TYPE REF TO zcl_clone.
START-OF-SELECTION.
* Anlage Objekt 1 mit Wertzuweisung.
CREATE OBJECT l_object1.
l_object1->m_attribute = 123456.
* Kopieren Objekt 1 in Objekt 2 und Test auf Objekt 2
l_object2 ?= l_object1->if_os_clone~clone( ).
WRITE: / 'Attribut Objekt 2: ', l_object2->m_attribute.
* Objekt 2 ändern und Objekt 1 ausgeben um zu sehen,
* ob es unabhängige Kopien voneinander sind.
l_object2->m_attribute = 654321.
WRITE: / 'Attribut Objekt 1: ', l_object1->m_attribute.
Code: Alles auswählen.
NEWINSTANCE = EXISTINGINSTANCE->copy( ).