
  PROCEDURE [XREF] fmp$request_tape
    (    density: rmt$density;
         write_ring: rmt$write_ring;
         volume_list: rmt$volume_list;
         removable_media_group: ost$name;
         volume_overflow_allowed: boolean;
     VAR evaluated_file_reference: {i/o} fst$evaluated_file_reference;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fst$evaluated_file_reference
*copyc rmd$tape_declarations
*copyc rmd$volume_declarations
*copyc rmc$condition_code_limits
*copyc rme$class_validation_errors
*copyc rme$request_tape
*copyc rmt$write_ring
*copyc ost$name
*copyc ost$status
?? POP ??
