
   TYPE
     cmt$device_information = RECORD
       iou_number : dst$iou_number,
       channel_number : 0 .. 0ff(16),
       equipment_number : 0 .. 7,
       unit_number : 0 .. 63,
       unit_type : iot$unit_type,
       logical_unit : iot$logical_unit,
     RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc dst$iou_number
*copyc iot$unit_type
*copyc iot$logical_unit
?? POP ??
