
  PROCEDURE [XREF] dmp$fetch_tape_unit_status_info
    (VAR tape_unit_status_info: array [1 .. * ] of dmt$tape_unit_status_info;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dmt$tape_unit_status_info
*copyc ost$status
?? POP ??

