ABAP Shared Objects - External Reference

Question

Hi,
I am using ABAP SHared Objects (SHMA and SHMM) as data persistence between 2 BSP Applications
I want to create a generic Root class with one attribute that is TYPE REF TO OBJECT. The idea is to store any class instance in this attribute of the Root class so as to AVOID creating a seperate Shared AREA for each Class...
WHen I try to put this generic Root Class in the shared area via detach_commit(), it gives a exception that there are External references in the Shared area which should be closed first
Does this mean u cannot have a instance variable as an attribute in your ROOT Class.
Thanks
SAP User

Answer 1

Hi,
Go through the below code, it's working fine....
*& Report  Z13708_ABAPOBJECTS_INHER
REPORT  Z13708_ABAPOBJECTS_INHER.
      CLASS C1 DEFINITION
CLASS C1 DEFINITION.
  PUBLIC SECTION.
    data: var1 type ref to object.
    METHODS: METH1.
ENDCLASS.                    "C1 DEFINITION
      CLASS C1 IMPLEMENTATION
CLASS C1 IMPLEMENTATION.
  METHOD METH1.
    WRITE: / 'This is a method one'.
  ENDMETHOD.                                                "METH1
ENDCLASS.                    "C1 IMPLEMENTATION
      CLASS C2 DEFINITION
CLASS C2 DEFINITION.
  PUBLIC SECTION.
    METHODS: METH2.
ENDCLASS.                    "C2 DEFINITION
      CLASS C2 IMPLEMENTATION
CLASS C2 IMPLEMENTATION.
  METHOD METH2.
    WRITE: / 'This is a method two'.
  ENDMETHOD.                                                "METH2
ENDCLASS.                    "C2 IMPLEMENTATION
START-OF-SELECTION.
  DATA REF1 TYPE REF TO C1.
  DATA REF2 TYPE REF TO C2.
  CREATE OBJECT REF2.
  ref1->var1 ?= ref2.
Regards,
Azaz Ali.