anchor.diff:  (def-function "SQLPrepare"
       ((hstmt sql-handle)         ; HSTMT       hstmt
        (*szSqlStr :cstring)     ; UCHAR  FAR *szSqlStr
  -     (cbSqlStr :long)           ; SDWORD      cbSqlStr
  +     (cbSqlStr :int)           ; SDWORD      cbSqlStr
        )
     :module "odbc"
     :returning :short)              ; RETCODE_SQL_API
  
positive.code: 
  (def-function "SQLRowCount"
      ((hstmt sql-handle)         ; HSTMT       hstmt
       (*pcrow (* :long))              ; SDWORD FAR *pcrow
       )
    :module "odbc"
    :returning :short)              ; RETCODE_SQL_API
  
negative.code:      (icol :short)              ; UWORD       icol
       (fCType :short)            ; SWORD       fCType
       (rgbValue :pointer-void)            ; PTR         rgbValue
       (cbValueMax :int)         ; SDWORD      cbValueMax
       (*pcbValue :pointer-void)           ; SDWORD FAR *pcbValue
       )
    :module "odbc"
  