Report ZZ_##_OBJECTS

REPORT  ZZ_##_OBJECTS.
 
INCLUDE ZZ_##_OBJECTS_INCLUDE.
 
DATA: r_plane TYPE REF TO lcl_airplane,
      it_plane_list TYPE TABLE OF REF TO lcl_airplane.
 
START-OF-SELECTION.
 
CREATE OBJECT r_plane.
r_plane->attribute_setzen( im_name = 'München'
                           im_planetype = 'Boeing 737' ).
APPEND r_plane TO it_plane_list.
 
CREATE OBJECT r_plane.
r_plane->attribute_setzen( im_name = 'Hamburg'
                           im_planetype = 'Airbus 380' ).
APPEND r_plane TO it_plane_list.
 
LOOP AT it_plane_list INTO r_plane.
  r_plane->attribute_anzeigen( ).
ENDLOOP.