
  PROCEDURE [XREF] rmp$get_device_class (file: fst$file_reference;
*IF NOT $true(osv$unix)
    VAR device_assigned: boolean;
*IFEND
    VAR device_class: rmt$device_class;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc AMT$LOCAL_FILE_NAME
*copyc fst$file_reference
*copyc RMT$DEVICE_CLASS
*copyc OST$STATUS
?? POP ??
