{
{   The purpose of this request is to obtain the device class to which a file
{ is assigned.
{
*IF NOT $true(osv$unix)
{       RMP$GET_DEVICE_CLASS (FILE, FILE_REGISTERED, DEVICE_CLASS, STATUS)
*ELSE
{       RMP$GET_DEVICE_CLASS (FILE, DEVICE_CLASS, STATUS)
*IFEND
{
{ FILE: (input)  This parameter specifies the name of the file whose device
{       class is requested.  A cycle reference consisting of $next is not
{       permitted.  If the cycle reference is omitted, the value 1 will be
{       used.
{
*IF NOT $true(osv$unix)
{ FILE_REGISTERED: (output)  This parameter specifies whether the file is
{       registered in a catalog.
*IFEND
{
{ DEVICE_CLASS: (output)  This parameter specifies the device class to which
{       the file identifier is assigned.  If FILE_IDENTIFIER is not valid,
{       rmc$mass_storage_device will be returned.
{
{ STATUS: (output) This parameter specifies the request status.
{
