
  TYPE
    put$backup_record_type = (puc$backup_item_identifier,
          puc$backup_hierarchy_list, puc$backup_set_info,
          puc$backup_family_info, puc$backup_family_content_info,
          puc$backup_catalog_info, puc$backup_catalog_content_info,
          puc$backup_file_info, puc$backup_cycle_info, puc$backup_cycle_data,
          puc$backup_system_label),

    put$backup_item_info_type = (puc$backup_item_set_info,
          puc$backup_item_family_info, puc$backup_item_catalog_info,
          puc$backup_item_file_info, puc$backup_item_cycle_info),

    put$backup_item_info = record
      case item_type: put$backup_item_info_type of
      = puc$backup_item_set_info =
        set_item_info: pft$p_info_record,
      = puc$backup_item_family_info =
        family_item_info: pft$p_info_record,
        family_content_info: pft$p_info_record,
      = puc$backup_item_catalog_info =
        catalog_item_info: pft$p_info_record,
      = puc$backup_item_file_info =
        file_item_info: pft$p_info_record,
      = puc$backup_item_cycle_info =
        cycle_item_info: put$backup_file_cycle_info,
      casend,
    recend,

    put$backup_file_item_path = record
      item_path_header: put$backup_file_record_header,
      item_path_descriptor: put$backup_item_descriptor,
    recend,

    put$backup_item_descriptor = record
      pf_utility_entry: put$entry,
      catalog_header: put$catalog_header,
    recend,

    put$backup_file_hierarchy_list = record
      hierarchy_list_header: put$backup_file_record_header,
      hierarchy_list: put$hierarchy_list,
    recend,

    put$backup_file_record_header = record
      kind: put$backup_record_type,
      size: put$half_integer,
    recend,

    put$backup_file_cycle_info = record
      body_size: put$half_integer,
      body: ^cell,
    recend;

  TYPE
    put$backup_file_version_name = ost$name;

  CONST
    puc$backup_file_version_1 = 'BACKUP_FILE_VERSION_001        ',
    puc$backup_file_version_2 = 'BACKUP_FILE_VERSION_002        ';


?? PUSH (LISTEXT := ON) ??
*copyc ost$name
*copyc ost$user_identification
*copyc pft$p_info_record
*copyc pud$hierarchy_list
*copyc stt$set_name
?? POP ??
