
  PROCEDURE [XREF] iop$tape_request_not_processed (
         i: iot$io_id;
         j: iot$no_of_tape_units;
         q: 1 .. ioc$max_multiple_tape_requests;
         VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc IOT$NO_OF_TAPE_UNITS
*copyc OST$STATUS
?? POP ??

