
  PROCEDURE [INLINE] fmp$get_attached_tape_info
    (    system_file_id: gft$system_file_identifier;
     VAR volume_list_p: ^rmt$volume_list;
     VAR volume_number: amt$volume_number;
     VAR volume_overflow_allowed: boolean;
     VAR density: rmt$density;
     VAR removable_media_group: ost$name;
     VAR object_information_p: ^SEQ ( * );
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      current_vsns: rmt$volume_descriptor,
      label_type: amt$label_type,
      number_of_volumes: amt$volume_number,
      requested_volume_attributes: iot$requested_volume_attributes,
      write_ring: rmt$write_ring;

    dmp$get_tape_volume_information (system_file_id, number_of_volumes, volume_number,
          current_vsns, density, write_ring, requested_volume_attributes, volume_overflow_allowed,
          label_type, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    removable_media_group := requested_volume_attributes.removable_media_group;
    NEXT volume_list_p: [1 .. number_of_volumes] IN object_information_p;
    IF volume_list_p = NIL THEN
      osp$set_status_condition (pfe$info_full, status);
      RETURN;
    IFEND;

    dmp$get_tape_volume_list (system_file_id, volume_list_p, status);

  PROCEND fmp$get_attached_tape_info;

*copyc pfe$internal_error_conditions
*copyc amt$label_type
*copyc amt$volume_number
*copyc gft$system_file_identifier
*copyc ost$name
*copyc ost$status
*copyc rmt$density
*copyc rmt$volume_descriptor
*copyc rmt$volume_list
*copyc rmt$write_ring
*copyc dmp$get_tape_volume_information
*copyc dmp$get_tape_volume_list
*copyc osp$set_status_condition
?? POP ??
