search

mridoni / gixsql

GixSQL is an ESQL preprocessor and a series of runtime libraries to enable GnuCOBOL to access PostgreSQL, ODBC, MySQL, Oracle and SQLite databases.
GNU General Public License v3.0
16 stars 8 forks source link

uppercase pic symbols #171

Closed GitMensch closed 3 months ago

GitMensch commented 1 year ago

It fixes the following issue, reported by Sauro Menna; fix also tested by him:

03 TR-4 PIC x(10). <------- x lower case

03 TU-4 PIC X(10). <------- X upper case

GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
GIXSQL BY VALUE 0 <------- lower case
GIXSQL BY VALUE 0
GIXSQL BY VALUE 0
GIXSQL BY VALUE 0
GIXSQL BY REFERENCE TR-4
GIXSQL BY REFERENCE 0

GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
GIXSQL BY VALUE 16 <------- upper case
GIXSQL BY VALUE 10
GIXSQL BY VALUE 0
GIXSQL BY VALUE 0
GIXSQL BY REFERENCE TU-4
GIXSQL BY REFERENCE 0

Ideally GixSQL should also have a test verifying that 16 is used here, maybe the existing TSQL038A.

GitMensch commented 3 months ago

superseded by #189