
  TYPE
    rat$subproduct_level = ost$name;

*copyc ost$name
