+ (month :short)
+ (day :short)
+ (hour :short)
+ (minute :short)
+ (second :short)
+ (fraction :long))
+
+;;; Added by KMR
+
+(def-function "SQLSetEnvAttr"
+ ((henv sql-handle) ; HENV henv
+ (attr :int)
+ (*value :pointer-void)
+ (szLength :int))
+ :module "odbc"
+ :returning :int)
+
+(def-function "SQLTables"
+ ((hstmt :pointer-void)
+ (catalog-name :pointer-void)
+ (catalog-name-length :short)
+ (schema-name :pointer-void)
+ (schema-name-length :short)
+ (table-name :pointer-void)
+ (table-name-length :short)
+ (table-type-name :pointer-void)
+ (table-type-name-length :short))
+ :returning :short)
+