
  TYPE
    fst$device_information = record
      case rmt$device_class of
      = rmc$connected_file_device, rmc$interstate_link_device,
            rmc$local_queue_device, rmc$log_device =
        ,
      = rmc$magnetic_tape_device =
        magnetic_tape_device_info: fst$magnetic_tape_device_info,
      = rmc$mass_storage_device =
        mass_storage_device_info: fst$mass_storage_device_info,
      = rmc$memory_resident_device, rmc$network_device, rmc$null_device,
            rmc$pipeline_device, rmc$rhfam_device, rmc$terminal_device =
        ,
      casend,
    recend;

*copyc fst$magnetic_tape_device_info
*copyc fst$mass_storage_device_info
*copyc rmt$device_class
