
  TYPE
    fst$file_change = record
      case selector: fst$file_change_choices of
      = fsc$charge_change =
        ,
      = fsc$cycle_number_change =
        cycle_number: fst$cycle_number,
      = fsc$delete_damage_change =
        delete_damage_condition: fst$cycle_damage_symptoms,
      = fsc$log_change =
        log: pft$log,
      = fsc$null_file_change =
        ,
      = fsc$password_change =
        password: pft$password,
      = fsc$pf_name_change =
        pfn: pft$name,
      = fsc$retention_change =
        retention: fst$retention,
      = fsc$retrieve_option_change =
        retrieve_option: pft$retrieve_option,
      = fsc$shared_queue_change =
        shared_queue: ost$name,
      = fsc$site_archive_option_change =
        site_archive_option: pft$site_archive_option,
      = fsc$site_backup_option_change =
        site_backup_option: pft$site_backup_option,
      = fsc$site_release_option_change =
        site_release_option: pft$site_release_option,
      casend,
    recend;

*copyc fst$cycle_damage_symptoms
*copyc fst$cycle_number
*copyc fst$file_change_choices
*copyc fst$retention
*copyc ost$name
*copyc pft$log
*copyc pft$name
*copyc pft$password
*copyc pft$retrieve_option
*copyc pft$site_archive_option
*copyc pft$site_backup_option
*copyc pft$site_release_option
