
  TYPE
    pft$catalog_locator = record
      set_name: stt$set_name,
      internal_catalog_name: pft$internal_catalog_name,
      global_file_name: ost$binary_unique_name,
      recorded_vsn: rmt$recorded_vsn,
      new_catalog: boolean,
      queuing_info: pft$catalog_queueing_info,
      case attached: boolean of
      = FALSE =
        ,
      = TRUE =
        system_file_id: gft$system_file_identifier,
        case open: boolean of
        = FALSE =
          ,
        = TRUE =
          case locked: boolean of
          = FALSE =
            ,
          = TRUE =
            abort_catalog_operation: boolean,
            access_kind: pft$access_kind,
            flush_catalog_pages: boolean,
            object_list_descriptor: pft$object_list_descriptor,
            p_catalog_file: ^pft$catalog_file,
          casend,
        casend,
      casend,
    recend;

*copyc gft$system_file_identifier
*copyc ost$binary_unique_name
*copyc pft$access_kind
*copyc pft$catalog_file
*copyc pft$catalog_queueing_info
*copyc pft$internal_catalog_name
*copyc pft$object_list_descriptor
*copyc rmt$recorded_vsn
*copyc stt$set_name
