dq$change$access:  PROCEDURE( path$ptr,
                              class,
                              access,
                              except$ptr ) EXTERNAL;

DECLARE path$ptr      POINTER,
        class         BYTE,
        access        BYTE,
        except$ptr    POINTER;

END  dq$change$access;