I am new to InstantSQL and I am running RMCobol on Linux 64bit. I am using InstantSQL to select columns from a table that is on IBM DB2 mainframe, which I am using an unixODBC driver manager. Any column that is defined as a CHAR, doesn't give me any values back on the SQL BIND COLUMN statement. The database has it defined as CHAR 9, NOT NULL and I have it defined as PIC X(9) in working storage to bind to. Any decimal columns that I have seem to work fine. The CUS_ID column is the one I am having issues with below. Any help would be appreciated.
Working Storage.
01 DM-RATE-TABLE.
02 DM-DAILY-INT-AM-PER-HUN PIC 9(12)V9(9).
02 DM-INT-AM-PER-HUN PIC 9(12)V9(9).
02 DM-CUS-ID PIC X(09).
Procedure Division.
100-CONSTRUCT-QUERY.
SQL CONSTRUCT QUERY
sql-QrySQL,
"SELECT DAILY_INT_AM_PER_HUN, INT_AM_PER_HUN, CUS_ID",
"FROM CX.DAILY_RATE",
"WHERE PMT_DT = '2021-02-14'".
200-PREPARE-QUERY.
IF sql-ConnectionHandle = ZERO
PERFORM 050-ISQL-CONNECT-DATASOURCE.
SQL PREPARE QUERY
sql-QueryHandle,
sql-ConnectionHandle,
sql-QrySQL.
300-EXECUTE-QUERY.
SQL START QUERY
sql-QueryHandle.
400-BIND-DATA.
SQL BIND COLUMN sql-QueryHandle,
1, DM-DAILY-INT-AM-PER-HUN, OMITTED,
2, DM-INT-AM-PER-HUN, OMITTED,
3, DM-CUS-ID, WS-CUSID-LEN.
500-FETCH-ROW.
SQL FETCH ROW
sql-QueryHandle.