
  TYPE
    pft$change_descriptor = record
      case change_type: pft$change_type of
      = pfc$pf_name_change =
        pfn: pft$name,
      = pfc$password_change =
        password: pft$password,
      = pfc$cycle_number_change =
        cycle_number: fst$cycle_number,
      = pfc$retention_change =
        retention: pft$retention,
      = pfc$log_change =
        log: pft$log,
      = pfc$charge_change =
        ,
      = pfc$delete_damage_change =
        delete_damage_condition: fst$cycle_damage_symptoms,
      casend,
    recend;

*copyc fst$cycle_damage_symptoms
*copyc fst$cycle_number
*copyc pft$change_type
*copyc pft$log
*copyc pft$name
*copyc pft$password
*copyc pft$retention
