Listing 6.17  Der Quelltext des Programms ZPTB00_Product_Enhancer_GL
REPORT  zptb00_product_enhancer_gl.

DATA:
  l_category_root TYPE REF TO zptb00_cl_category,
  l_category TYPE REF TO zptb00_cl_category,
  l_salesproduct TYPE REF TO zptb00_cl_salesproduct,
  l_purchaseproduct TYPE REF TO 
                          zptb00_cl_purchaseproduct.

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_purchaseproduct
  EXPORTING
    i_rcl_parent = l_category
    i_title      = 'Toshiba Satellite 430s'
    i_net_price  = '1500'.
CREATE OBJECT l_salesproduct
  EXPORTING
    i_rcl_parent = l_category
    i_title      = 'Toshiba Satellite 430s'
    i_net_price  = '1500'.
CREATE OBJECT l_purchaseproduct
  EXPORTING
    i_rcl_parent = l_category
    i_title      = 'IBM Thinkpad 30p'
    i_net_price  = '1650'.
CREATE OBJECT l_salesproduct
  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_purchaseproduct
  EXPORTING
    i_rcl_parent = l_category
    i_title      = 'Microsoft Office SBE'
    i_net_price  = '600'.
CREATE OBJECT l_salesproduct
  EXPORTING
    i_rcl_parent = l_category
    i_title      = 'Microsoft Office SBE'
    i_net_price  = '600'.
l_category_root->write_to_screen( ).