Error de sintaxis SQL

[GabrielACE]

hola gente, tengo microfocus acucobol 9.11 y dbmaker

actualmente uso las tablas como si fueran archivos indexados, pero necesito acceder ahora
usando desde el mismo cobol a tablas mediante consultas tipo SQL


el tema es que cuando compilo me tira error de sintaxis

     EXEC SQL
         SELECT au_lname INTO :lastname FROM authors
          WHERE au_id = '124-59-3864'
     END-EXEC

pero se que la sintaxis esta bien, me parece que el problema es que no configure el compilador para ejecutar con SQL

alguien sabe si estoy en lo correcto? y de ser asi como modificar el compilador?

[Kuk]

@GabrielACE, no es END-EXEC sino END EXEC con espacio entre END y EXEC.

[GabrielACE]

@GabrielACE, no es END-EXEC sino END EXEC con espacio entre END y EXEC.

NOP

tampoco funciono

 
     159 00000A      DISPLAY "PRUEBA DE RUTINA PARA ALEATORIO"
     160                     LINE 2 COL 1 ERASE
     161                     "NUM MAXI: " LINE 5 COL 35.
     162
     163             EXEC SQL
-->ERROR: Verb expected, EXEC found
     164 000021            SELECT AT_NUCHASIS INTO :WS-NUCHASIS FROM autos
     165                   WHERE AT_COAUTO= 123456;
     166             END EXEC.
     167

[Kuk]

@GabrielACE, es que esto depende del dialecto. En Enterprise COBOL de IBM creo recordar que es como he dicho antes. Pero mirando la documentación de Micro Focus por ejemplo, es como lo habías hecho tú al principio, con guion.

A ver, ¿puedes publicar el error que te daba exactamente al principio, con END-EXEC?

[GabrielACE]

@GabrielACE, es que esto depende del dialecto. En Enterprise COBOL de IBM creo recordar que es como he dicho antes. Pero mirando la documentación de Micro Focus por ejemplo, es como lo habías hecho tú al principio, con guion.

A ver, ¿puedes publicar el error que te daba exactamente al principio, con END-EXEC?

daba el mismo error.

estoy seguro de que tengo varios errores, el problema es que no tengo un ejemplo de microfocus con tablas SQL

por ejemplo, se que tengo que definir en la working el diseño de la tabla para que la reconozca

que en IBM se ponia

          EXEC SQL BEGIN DECLARE SECTION 
          
          CAMBIO TABLE 
          (
 
            CAM_FECHA     DECIMAL(8 ,0) NOT NULL,          
            CAM_CAMBIO    DECIMAL(5, 4) NOT NULL          
          
          )
          END-EXEC.

pero aqui me dice que es un error porque le falta el nivel 01

estoy complado con este tema :-S

[Kuk]

@GabrielACE, no, olvídate de IBM. No tienes que declarar la tabla en formato SQL. En esa sección tienes que declarar las variables Host que vas a usar en tus querys.

¿Has activado el precompilador de SQL ?

Echa un vistazo a los ejemplos de SQL embebido que hay en el foro, te van a servir mucho.

[Xavier]

Hola GabrielACE
Yo trabajo con PowerCobol, pero creo que la sintaxis es la misma.
En la WORKING-STORAGE debes definir las variables que vas a utilizar para "recoger" los datos de la Base de Datos, Por ejemplo:

* Declarar las variables de las Tablas
     EXEC SQL BEGIN DECLARE SECTION END-EXEC.
         01 TablaClientes GLOBAL.
              02 wCodigoCliente PIC S9(9) COMP-5.
              02 wNombreCliente PIC X(40).
     EXEC SQL END DECLARE SECTION END-EXEC.

En la PROCEDURE DIVISION.

     MOVE 1 TO wCodigoCliente
     EXEC SQL
             SELECT NombreCliente
                INTO :wNombreCliente
               FROM TablaClientes
              WHERE CodigoCliente = :wCodigoCliente
     END-EXEC

Espero que te sirva

[GabrielACE]

@GabrielACE, no, olvídate de IBM. No tienes que declarar la tabla en formato SQL. En esa sección tienes que declarar las variables Host que vas a usar en tus querys.

¿Has activado el precompilador de SQL ?

Echa un vistazo a los ejemplos de SQL embebido que hay en el foro, te van a servir mucho.

eso de activar el precompilador se que es una de las muchas cosas que me faltan

pero no tengo ni idea como activarlo, sabes como se hacer?

[Kuk]

@GabrielACE, si no activas el precompilador, que convierte la sintaxis SQL en CALL-s de Cobol, el programa te va a dar errores de sintaxis.

Habrá que mirar las propiedades del proyecto. En Micro Focus Visual COBOL es así:

[GabrielACE]

Gracias por la data, el problema es que es la version 9.11, asi que no tengo ninguna ventaja visual para esas cosas