
  PROCEDURE [XREF] rmp$complete_tape_assignment (
    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 operator_terminated_assignment: boolean;
    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$volume_descriptor
*copyc rmt$write_ring
?? POP ??
