
  TYPE

    fst$cycle_residence_information = record
      case device_class: rmt$device_class of
      = rmc$magnetic_tape_device =
        magnetic_tape: fst$magnetic_tape_information,
      = rmc$mass_storage_device =
        mass_storage: fst$mass_storage_information,
      = rmc$connected_file_device, rmc$interstate_link_device,
        rmc$local_queue_device, rmc$log_device, rmc$network_device,
          rmc$null_device, rmc$pipeline_device, rmc$rhfam_device,
          rmc$terminal_device =
        ,
      casend,
    recend;

*copyc fst$magnetic_tape_information
*copyc fst$mass_storage_information
*copyc rmt$device_class
