FIX: SQLParamData or SQLFetch Fails When SQL_ATTR_CURSOR_TYPE Cursor Type is Set to SQL_CURSOR_STATIC

/*
//Script to generate table TestBASE:

if exists (select * from sysobjects where id = object_id('dbo.TESTBASE') and sysstat & 0xf = 3)
	drop table dbo.TESTBASE
GO

CREATE TABLE TESTBASE (CHARCOL CHAR (10), INTCOL INT) 
GO

INSERT INTO TESTBASE VALUES('2testvalue',1)
GO
*/ 

// A sample C program to reproduce this problem.
#include <stdio.h>
#include <string.h>
#include <windows.h>
#include <sql.h>
#include <sqlext.h>
#define MAXDSN        25
#define MAXUID        25
#define MAXAUTHSTR    25
#define MAXBUFLEN     255
#define SIZEOFTEXT    10
HENV    henv = SQL_NULL_HENV;
HDBC    hdbc1 = SQL_NULL_HDBC;
HSTMT    hstmt1 = SQL_NULL_HSTMT;
char    logstring[MAXBUFLEN] = "";
char	var1[]= "2testvalue";
char*   pvar1 = var1;
void    ProcessLogMessages(HENV plm_henv, HDBC plm_hdbc,
                HSTMT plm_hstmt, char *logstring);
int i;
int main()

{
    RETCODE retcode;
    UCHAR    szDSN[MAXDSN+1] = "Pubs",
             szUID[MAXUID+1] = "sa",
             szAuthStr[MAXAUTHSTR+1] = "";        
    //SQLParamData variable.
    PTR    pParmID;
    //SQLPutData variables.
    UCHAR    Data[] = 
    "2testvalue";
    SDWORD    cbBatch = (SDWORD)sizeof(Data)-1;

     // Allocate the ODBC environment and save handle.
    retcode = SQLAllocEnv (&henv);
    // Allocate ODBC connection and connect.
    retcode = SQLAllocConnect(henv, &hdbc1);
    retcode = SQLConnect(hdbc1, szDSN, (SWORD)strlen((const char *)szDSN),
                  szUID, (SWORD)strlen((const char *)szUID),szAuthStr,
                  (SWORD)strlen((const char *)szAuthStr));
   
    // Allocate a statement handle.
    retcode = SQLAllocStmt(hdbc1,&hstmt1);
    retcode = SQLSetStmtAttr(hstmt1, SQL_ATTR_CURSOR_TYPE, (void *)SQL_CURSOR_STATIC, SQL_IS_INTEGER);
    // Let ODBC know total length of data to send.
    SDWORD    lbytes, cbVarSize = 8;
    lbytes = (SDWORD)SIZEOFTEXT;
    cbVarSize = SQL_LEN_DATA_AT_EXEC(lbytes); //This will result in a straight insert statement
    // Bind the parameter.
    retcode = SQLBindParameter(hstmt1,    // hstmt
            1,            // ipar
            SQL_PARAM_INPUT,    // fParamType
            SQL_C_CHAR,        // fCType
            SQL_CHAR,    // FSqlType
            10,            // cbColDef
            0,            // ibScale
            (VOID *)pvar1,        // rgbValue
            0,            // cbValueMax
            &cbVarSize);        // pcbValue


    retcode = SQLExecDirect(hstmt1,(UCHAR *)"SELECT CHARCOL, INTCOL FROM TESTBASE WHERE CHARCOL=?", SQL_NTS);

    // Get ID of parameter that needs data.
    retcode = SQLParamData(hstmt1, &pParmID);
    // If data is needed for the Data-At-Execution parameter:
    if (retcode == SQL_NEED_DATA) 
	{
         retcode = SQLPutData(hstmt1, Data, cbBatch);
    }  

    // Make final SQLParamData call to signal end of data.
    // Bug: With MDAC 2.5, this call returns SQL_ERROR (-1).
    retcode = SQLParamData(hstmt1, &pParmID);

    //Bug: With MDAC 2.1, this call returns SQL_NO_DATA_FOUND (100).
    retcode = SQLFetch(hstmt1);
    // This call returns SQL_NO_DATA_FOUND
    retcode = SQLFetch(hstmt1);

    /* Clean up. */ 
    SQLFreeStmt(hstmt1, SQL_DROP);
    SQLDisconnect(hdbc1);
    SQLFreeConnect(hdbc1);
    SQLFreeEnv(henv);
    return(0);
}