
  TYPE
    clt$proc_names = array [1 .. * ] of ost$name;

*copyc ost$name
