
  PROCEDURE [XREF] rmp$validate_tape_assignment
    (    validation_state: boolean,
         file_identifier: amt$file_identifier;
         file: fst$file_reference;
         density: rmt$density;
         write_ring: rmt$write_ring;
         file_label_type: amt$file_label_type;
         access_mode: pft$usage_selections;
         initial_assignment: boolean;
         next_volume: amt$volume_number;
         volume_descriptor: rmt$volume_descriptor;
         removable_media_group: ost$name;
         removable_media_location: ost$name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc amt$file_label_type
*copyc amt$volume_number
*copyc fst$file_reference
*copyc ost$name
*copyc ost$status
*copyc pft$usage_selections
*copyc rmt$density
*copyc rmt$tape_class
*copyc rmt$volume_descriptor
*copyc rmt$write_ring
?? POP ??
