
  TYPE
    pft$catalog_header = record
      valid: boolean,
      version: pft$name,
      object_list_locator: pft$object_list_locator,
      reserved_catalog_header_space: array [1 .. 48] of boolean,
    recend;

*copyc pfc$catalog_version
*copyc pft$name
*copyc pft$object_list_locator
