?? NEWTITLE := 'NOS/VE : Basic Access Methods : get device class' ??
MODULE bam$get_device_class;
{
{ PURPOSE:  This module contains the 23d interface for getting the device class
{           to which a file is assigned.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
*copyc fmp$get_device_class
?? OLDTITLE ??
?? NEWTITLE := 'PROCEDURE [XDCL, #GATE] bap$get_device_class', EJECT ??

  PROCEDURE [XDCL, #GATE] bap$get_device_class
    (    path_handle: fmt$path_handle;
     VAR device_assigned: boolean;
     VAR device_class: rmt$device_class;
     VAR status: ost$status);

    fmp$get_device_class (path_handle, device_assigned, device_class, status);

  PROCEND bap$get_device_class;
?? OLDTITLE ??
MODEND bam$get_device_class;

