
  TYPE
    pft$object_name = record
      object_name: pft$name,
      object_index: pft$object_index,
    recend;

*copyc pft$name
*copyc pft$object_index
