
  PROCEDURE [XREF] iop$get_tape_mount_information (
    rvl_info_array_p: ^ARRAY [ 1..* ] OF iot$rvl_entry_information;
    VAR all_tape_mounts_found: boolean;
    VAR status: ost$status);


?? PUSH (LISTEXT := ON) ??
*copyc iot$rvl_entry_information
*copyc ost$status
?? POP ??
