Estimados, ante todo gracias por vuestra colaboración.
Ya he logrado leer y agregar registros a la tabla.
Aprendí la conexión Odbc/Cobol85/Sql.Inf
Ahora lo que quiero hacer es crear una tabla nueva con la instrucción CREATE TABLE, como se imaginaran copie el código del post que puso Josber, cuando compilo me da el siguiente error:
ART00101 CbLeer1-Click(20) : JMN2633I-S The SQL statement is invalid. ODBC-7600E NOT EXECUTABLE SQL STATEMENT..
Aparentemente el error es que " Create Table" no esta soportado.
Alguna idea?
Saludos
Les adjunto el código que escribí
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 SQLSTATE PIC X(005).
EXEC SQL END DECLARE SECTION END-EXEC.
PROCEDURE DIVISION.
EXEC SQL CONNECT TO 'maestro' END-EXEC. *> Maestro es el nombre de la ODBC
EXEC SQL
CREATE TABLE IF NOT EXIST 'gastos' (
'ID_GAS' int (011) unsigned NOT NULL AUTO_INCREMENT,
'GASLIB' varchar (004) DEFAULT NULL,
'GASFEC' varchar (008) DEFAULT NULL,
'GASDES' varchar (060) DEFAULT NULL,
'GASELI' varchar (001) DEFAULT NULL,
UNIQUE KEY ('ID_GAS')) ENGINE=InnoDB DEFAULT CHARSET=latin1
END-EXEC
IF sqlstate not = "00000" INVOKE POW-SELF "DisplayMessage" USING sqlstate "Error".
EXEC SQL DISCONNECT 'maestro' END-EXEC.