Sentencia PREPARE y EXECUTE en MySql

[Josber]

¿Alguien ha utilizado alguna vez las sentencias PREPARE, EXECUTE y EXECUTE INMEDIATE en PWC?

Estoy intentando usarlas y me da error de sentencia mal construida, (error 37000)

Un saludo y gracias.-

[Kuk]

@Josber, he echado un vistazo, y la verdad es que no me he enterado muy bien de qué va exactamente. En teoría, el PREPARE crea una especie de instancia de una query y por ello reduce el costo en caso de múltiples llamadas con la misma query (pero diferentes valores).

Vamos al grano. He leído que estas posibilidades pertenecen a la versión MySQL 5.7 que según Wikipedia es la última versión estable (22 de octubre de 2015; hace 4 meses). Lo cual quiere decir que para programar con SQL embebido sería necesario hacer un upgrade del precompilador/preprocesador de SQL.

No sé para qué lo necesitas, pero a lo mejor podrías utilizar cursores?

[Josber]

A ver Kuk, como dijo Jack el destripador, "vamos por partes" ...

- Utilizo la última versión de MySql, por lo que eso no es problema.

- Necesito la sentencia PREPARE por lo que tú comentas, es para una misma consulta repetitiva con distintos valores, pero además ha de ser esta sentencia porque la tengo que montar con un STRING, por lo que no me vale una consulta estandar.

- Por lo menos yo, la sentencia DECLARE, la utilizo siempre junto con la sentencia CURSOR, he intentado usarla como un PREPARE, pero no me ha funcionado y, como supongo que sabrás, un CURSOR va asociado a una lectura secuencial con FETCH, por lo que tampoco me vale. Puedo hacer el bucle con el FETCH y a la primera lectura salirme del bucle, pero aparte de ser más lento, no dá el resultado esperado.

Sigo investigando.

Gracias y un saludo.-

[Kuk]

Utilizo la última versión de MySql, por lo que eso no es problema.

El problema es que el precompilador SQL de PowerCOBOL no sabe interpretar estas sentencias, es a lo que me refería.

Además, con el CURSOR justamente se hace lo que quieres. Si necesitas hacer la misma consulta varias veces, por ejemplo extraer varios clientes, se hace un cursor y en el WHERE se le pone la condición para que extraiga los que tu necesitas y los vas obteniendo uno a uno en el FETCH.

[Josber]

Además, con el CURSOR justamente se hace lo que quieres. Si necesitas hacer la misma consulta varias veces, por ejemplo extraer varios clientes, se hace un cursor y en el WHERE se le pone la condición para que extraiga los que tu necesitas y los vas obteniendo uno a uno en el FETCH.

No lo necesito así kuk, de una consulta con un WHERE, que es lo que hago. si son varios registros, me da lo mismo que sean 2 que 5000, sólo necesito el primero, por eso no lo quería hacer con un FETCH.

Un saludo.-

[Kuk]

sólo necesito el primero

No entiendo a qué te refieres... Cual es la diferencia entre ejecutar la misma query varias veces con distinto identificador (que es lo que pretendes con PREPARE) y hacer un cursor?...

[Josber]

Cuando declaras un CURSOR, es como hacer un START en un fichero COBOL y la sentencia FETCH es como un READ fichero NEXT RECORD ..., es decir una lectura secuencial, cargas en memoria en una tabla virtual toda la consulta

      MOVE POW-NUMERIC OF CAMPO1 TO WB1.
      MOVE POW-NUMERIC OF CAMPO2 TO WB2.
      EXEC SQL
              DECLARE cursor_CON CURSOR FOR
                           SELECT * FROM CLIENTES
                           WHERE CLICOD BETWEEN :WB1 AND :WB2
                           ORDER BY CLINOM ASC
      END-EXEC.
 
       EXEC SQL
               OPEN cursor_CON
       END-EXEC.
 
       PERFORM CARGAR THRU FIN-CARGAR UNTIL SQLSTATUS = "02000".
 
       EXEC SQL
               CLOSE cursor_CON
       END-EXEC.
 
       EXIT PROGRAM.
 
CARGAR.
       EXEC SQL
               FETCH cursor_CON
                         INTO :CLICOD,
                                 :CLINOM,
                                       .
                                       .
                                       .
       END-EXEC.

Cuado usas la sentencia PREPARE, es como una lectura normal de un registro en COBOL, (READ fichero KEY IS ... INVALID KEY ...), si la consulta no varía, te vale con un simple SELECT, pero si varía, tienes que montar la instrucción de busqueda con un STRING, y utilizar un PREPARE, poque no hay otra manera de hacerlo, no puedes hacer un SELCT + el STRING de búsqueda, que es lo que yo necesito.

      MOVE POW-NUMERIC OF CAMPO1 TO WB1.
      STRING "SELECT * FROM CLIENTES WHERE CLICOD = "
                 WB1
                " LIMIT 1 INTO :CLICOD, :CLINOM , etc ..." DELIMITED BY SIZE INTO SQLCON
      END-STRING.
 
      EXEC SQL
              PREPARE consulta FROM :SQLCON
      END-EXEC.
 
      EXEC SQL
               EXECUTE consulta
      END-EXEC
 
      EXEC SQL
              COMMIT
      END-EXEC.

Pero me da la sensación que la sentencia PREPARE y EXECUTE, el compilador no las acepta y es una ****da, porque se utilizan bastante en SQL.

Un saludo

[Kuk]

@Josber, gracias por el ejemplo, no conocía el PREPARE y el EXECUTE.

No es que te esté vacilando pero... Sigo sin entenderlo. Según tu código lo que varía es WB1, es eso? Es decir, necesitas ejecutar varias veces la misma consulta pero con WB1 distintos. ¿Es eso?

En cuanto al CURSOR: no es un start, es un SELECT + ORDER BY por decirlo de alguna forma. el FETCH no es una lectura secuencial sino lectura uno a uno de lo que el SELECT ha traído. Todo depende efectivamente del WHERE. Puedes hacer:

SELECT * FROM CLIENTES
 WHERE CLICOD BETWEEN :WB1 AND :WB2
 
-- o también
SELECT * FROM CLIENTES
 WHERE CLICOD BETWEEN IN (...)
 
-- o también
SELECT * FROM CLIENTES
 WHERE CLICOD BETWEEN = ... OR ...

Si lo que varía es el SELECT * pues tampoco veo mayor problema...

Con todo esto quiero decir que no me estoy enterando en qué es imprescindible el PREPARE. Vale que se puede montar la query en dinámico pero normalmente se puede evitar.

[Josber]

No te preocupes, no pienso mal, el ejemplo que he puesto es una pequeña parte, necesito el PREPARE, para consulta dinámica como tu dices, porque dependiendo de otras variables, el STRING puede llevar más campos de consulta, por ejemplo zonas, importes y así hasta 18 campos que pueden estar o no estar.

Un saludo.-

[David]

Hola Josber

He leído con interés este post que has publicado

Cuando declaras un CURSOR, es como hacer un START en un fichero COBOL y la sentencia FETCH es como un READ fichero NEXT RECORD ..., es decir una lectura secuencial, cargas en memoria en una tabla virtual toda la consulta

      MOVE POW-NUMERIC OF CAMPO1 TO WB1.
      MOVE POW-NUMERIC OF CAMPO2 TO WB2.
      EXEC SQL
              DECLARE cursor_CON CURSOR FOR
                           SELECT * FROM CLIENTES
                           WHERE CLICOD BETWEEN :WB1 AND :WB2
                           ORDER BY CLINOM ASC
      END-EXEC.
 
       EXEC SQL
               OPEN cursor_CON
       END-EXEC.
 
       PERFORM CARGAR THRU FIN-CARGAR UNTIL SQLSTATUS = "02000".
 
       EXEC SQL
               CLOSE cursor_CON
       END-EXEC.
 
       EXIT PROGRAM.
 
CARGAR.
       EXEC SQL
               FETCH cursor_CON
                         INTO :CLICOD,
                                 :CLINOM,
                                       .
                                       .
                                       .
       END-EXEC.

Cuado usas la sentencia PREPARE, es como una lectura normal de un registro en COBOL, (READ fichero KEY IS ... INVALID KEY ...), si la consulta no varía, te vale con un simple SELECT, pero si varía, tienes que montar la instrucción de busqueda con un STRING, y utilizar un PREPARE, poque no hay otra manera de hacerlo, no puedes hacer un SELCT + el STRING de búsqueda, que es lo que yo necesito.

      MOVE POW-NUMERIC OF CAMPO1 TO WB1.
      STRING "SELECT * FROM CLIENTES WHERE CLICOD = "
                 WB1
                " LIMIT 1 INTO :CLICOD, :CLINOM , etc ..." DELIMITED BY SIZE INTO SQLCON
      END-STRING.
 
      EXEC SQL
              PREPARE consulta FROM :SQLCON
      END-EXEC.
 
      EXEC SQL
               EXECUTE consulta
      END-EXEC
 
      EXEC SQL
              COMMIT
      END-EXEC.

Pero me da la sensación que la sentencia PREPARE y EXECUTE, el compilador no las acepta y es una ****da, porque se utilizan bastante en SQL.

Un saludo

El cual aporta el trato de un tema muy interesante.
En mi caso he pensado en utilizar el PREPARE para construir el CURSOR, sigo investigando, pero me preguntaba si después de varios años, uds. han logrado algo más del información


Saludos