
  PROCEDURE [XREF] iop$change_disk_unit
     (   new_state: cmt$element_state;
         logical_unit: iot$logical_unit;
     VAR status: syt$monitor_status);

*copyc cmt$element_state
*copyc iot$logical_unit
*copyc syt$monitor_status
