TYPE

 iot$tape_track = record
                  id: iot$io_id,
                  time: integer,
                  lun: iot$logical_unit,
                  recend;

*copyc iot$logical_unit
*copyc iot$io_id
