Dynamic table of object references possible?

Question

How can I create a dynamically typed table of object references, based on the
name of the reference type (which could be an interface)?
The following will not work, because cl_abap_tabledescr=>create() only accepts a
cl_abap_datadescr as the line type, not a cl_abap_objectdescr:
lo_line_type = cl_abap_typedescr=>describe_by_name( 'Z_MY_INTF' ).
lo_table_type = cl_abap_tabledescr=>create(
                      p_line_type  = lo_line_type
                      p_table_kind = cl_abap_tabledescr=>tablekind_std
                      p_unique     = abap_false ).
Can I somehow create a reference type description from the object description and
use that as the line type? Or what?
-- Sebastian

Answer 1

Hello Sebastian
I have improved my sample report according to your requirement:
*& Report  ZUS_SDN_OO_INSTANCE_ITERATOR
*& Thread: Dynamic table of object references possible?
*& <a class="jive_macro jive_macro_thread" href="" __jive_macro_name="thread" modifiedtitle="true" __default_attr="1381471"></a>
REPORT  zus_sdn_oo_instance_iterator.
TYPE-POOLS: abap.
DATA:
  gd_instanceof   TYPE abap_bool,
  go_objdescr     TYPE REF TO cl_abap_objectdescr,
  gd_clsname      TYPE string,
  gt_objects      TYPE swf_utl_object_tab,
  go_object       TYPE REF TO object,
  go_msglist      TYPE REF TO if_reca_message_list,
  go_iterator     TYPE REF TO cl_swf_utl_iterator.
START-OF-SELECTION.
* Create instances and collect into generic instance itab
  DO 3 TIMES.
    CLEAR: go_msglist.
    go_msglist = cf_reca_message_list=>create( ).
"   NOTE: This class method cannot determine interface instances
    CALL METHOD cl_lcr_util=>instanceof
      EXPORTING
        object = go_msglist
        class  = 'CL_RECA_MESSAGE_LIST'
      RECEIVING
        r_     = gd_instanceof.
    clear: gd_instanceof.
"   NOTE: This class method works both with classes and interfaces
    CALL METHOD cl_wdy_wb_reflection_helper=>is_instance_of
      EXPORTING
        object      = go_msglist
        type_name   = 'IF_RECA_MESSAGE_LIST'
      receiving
        is_instance = gd_instanceof.
    IF ( gd_instanceof = abap_true ).
      APPEND go_msglist TO gt_objects.
    ENDIF.
  ENDDO.
* Create iterator with collected instances
  CREATE OBJECT go_iterator
    EXPORTING
      im_object_list = gt_objects.
* Iteration through collected instances
  WHILE ( go_iterator->get_current( ) IS BOUND ).
    go_object   = go_iterator->get_current( ).
    go_objdescr ?= cl_abap_objectdescr=>describe_by_object_ref( go_object ).
    gd_clsname = go_objdescr->get_relative_name( ).
    WRITE: / syst-index, gd_clsname.
    go_msglist ?= go_iterator->get_current( ).
    go_iterator->get_next( ).
  ENDWHILE.
END-OF-SELECTION.
Regards
  Uwe