$SAVE NOLIST

dq$open:  PROCEDURE( conn,
                     mode,
                     num$buf,
                     except$ptr ) EXTERNAL;

DECLARE conn            TOKEN,
        mode            BYTE,
        num$buf         BYTE,
        except$ptr      POINTER;

END dq$open;

$RESTORE