
  TYPE
    pft$object_entry = record
      external_object_name: pft$name,
      internal_object_name: pft$internal_name,
      permit_list_locator: pft$permit_list_locator,
      charge_id: pft$charge_id,
      reserved_object_entry_space: array [1 .. 6] of integer,
      case object_type: pft$object_types of
      = pfc$free_object =
        ,
      = pfc$file_object, pfc$purged_file_object =
        password: pft$password,
        logging_selection: pft$log,
        log_list_locator: pft$log_list_locator,
        cycle_list_locator: pft$cycle_list_locator,
        reserved_file_entry_space: array [1 .. 48] of boolean,
      = pfc$catalog_object, pfc$purged_catalog_object =
        catalog_object_locator: pft$catalog_object_locator,
        catalog_recreated_by_restore: boolean,
        reserved_catalog_entry_space: array [1 .. 47] of boolean,
      casend,
    recend;

*copyc pft$catalog_object_locator
*copyc pft$charge_id
*copyc pft$cycle_list_locator
*copyc pft$internal_name
*copyc pft$log
*copyc pft$log_list_locator
*copyc pft$name
*copyc pft$object_index
*copyc pft$object_types
*copyc pft$password
*copyc pft$permit_list_locator
