
  TYPE
    pft$reserved_cycle_info = record
      signature_lock: ost$signature_lock,
      p_catalog_path: ^pft$complete_path,
      number_of_cycles_reserved: pft$cycle_count,
      p_reserved_cycles: ^pft$reserved_cycles,
    recend,

    pft$reserved_cycles = array [1 .. *] of pft$reserved_cycle,

    pft$reserved_cycle = record
      external_object_name: pft$name,
      internal_object_name: pft$internal_name,
      cycle_number: fst$cycle_number,
      internal_cycle_name: pft$internal_name,
      system_file_id: gft$system_file_identifier,
    recend;

*copyc fst$cycle_number
*copyc gft$system_file_identifier
*copyc ost$signature_lock
*copyc pft$complete_path
*copyc pft$cycle_count
*copyc pft$internal_name
*copyc pft$name
