anchor.diff:  (def-function "SQLSetConnectOption"
       ((hdbc sql-handle)          ; HDBC        hdbc
        (fOption :short)           ; UWORD       fOption
  -     (vParam :long)             ; UDWORD      vParam
  +     (vParam :int)             ; UDWORD      vParam
        )
     :module "odbc"
     :returning :short)              ; RETCODE_SQL_API
  
positive.code:     ((hstmt sql-handle)         ; HSTMT       hstmt
       (ipar :short)              ; UWORD       ipar
       (*pfSqlType (* :short))          ; SWORD  FAR *pfSqlType
       (*pcbColDef (* :unsigned-long))          ; UDWORD FAR *pcbColDef
       (*pibScale (* :short))           ; SWORD  FAR *pibScale
       (*pfNullable (* :short))         ; SWORD  FAR *pfNullable
       )
  
negative.code: (def-function "SQLExecDirect"
      ((hstmt sql-handle)         ; HSTMT       hstmt
       (*szSqlStr :cstring)     ; UCHAR  FAR *szSqlStr
       (cbSqlStr :int)           ; SDWORD      cbSqlStr
       )
    :module "odbc"
    :returning :short)              ; RETCODE_SQL_API
  