You cannot control the instantiation of the object from constructor itself as in ABAP we donot have any concept of explicit destructor like in C++. But may be by using the given code you can achieve the same indirectly.
class z_test definition.
public section.
Methods: constructor
importing p type i.
private section.
data: val type i.
endclass.
class z_test implementation.
method constructor.
val = p.
endmethod.
endclass.
class z_wrapper definition.
public section.
Methods: constructor
importing p type i,
check_intantiation
returning value(stat) type char1.
private section.
data: dref type ref to z_test.
endclass.
class z_wrapper implementation.
method constructor.
if p < 10.
create object dref exporting p = 12.
Write: /'Object DREF created'.
else.
free dref.
Write: /'Object DREF not created'.
endif.
endmethod.
method check_intantiation.
if dref is not bound.
clear stat.
else.
stat = 'X'.
endif.
endmethod.
endclass.
start-of-selection.
data: dref type ref to z_wrapper.
data: status type char1.
create object dref exporting p = 12.
if dref->check_intantiation( ) = space.
free dref.
Write: /'Main object is deleted'.
endif.
Bluesky
