SQLColumns returns CHAR_OCTET_LENGTH -1/-4 instead of NULL; since 18.00.0003 MSDASQL column schema rowsets fail with 22003 #228

set_tuplefield_int4(&tuple[COLUMNS_CHAR_OCTET_LENGTH], PGTYPE_ATTR_TRANSFER_OCTET_LENGTH(conn, field_type, mod_length));

/* Shows CHAR_OCTET_LENGTH from SQLColumns for each column of one table:
 * pass 1 reads it with SQLGetData(SQL_C_SLONG) and prints the value and the
 * indicator; pass 2 binds it as SQL_C_ULONG, the way MSDASQL does, and
 * prints the SQLFetch result.
 *   octet_repro.exe "<connection string>" <schema> <table>
 */
#include <windows.h>
#include <sql.h>
#include <sqlext.h>
#include <stdio.h>

static void diag(SQLHSTMT stmt)
{
    SQLCHAR state[6], msg[512];
    SQLINTEGER native;
    SQLSMALLINT len;
    SQLSMALLINT i;
    for (i = 1; SQLGetDiagRec(SQL_HANDLE_STMT, stmt, i, state, &native, msg, sizeof(msg), &len) == SQL_SUCCESS; i++)
        printf("    SQLSTATE=%s native=%ld %s\n", state, (long)native, msg);
}

int main(int argc, char **argv)
{
    SQLHENV env;
    SQLHDBC dbc;
    SQLHSTMT stmt;
    SQLRETURN rc;
    SQLCHAR name[129];
    SQLLEN nameInd, ind;
    SQLINTEGER slong;
    SQLUINTEGER ulong;

    if (argc < 4) {
        printf("usage: octet_repro \"<connection string>\" <schema> <table>\n");
        return 2;
    }
    SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &env);
    SQLSetEnvAttr(env, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)SQL_OV_ODBC3, 0);
    SQLAllocHandle(SQL_HANDLE_DBC, env, &dbc);
    rc = SQLDriverConnect(dbc, NULL, (SQLCHAR *)argv[1], SQL_NTS, NULL, 0, NULL, SQL_DRIVER_NOPROMPT);
    if (!SQL_SUCCEEDED(rc)) {
        printf("connect failed\n");
        return 1;
    }
    {
        SQLCHAR ver[64];
        SQLSMALLINT len;
        SQLGetInfo(dbc, SQL_DRIVER_VER, ver, sizeof(ver), &len);
        printf("driver %s\n", ver);
    }

    printf("pass 1: SQLGetData(16, SQL_C_SLONG)\n");
    SQLAllocHandle(SQL_HANDLE_STMT, dbc, &stmt);
    SQLColumns(stmt, NULL, 0, (SQLCHAR *)argv[2], SQL_NTS, (SQLCHAR *)argv[3], SQL_NTS, NULL, 0);
    while (SQL_SUCCEEDED(SQLFetch(stmt))) {
        SQLSMALLINT type;
        SQLGetData(stmt, 4, SQL_C_CHAR, name, sizeof(name), &nameInd);
        SQLGetData(stmt, 5, SQL_C_SSHORT, &type, 0, NULL);
        rc = SQLGetData(stmt, 16, SQL_C_SLONG, &slong, 0, &ind);
        if (!SQL_SUCCEEDED(rc)) {
            printf("  %-6s DATA_TYPE=%4d SQLGetData failed rc=%d\n", name, type, rc);
            diag(stmt);
        } else if (ind == SQL_NULL_DATA)
            printf("  %-6s DATA_TYPE=%4d CHAR_OCTET_LENGTH=NULL\n", name, type);
        else
            printf("  %-6s DATA_TYPE=%4d CHAR_OCTET_LENGTH=%ld\n", name, type, (long)slong);
    }
    SQLFreeHandle(SQL_HANDLE_STMT, stmt);

    printf("pass 2: SQLBindCol(16, SQL_C_ULONG) + SQLFetch\n");
    SQLAllocHandle(SQL_HANDLE_STMT, dbc, &stmt);
    SQLColumns(stmt, NULL, 0, (SQLCHAR *)argv[2], SQL_NTS, (SQLCHAR *)argv[3], SQL_NTS, NULL, 0);
    SQLBindCol(stmt, 4, SQL_C_CHAR, name, sizeof(name), &nameInd);
    SQLBindCol(stmt, 16, SQL_C_ULONG, &ulong, 0, &ind);
    for (;;) {
        rc = SQLFetch(stmt);
        if (rc == SQL_NO_DATA)
            break;
        if (!SQL_SUCCEEDED(rc)) {
            printf("  %-6s SQLFetch failed rc=%d\n", name, rc);
            diag(stmt);
            continue;
        }
        if (ind == SQL_NULL_DATA)
            printf("  %-6s CHAR_OCTET_LENGTH=NULL\n", name);
        else
            printf("  %-6s CHAR_OCTET_LENGTH=%lu\n", name, (unsigned long)ulong);
    }
    SQLFreeHandle(SQL_HANDLE_STMT, stmt);
    SQLDisconnect(dbc);
    SQLFreeHandle(SQL_HANDLE_DBC, dbc);
    SQLFreeHandle(SQL_HANDLE_ENV, env);
    return 0;
}

Int4 octet_length = PGTYPE_ATTR_TRANSFER_OCTET_LENGTH(conn, field_type, mod_length);

if (SQL_NO_TOTAL == octet_length)
    octet_length = INT_MAX;
set_nullfield_int4(&tuple[COLUMNS_CHAR_OCTET_LENGTH], octet_length);