
  TYPE
    pft$object_name_list = array [1 .. * ] of pft$object_name;

*copyc pft$object_name

