(def-foreign-type sql-handle :pointer-void)
(def-foreign-type sql-handle-ptr '(* sql-handle))
(def-foreign-type string-ptr '(* :unsigned-char))
(def-foreign-type sql-handle :pointer-void)
(def-foreign-type sql-handle-ptr '(* sql-handle))
(def-foreign-type string-ptr '(* :unsigned-char))
(def-function "SQLPrepare"
((hstmt sql-handle) ; HSTMT hstmt
(*szSqlStr :cstring) ; UCHAR FAR *szSqlStr
(def-function "SQLPrepare"
((hstmt sql-handle) ; HSTMT hstmt
(*szSqlStr :cstring) ; UCHAR FAR *szSqlStr
(def-function "SQLExecDirect"
((hstmt sql-handle) ; HSTMT hstmt
(*szSqlStr :cstring) ; UCHAR FAR *szSqlStr
(def-function "SQLExecDirect"
((hstmt sql-handle) ; HSTMT hstmt
(*szSqlStr :cstring) ; UCHAR FAR *szSqlStr
(hdbc sql-handle) ; HDBC hdbc
(hstmt sql-handle) ; HSTMT hstmt
(*szSqlState string-ptr) ; UCHAR FAR *szSqlState
(hdbc sql-handle) ; HDBC hdbc
(hstmt sql-handle) ; HSTMT hstmt
(*szSqlState string-ptr) ; UCHAR FAR *szSqlState
(*szErrorMsg string-ptr) ; UCHAR FAR *szErrorMsg
(cbErrorMsgMax :short) ; SWORD cbErrorMsgMax
(*pcbErrorMsg (* :short)) ; SWORD FAR *pcbErrorMsg
(*szErrorMsg string-ptr) ; UCHAR FAR *szErrorMsg
(cbErrorMsgMax :short) ; SWORD cbErrorMsgMax
(*pcbErrorMsg (* :short)) ; SWORD FAR *pcbErrorMsg
(cbColNameMax :short) ; SWORD cbColNameMax
(*pcbColName (* :short)) ; SWORD FAR *pcbColName
(*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
(cbColNameMax :short) ; SWORD cbColNameMax
(*pcbColName (* :short)) ; SWORD FAR *pcbColName
(*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
(rgbDesc string-ptr) ; PTR rgbDesc
(cbDescMax :short) ; SWORD cbDescMax
(*pcbDesc (* :short)) ; SWORD FAR *pcbDesc
(rgbDesc string-ptr) ; PTR rgbDesc
(cbDescMax :short) ; SWORD cbDescMax
(*pcbDesc (* :short)) ; SWORD FAR *pcbDesc
(icol :short) ; UWORD icol
(fCType :short) ; SWORD fCType
(rgbValue :pointer-void) ; PTR rgbValue
(icol :short) ; UWORD icol
(fCType :short) ; SWORD fCType
(rgbValue :pointer-void) ; PTR rgbValue
((hstmt sql-handle) ; HSTMT hstmt
(ipar :short) ; UWORD ipar
(*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
((hstmt sql-handle) ; HSTMT hstmt
(ipar :short) ; UWORD ipar
(*pfSqlType (* :short)) ; SWORD FAR *pfSqlType
(fParamType :short) ; SWORD fParamType
(fCType :short) ; SWORD fCType
(fSqlType :short) ; SWORD fSqlType
(fParamType :short) ; SWORD fParamType
(fCType :short) ; SWORD fCType
(fSqlType :short) ; SWORD fSqlType
(icol :short) ; UWORD icol
(fCType :short) ; SWORD fCType
(rgbValue :pointer-void) ; PTR rgbValue
(icol :short) ; UWORD icol
(fCType :short) ; SWORD fCType
(rgbValue :pointer-void) ; PTR rgbValue
(def-function "SQLPutData"
((hstmt sql-handle) ; HSTMT hstmt
(rgbValue :pointer-void) ; PTR rgbValue
(def-function "SQLPutData"
((hstmt sql-handle) ; HSTMT hstmt
(rgbValue :pointer-void) ; PTR rgbValue
(def-function "SQLSetConnectOption"
((hdbc sql-handle) ; HDBC hdbc
(fOption :short) ; UWORD fOption
(def-function "SQLSetConnectOption"
((hdbc sql-handle) ; HDBC hdbc
(fOption :short) ; UWORD fOption
(def-function "SQLExtendedFetch"
((hstmt sql-handle) ; HSTMT hstmt
(fFetchType :short) ; UWORD fFetchType
(def-function "SQLExtendedFetch"
((hstmt sql-handle) ; HSTMT hstmt
(fFetchType :short) ; UWORD fFetchType