
  CONST
    rac$max_number_of_subproducts = 500;

  TYPE
    rat$subproduct_count = 0 .. rac$max_number_of_subproducts;

