
  TYPE
    pft$auditable_cycle = record
      case audit: boolean of
      = FALSE =
        ,
      = TRUE =
        cycle_number: fst$cycle_number,
        device_class: rmt$device_class,
        case normal_status: boolean of
        = FALSE =
          condition: ost$status_condition_code,
        = TRUE =
          ,
        casend,
      casend,
    recend;

*copyc fst$cycle_number
*copyc ost$status_condition_code
*copyc rmt$device_class
