*---------------------------------------------------------------------*
*       CLASS lc_c1 DEFINITION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lc_c1 DEFINITION.
  PUBLIC SECTION.
    METHODS write_label.
    METHODS constructor
      IMPORTING e_label TYPE char01
    .
  PRIVATE SECTION.
    CLASS-DATA:
      at_ref TYPE TABLE OF REF TO lc_c1
    .
    DATA:
      a_label
    .
ENDCLASS.               "LCL_C1

DATA:
  glc_c1 TYPE REF TO lc_c1
.

CREATE OBJECT glc_c1
  EXPORTING e_label = '1'.
CREATE OBJECT glc_c1
  EXPORTING e_label = '2'.
CREATE OBJECT glc_c1
  EXPORTING e_label = '3'.
CREATE OBJECT glc_c1
  EXPORTING e_label = '4'.
CREATE OBJECT glc_c1
  EXPORTING e_label = '5'.

CALL METHOD glc_c1->write_label.

*---------------------------------------------------------------------*
*       CLASS lc_c1 IMPLEMENTATION
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
CLASS lc_c1 IMPLEMENTATION.
  METHOD constructor.
    APPEND me TO me->at_ref.
    a_label = e_label.
  ENDMETHOD.                    "class_constructor
 
  METHOD write_label.
    DATA:
      llc_c1 TYPE REF TO lc_c1
    .
    LOOP AT me->at_ref INTO llc_c1.
      WRITE llc_c1->a_label.
    ENDLOOP.
  ENDMETHOD.                    "a1
ENDCLASS.               "lcl_c1