Listing 6.14  Der Quelltext des Programms ZPTB00_Product_Configurator_GL
REPORT  zptb00_product_configurator_gl.
DATA:
  l_category_root TYPE REF TO ZPTB00_cl_category,
  l_category TYPE REF TO ZPTB00_cl_category,
  l_product TYPE REF TO ZPTB00_cl_product.

CREATE OBJECT l_category_root
  EXPORTING
    i_title      = 'Products'.
CREATE OBJECT l_category
  EXPORTING
    i_rcl_parent = l_category_root
    i_title      = 'Hardware'.
CREATE OBJECT l_product
  EXPORTING
    i_rcl_parent = l_category
    i_title      = 'Toshiba Satellite 430s'
    i_net_price  = '1500'.
CREATE OBJECT l_product
  EXPORTING
    i_rcl_parent = l_category
    i_title      = 'IBM Thinkpad 30p'
    i_net_price  = '1650'.
CREATE OBJECT l_category
  EXPORTING
    i_rcl_parent = l_category_root
    i_title      = 'Software'.
CREATE OBJECT l_product
  EXPORTING
    i_rcl_parent = l_category
    i_title      = 'Microsoft Office SBE'
    i_net_price  = '600'.
l_category_root->write_to_screen( ).