
  PROCEDURE [XREF] dmp$get_tape_volume_information
    (    sfid: gft$system_file_identifier;
     VAR number_of_volumes: amt$volume_number;
     VAR current_volume_number: amt$volume_number;
     VAR current_vsns: rmt$volume_descriptor;
     VAR density: rmt$density;
     VAR write_ring: rmt$write_ring;
     VAR requested_volume_attributes: iot$requested_volume_attributes;
     VAR volume_overflow_allowed: boolean;
     VAR label_type: amt$label_type;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$label_type
*copyc amt$volume_number
*copyc gft$system_file_identifier
*copyc iot$requested_volume_attributes
*copyc ost$status
*copyc rmt$density
*copyc rmt$tape_class
*copyc rmt$volume_descriptor
*copyc rmt$write_ring
?? POP ??
