
  TYPE
    pft$physical_object = record
      checksum: pft$checksum,
      object_entry: pft$object_entry,
    recend;

*copyc pft$object_entry
*copyc pft$checksum
