
  TYPE
    pft$object_list_descriptor = record
      p_object_list: ^pft$object_list,
      sorted_object_count: pft$object_count,
      free_sorted_object_count: pft$object_count,
      case catalog_type: pft$catalog_types of
      = pfc$internal_catalog =
        { The following points to the parent's catalog object.
        p_parent_catalog: ^pft$physical_object,
      = pfc$external_catalog =
        { This is equivalent to ^p_catalog_file^.physical_catalog_header.
        p_physical_catalog_header: ^pft$physical_catalog_header,
      casend,
    recend;

*copyc pfc$object_sort_threshold
*copyc pft$catalog_types
*copyc pft$object_count
*copyc pft$object_list
*copyc pft$physical_catalog_header
*copyc pft$physical_object
