X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-odbc%2Fodbc-constants.lisp;h=6d8a1839a8f32ca2bc35e93ca2ce68a611ea30ce;hb=6b34e2293a52b03e8611c85e4e53a0ab5c8a3c1a;hp=591a3afa43fcc76c0f7a3f0df4e15bbd62652eae;hpb=5bfa219c5e3b387b9dd7c819441f0182ccb16dc8;p=clsql.git

diff --git a/db-odbc/odbc-constants.lisp b/db-odbc/odbc-constants.lisp
index 591a3af..6d8a183 100644
--- a/db-odbc/odbc-constants.lisp
+++ b/db-odbc/odbc-constants.lisp
@@ -1,4 +1,4 @@
-;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: odbc -*-
+ ;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: odbc -*-
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
@@ -24,6 +24,13 @@
 
 ;; (defconstant $ODBCVER	#x0210)
 
+
+;; for new SQLAllocHandle functiion
+(defconstant $SQL_HANDLE_ENV 1)
+(defconstant $SQL_HANDLE_DBC 2)
+(defconstant $SQL_HANDLE_STMT 3)
+(defconstant $SQL_HANDLE_DESC 4)
+
 ;; generally useful constants
 (defconstant $SQL_SPEC_MAJOR 2)		;; Major version of specification 
 (defconstant $SQL_SPEC_MINOR 10) 	;; Minor version of specification 
@@ -946,6 +953,8 @@
 (defconstant $SQL_DRIVER_PROMPT 2)
 (defconstant $SQL_DRIVER_COMPLETE_REQUIRED 3)
 
+(defconstant $SQL_MAX_CONN_OUT 1024)
+
 ;; Level 2 Functions
 
 ;; SQLExtendedFetch "fFetchType" values