$SAVE NOLIST

rq$get$logical$device$status:  PROCEDURE( log$name,
                                          return$data,
                                          except$ptr ) EXTERNAL;

DECLARE log$name    POINTER,
        return$data POINTER,
        except$ptr  POINTER;

END rq$get$logical$device$status;

$RESTORE