
  TYPE
    pft$cycle_device_information = packed record
      case device_class_defined: boolean of
      = FALSE =
        ,
      = TRUE =
        case device_class: pft$device_class of
        = pfc$connected_file_device =
          ,
        = pfc$interstate_link_device =
          ,
        = pfc$local_queue_device =
          ,
        = pfc$log_device =
          ,
        = pfc$magnetic_tape_device =
          ,
        = pfc$mass_storage_device =
          eoi: ALIGNED amt$file_byte_address,
          bytes_allocated: ALIGNED amt$file_byte_address,

        = pfc$memory_resident_device =
          ,
        = pfc$network_device =
          ,
        = pfc$null_device =
          ,
        = pfc$pipeline_device =
          ,
        = pfc$rhfam_device =
          ,
        = pfc$terminal_device =
          ,
        casend,
      casend,
    recend;

*copyc amt$file_byte_address
*copyc pft$device_class
