[Sintaxis] Sql Embebido

[Hrmcobol]

Hola camaradas, nunca use esta modalidad de acceso, use siempre DbAccessControl, de Power, necesitaría un código como ejemplo de como hacer para leer un tabla de una base, vía una ODBC. Estoy leyendo el manual pero no doy pie con bola.
En algún momento alguien subió algo al respecto, pero no logro encontrarlo.
Lo que quiero hacer en concreto es agregar campos a tablas ya existentes, tambien crear tablas nuevas en una base. Se que las instrucciones son CreateTable y AlterTable.
Todo desde un programa cobol.
Saludos y Gracias !!

[Josber]

A ver Hrm, primero tienes que empezar definiendo la estructura de la tabla en la WORKING, (y todas las variables que vayas a usar en SQL), por ejemplo

            EXEC SQL
                 BEGIN DECLARE SECTION
            END-EXEC.
*       FICHERO de GASTOS
 01  REG-GAS    IS GLOBAL.
     03  ID_GAS         PIC S9(11).
     03  GASLIB         PIC X(4).       *> LIBRO DE REGISTRO AL QUE PERTENECE EL APUNTE
     03  GASFEC         PIC X(8).       *> FECHA DEL APUNTE
     03  GASDES         PIC X(60).      *> DESCRIPCIÓN DEL APUNTE
     03  GASIMP         PIC S9(9)V999.      *> IMPORTE DEL APUNTE
     03  GASTIP         PIC X.          *> TIPO DE APUNTE (Ingreso o Gasto)
     03  GASOBS         PIC X(100).     *> OBSERVACIONES
     03  GASUSU         PIC X(10).      *> USUARIO ALTA DEL APUNTE
     03  GASUSU_FEC     PIC X(8).       *> FECHA EN LA QUE SE REALIZA EL APUNTE
     03  GASHO.
         05  GASHOR     PIC S9(6).      *> HORA EN LA QUE SE REALIZA EL APUNTE
     03  GASUSU_MOD     PIC X(10).      *> USUARIO ULTIMA MODIFICACIÓN
     03  GASFEC_MOD     PIC X(8).       *> FECHA ULTIMA MODIFICACIÓN
     03  GASHO_MOD.
         05  GASHOR_MOD     PIC S9(6).      *> HORA ULTIMA MODIFICACIÓN
     03  GASELI         PIC X.          *> ¿APUNTE ELIMINADO?
*
 01  WGASLIB            PIC X(4)    IS GLOBAL.
 01  WID_GAS            PIC S9(11)  IS GLOBAL.
 01  ID_GAS1            PIC S9(11)  IS GLOBAL.
*
 01  SQLSTATE           PIC XXXXX   IS GLOBAL.
 01  SQLCODE            PIC S9(9) COMP-5   GLOBAL.
 01  SQLMSG         PIC X(600)     GLOBAL.
 01  CONTASQL           PIC S9(9)   IS GLOBAL.  *> CONTADOR
 01  WS-SQL         PIC X(250)      IS GLOBAL.
            EXEC SQL
                 END DECLARE SECTION
            END-EXEC.

Ten en cuenta que TODAS las variables numéricas, en la WORKING tienen que llevar signo SÍ o SÍ.

- PARA LEER EL NÚMERO DE REGISTROS:

     EXEC SQL
          SELECT COUNT(GASLIB)
                 FROM GASTOS
                      WHERE GASLIB = :WGASLIB AND GASELI <> "S"
                 INTO :CONTASQL
     END-EXEC.

en CONTASQL se almacenaría el total de registros

- PARA LEER UN REGISTRO ESPECÍFICO

     MOVE "Text" OF CAMPO10 TO WID_GAS.
     
     EXEC SQL
          SELECT ID_GAS,
                 GASFEC,
                 GASDES,
                 GASIMP,
                 GASTIP,
                 GASOBS,
                 GASELI
                 FROM GASTOS WHERE ID_GAS = :WID_GAS LIMIT 1
                 INTO :ID_GAS,
                      :GASFEC,
                      :GASDES,
                      :GASIMP,
                      :GASTIP,
                      :GASOBS,
                      :GASELI
     END-EXEC.
     
     IF SQLSTATE NOT = "00000" OR GASELI = "S"
        ADD POW-DMICONERROR POW-DMOK GIVING ESTILO
        INVOKE POW-SELF "DisplayMessage"
               USING "*ERROR: El registro no existe ..."
                     WS-ATENCION
                     ESTILO
        END-INVOKE
        INVOKE CAMPO10 "SetFocus"
        EXIT PROGRAM
     END-IF.

- PARA LEER UN RANGO ESPECÍFICO DE REGISTROS

     
     EXEC SQL
          DECLARE cursor1 CURSOR FOR
                  SELECT ID_GAS,
                         GASFEC,
                         GASDES,
                         GASIMP,
                         GASTIP,
                         GASOBS,
                         GASELI
                  FROM GASTOS WHERE GASLIB = :WGASLIB AND GASELI <> "S"
                         ORDER BY ID_GAS ASC;
     END-EXEC.
     
     EXEC SQL
          OPEN cursor1
     END-EXEC.
     
     PERFORM CARGAR THRU FIN-CARGAR UNTIL SQLSTATE = "02000".
     
     EXEC SQL
          CLOSE cursor1
     END-EXEC.
     
     EXEC SQL
          COMMIT
     END-EXEC.
     .
     .
     .     
*
 CARGAR.
     EXEC SQL
          FETCH cursor1
                INTO :ID_GAS,
                     :GASFEC,
                     :GASDES,
                     :GASIMP,
                     :GASTIP,
                     :GASOBS,
                     :GASELI
     END-EXEC.
     
     IF SQLSTATE = "02000"
        GO FIN-CARGAR
     END-IF.
          
     INVOKE VIEW2 "Add" USING 1 1 RETURNING WK-IDX
     IF WK-IDX > 0 THEN
        MOVE "ListItems"(WK-IDX) OF VIEW2 TO POW-PCMLIST
     END-IF.
     
     MOVE GASFEC TO FECHA.
     MOVE CORR FECHA TO FECHA1.
     .
     .
     .
     
 FIN-CARGAR.
     EXIT.

- PARA INSERTAR UN NUEVO REGISTRO

        EXEC SQL
             INSERT INTO GASTOS
                    VALUES (
                            NULL,
                           :GASLIB,
                           :GASFEC,
                           :GASDES,
                           :GASIMP,
                           :GASTIP,
                           :GASOBS,
                           :GASUSU,
                           :GASUSU_FEC,
                           :GASHOR,
                           :GASUSU_MOD,
                           :GASFEC_MOD,
                           :GASHOR_MOD,
                           :GASELI     )
        END-EXEC

El primer campo es NULL, porque el campo ID_GAS, que es la clave principal, es un campo AUTO_INCREMENT.

- PARA MODIFICAR UN REGISTRO EXISTENTE:

     EXEC SQL
          UPDATE GASTOS
                 SET GASLIB =   :GASLIB,
                     GASFEC =   :GASFEC,
                     GASDES =   :GASDES,
                     GASIMP =   :GASIMP,
                     GASTIP =   :GASTIP,
                     GASOBS =   :GASOBS,
                     GASUSU_MOD = :GASUSU_MOD,
                     GASFEC_MOD = :GASFEC_MOD,
                     GASHOR_MOD = :GASHOR_MOD,
                     GASELI =   :GASELI
                  WHERE ID_GAS = :ID_GAS
     END-EXEC.

Aquí no puedes poner el primer campo, porque la llave principal, no se puede volver a grabar, si lo pusieras daría el error S200 en SQLSTATE.

despues de cada vez que INSERTES/MODIFIQUES un registro, has de poner

EXEC SQL
        COMMIT
END-EXEC.

o de lo contrario, no te modificará la tabla, en caso que que quiereas desacer los cambios, cambias el COMMIT por ROLLBACK, pero una vez que haya hecho el COMMIT, los cambios no se pueden deshacer.

Creo que está todo, si tienes dudas o problemas, dinoslo.

Un saludo.-

[Josber]

Se me ha pasado el ponerte como se crea la tabla

EXEC SQL
CREATE TABLE IF NOT EXIST 'gastos' (
 'ID_GAS' int(11) unsigned NOT NULL AUTO_INCREMENT,
 'GASLIB' varchar(4) DEFAULT NULL COMMENT 'LIBRO DE GASTOS',
 'GASFEC' varchar(8) DEFAULT NULL COMMENT 'FECHA APUNTE',
 'GASDES' varchar(60) DEFAULT NULL COMMENT 'DESCRIPCIÓN APUNTE',
 'GASIMP' decimal(12,3) NOT NULL DEFAULT '0.000' COMMENT 'IMPORTE APUNTE',
 'GASTIP' varchar(1) DEFAULT NULL COMMENT 'TIPO DE APUNTE(GASTO o INGRESO)',
 'GASOBS' varchar(100) DEFAULT NULL COMMENT 'OBSERVACIONES APUNTE',
 'GASUSU' varchar(10) DEFAULT NULL COMMENT 'USUARIO QUE HIZO EL APUNTE',
 'GASUSU_FEC' varchar(8) DEFAULT NULL COMMENT 'FECHA QUE SE HIZO EL APUNTE',
 'GASHOR' decimal(6,0) DEFAULT '0' COMMENT 'HORA EN LA QUE SE HIZO EL APUNTE',
 'GASUSU_MOD' varchar(10) DEFAULT NULL COMMENT 'USUARIO ÚLTIMA MODIFICACIÓN',
 'GASFEC_MOD' varchar(8) DEFAULT NULL COMMENT 'FECHA ÚLTIMA MODIFICACIÓN',
 'GASHOR_MOD' decimal(6,0) DEFAULT NULL COMMENT 'HORA ÚLTIMA MODIFICACIÓN',
 'GASELI' varchar(1) DEFAULT NULL COMMENT '¿APUNTE ELIMINADO?',
 UNIQUE KEY ('ID_GAS')
) ENGINE=InnoDB DEFAULT CHARSET=latin1
END-EXEC

Si no pones la instrucción IF NOT EXIST, te dará error si la tabla ya existe

- Si deseas eliminar elementos de la tabla:

EXEC SQL
        DELETE FROM GASTOS
                   WHERE ID_GAS = :WID_GAS
END-EXEC.

- Si quieres vaciar por completo una tabla, además de poner el contador AUTO_INCREMENT a 0, (si lo tiene la tabla, que no es obligatorio)

EXEC SQL
        TRUNCATE TABLE GASTOS
END-EXEC.

- Si quieres eliminar por completo la tabla, (datos y estructura)

EXEC SQL
        DROP TABLE GASTOS
END-EXEC.

¡Cuidado! que TRUNCATE y DROP, no tienen vuelta atrás

Si quieres ver cómo esta creada una tabla, desde el administrador de BD, no desde tu programa COBOL

SHOW CREATE TABLE Nombre_de_la_tabla

Esto te daría un fichero de texto plano muy similar al que utilizas para crear la tabla.

Un saludo y suerte.-

---------- Post añadido : 11:46 ---------- Post anterior : 11:30 ----------

Otra cosa a tener en cuenta, es cuando creas un número en SQL y has de ponerle un tamaño con decimales, esto se define entre paréntesis, el primer número indica el tamaño total, (incluidos los decimales) y el segundo los decimales, por ejemplo, un campo en COBOL del tipo

01  WNUM        PIC S9(7).
01  WDEC        PIC S9(7)V999.

en SQL, sería

'WNUM' decimal(7,0),
'WDEC' decimal(10,3)

Si te fijas WDECIMAL en SQL, tiene un tamaño de 10, de los que 3 son decimales.
Los campos en SQL, se separan utilizando el símbolo de la , (coma), y las instrucciones se separan utilizando el símbolo ; (punto y coma), por ejemplo:

     
     EXEC SQL
 
          DECLARE cursor1 CURSOR FOR
                  SELECT ID_GAS,
                         GASFEC,
                         GASDES,
                         GASIMP,
                         GASTIP,
                         GASOBS,
                         GASELI
                  FROM GASTOS WHERE GASLIB = :WGASLIB AND GASELI <> "S"
                         ORDER BY ID_GAS ASC;
 
          OPEN cursor1
 
     END-EXEC.

Cuidado con las comas y los punto y comas, que son obligatorios y es muy estricto en ésto.



Un saludo

[Hrmcobol]

Estimados, sigo colgado con este tema.
La pregunta es:
Como relaciono la ODBC con el PwCobol sin usar DbAccessControl
Saludos

[Kuk]

Hrmcobol, si no me equivoco, tienes que crear un fichero *.inf con la configuración de la conexión e indicarlo en COBOL85.CBR con la variable @ODBC_Inf.
Ejemplo:

@ODBC_Inf=PRUEBA.inf

[Hrmcobol]

Asi Es Kuk, la conexión se hace r intermedio del @ODBC_Inf=PRUEBA.inf y el cobol85.cbr, logre abrir la base y leer registros de la tabla.
Gracias.

[Juanghi]

Como primer paso en tu proyecto deberias direccionar donde estara tu archivo de coneccion via odbc (ojo .. por fuera podes cambiar esa direccion tambien)

Luego ejecutar el SQLODBCS a los efectos de crear la sesion con el archivo de coneccion

seleccionas una seccon en este caso la llame SV4 asociada a una base "cursos", con su usuario y clave (root y su clave)

luego en la procedure estableces la coneccion y trabajas con todas aquellas
posiblidades que te brindo josber con comandos sql

al finalizar el programas te desconectas

[Hrmcobol]

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í

 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. 

[Xavier]

Hola Hrm
Creo haber leído en algún sitio, ahora no recuerdo donde, que desde el SQL embebido solo puedes hacer uso del lenguaje DML (Data Manipulation Laguaje) que es que estáis comentando aquí, pero no puedes hacer uso del DDL (Data Definition Laguaje) que es el que sirve para definir objetos en la base de datos (Tablas, Vistas, etc.)

[Hrmcobol]

Gracias Xavier. Estoy leyendo el manual un poco mas detenidamente y aparentemente es así como tu dices.

Entonces la pregunta es: No se pueden usar "Alter" y "Create" en PWC ?

Saludos