  PROCEDURE [INLINE] pfp$get_rem_media_req_info
    (    p_fmd: {input^} ^pft$fmd;
         p_removable_media_req_info: {output^} ^fmt$removable_media_req_info;
     VAR number_of_volumes: 0 .. amc$max_vol_number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    VAR
      p_stored_tape_fmd: ^dmt$stored_tape_fmd,
      p_stored_tape_fmd_header: ^dmt$stored_tape_fmd_header;

    status.normal := TRUE;

    p_stored_tape_fmd := p_fmd;
    RESET p_stored_tape_fmd;
    NEXT p_stored_tape_fmd_header IN p_stored_tape_fmd;
    IF (p_stored_tape_fmd_header <> NIL)
{ } AND (p_stored_tape_fmd_header^.version = dmc$stored_tape_fmd_version_1) THEN
      pfp$convert_density_to_rm (p_stored_tape_fmd_header^.density, p_removable_media_req_info^.density);
      p_removable_media_req_info^.removable_media_group := p_stored_tape_fmd_header^.removable_media_group;
      p_removable_media_req_info^.volume_overflow_allowed :=
            p_stored_tape_fmd_header^.volume_overflow_allowed;
      number_of_volumes := p_stored_tape_fmd_header^.volume_count;
    ELSE
      p_removable_media_req_info^.density := rmc$6250;
      p_removable_media_req_info^.removable_media_group := osc$null_name;
      p_removable_media_req_info^.volume_overflow_allowed := TRUE;
      number_of_volumes := 0;
    IFEND;

  PROCEND pfp$get_rem_media_req_info;

*copyc dmt$stored_tape_fmd
*copyc dmt$stored_tape_fmd_header
*copyc dmt$stored_tape_volume_list
*copyc fmt$removable_media_req_info
*copyc pft$fmd
*copyc pfp$convert_density_to_rm
*copyc rmt$volume_list
*copyc ost$status
?? POP ??
