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