(hdbc sql-handle) ; HDBC hdbc
(hstmt sql-handle) ; HSTMT hstmt
(*szSqlState string-ptr) ; UCHAR FAR *szSqlState
- (*pfNativeError :pointer-void) ; SDWORD FAR *pfNativeError
+ (*pfNativeError (* :long)) ; SDWORD FAR *pfNativeError
(*szErrorMsg string-ptr) ; UCHAR FAR *szErrorMsg
(cbErrorMsgMax :short) ; SWORD cbErrorMsgMax
- (*pcbErrorMsg :pointer-void) ; SWORD FAR *pcbErrorMsg
+ (*pcbErrorMsg (* :short)) ; SWORD FAR *pcbErrorMsg
)
:module "odbc"
:returning :short) ; RETCODE_SQL_API
(def-function "SQLNumResultCols"
((hstmt sql-handle) ; HSTMT hstmt
- (*pccol :pointer-void) ; SWORD FAR *pccol
+ (*pccol (* :short)) ; SWORD FAR *pccol
)
:module "odbc"
:returning :short) ; RETCODE_SQL_API
(def-function "SQLRowCount"
((hstmt sql-handle) ; HSTMT hstmt
- (*pcrow :pointer-void) ; SDWORD FAR *pcrow
+ (*pcrow (* :long)) ; SDWORD FAR *pcrow
)
:module "odbc"
:returning :short) ; RETCODE_SQL_API
(icol :short) ; UWORD icol
(*szColName string-ptr) ; UCHAR FAR *szColName
(cbColNameMax :short) ; SWORD cbColNameMax
- (*pcbColName :pointer-void) ; SWORD FAR *pcbColName
- (*pfSqlType :pointer-void) ; SWORD FAR *pfSqlType
- (*pcbColDef :pointer-void) ; UDWORD FAR *pcbColDef
- (*pibScale :pointer-void) ; SWORD FAR *pibScale
- (*pfNullable :pointer-void) ; SWORD FAR *pfNullable
+ (*pcbColName (* :short)) ; SWORD FAR *pcbColName
+ (*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
+ (*pcbColDef (* :unsigned-long)) ; UDWORD FAR *pcbColDef
+ (*pibScale (* :short)) ; SWORD FAR *pibScale
+ (*pfNullable (* :short)) ; SWORD FAR *pfNullable
)
:module "odbc"
:returning :short) ; RETCODE_SQL_API
((hstmt sql-handle) ; HSTMT hstmt
(icol :short) ; UWORD icol
(fDescType :short) ; UWORD fDescType
- (rgbDesc :cstring) ; PTR rgbDesc
+ (rgbDesc string-ptr) ; PTR rgbDesc
(cbDescMax :short) ; SWORD cbDescMax
- (*pcbDesc :cstring) ; SWORD FAR *pcbDesc
- (*pfDesc :pointer-void) ; SDWORD FAR *pfDesc
+ (*pcbDesc (* :short)) ; SWORD FAR *pcbDesc
+ (*pfDesc (* :long)) ; SDWORD FAR *pfDesc
)
:module "odbc"
:returning :short) ; RETCODE_SQL_API
(fCType :short) ; SWORD fCType
(rgbValue :pointer-void) ; PTR rgbValue
(cbValueMax :long) ; SDWORD cbValueMax
- (*pcbValue :pointer-void) ; SDWORD FAR *pcbValue
+ (*pcbValue (* :long)) ; SDWORD FAR *pcbValue
)
:module "odbc"
:returning :short) ; RETCODE_SQL_API
(def-function "SQLDescribeParam"
((hstmt sql-handle) ; HSTMT hstmt
(ipar :short) ; UWORD ipar
- (*pfSqlType :pointer-void) ; SWORD FAR *pfSqlType
- (*pcbColDef :pointer-void) ; UDWORD FAR *pcbColDef
- (*pibScale :pointer-void) ; SWORD FAR *pibScale
- (*pfNullable :pointer-void) ; SWORD FAR *pfNullable
+ (*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
+ (*pcbColDef (* :unsigned-long)) ; UDWORD FAR *pcbColDef
+ (*pibScale (* :short)) ; SWORD FAR *pibScale
+ (*pfNullable (* :short)) ; SWORD FAR *pfNullable
)
:module "odbc"
:returning :short) ; RETCODE_SQL_API
(fDirection :short)
(*szDSN string-ptr) ; UCHAR FAR *szDSN
(cbDSNMax :short) ; SWORD cbDSNMax
- (*pcbDSN :pointer-void) ; SWORD *pcbDSN
+ (*pcbDSN (* :short)) ; SWORD *pcbDSN
(*szDescription string-ptr) ; UCHAR *szDescription
(cbDescriptionMax :short) ; SWORD cbDescriptionMax
- (*pcbDescription :pointer-void) ; SWORD *pcbDescription
+ (*pcbDescription (* :short)) ; SWORD *pcbDescription
)
:module "odbc"
:returning :short) ; RETCODE_SQL_API
(def-struct sql-c-date
(year :short)
- (month :short)
- (day :short))
+ (month :short)
+ (day :short))
(def-struct sql-c-timestamp
(year :short)
- (month :short)
- (day :short)
- (hour :short)
- (minute :short)
- (second :short)
- (fraction :long))
-
+ (month :short)
+ (day :short)
+ (hour :short)
+ (minute :short)
+ (second :short)
+ (fraction :long))
;;; Added by KMR
:returning :short)
+(def-function "SQLStatistics"
+ ((hstmt :pointer-void)
+ (catalog-name :pointer-void)
+ (catalog-name-length :short)
+ (schema-name :pointer-void)
+ (schema-name-length :short)
+ (table-name :cstring)
+ (table-name-length :short)
+ (unique :short)
+ (reserved :short))
+ :returning :short)
+
+