Datendeklaration
DATA lo_die TYPE REF TO zcl_bc_aoo_##_die_enc.
DATA lt_dice TYPE TABLE OF REF TO zcl_bc_aoo_##_die_enc.
Erzeugung von Objektinstanzen
DO 10 TIMES.
DATA(lv_id) = |{ sy-index }|.
DATA(lo_die_new) = NEW zcl_bc_aoo_##_die_enc( ).
lo_die_new->set_id( lv_id ).
out->write( |Würfel { lv_id }: { lo_die_new->roll( ) }| ).
APPEND lo_die_new TO lt_dice.
ENDDO.
Verwendung
DO 10 TIMES.
DATA(lv_index) = sy-index.
lo_die = lt_dice[ lv_index ].
DATA(lv_descr) = lo_die->get_description( ).
out->write( |Würfel { lv_index } '{ lv_descr }': { lo_die->get_last_diced_number( ) }| ).
ENDDO.