
{ This routine was created specifically for fmp$get_files_volume_info

  PROCEDURE [XREF] fmp$get_device_class_and_sfid
    (    file: fst$file_reference;
     VAR device_class: rmt$device_class;
     VAR sfid: gft$system_file_identifier;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc gft$system_file_identifier
*copyc fst$file_reference
*copyc ost$status
*copyc rmt$device_class
?? POP ??
