Cobol Foro - [Sintaxis] SQL embebido - cursor con COUNT() en PowerCOBOL 7

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] SQL embebido - cursor con COUNT() en PowerCOBOL 7 (https://www.cobolforo.es/showthread.php?t=863)

SQL embebido - cursor con COUNT() en PowerCOBOL 7

Hola tengo esta sentencia sql probada en phpadmin ahora lo quiero pasar a un programa en power con sql embebido pero no me funciona alguna ayuda, gracias

Codigo en php admin

Código PHP:

SELECT caja, COUNT( 1 ) 
FROM  `ventanilla` 
where DATE( fecha ) = '2018-05-03'
GROUP BY caja

en power

Código COBOL:

     EXEC SQL CONNECT TO 'BASE'     END-EXEC.
 
     EXEC SQL DECLARE Registro CURSOR  FOR  SELECT caja, COUNT( 1 ) FROM  'ventanilla'  where DATE( fecha ) = '2018-05-03'  GROUP BY caja END-EXEC
 
  EXEC SQL        OPEN   Registro END-EXEC.
     PERFORM cargo UNTIL SQLSTATE = "02000".
     EXEC SQL        CLOSE  Registro END-EXEC
     EXEC SQL       DISCONNECT 'BASE'              
  END-EXEC. EXIT PROGRAM.

cargo.
.....

drvedia1981, danos más datos. ¿Qué error te da exactamente?

Hola KUK, el cursor no me devuelve nada o algo pongo mal, el resultado de la sentencia da 0 el sqlstate creo que eso esta bien, estoy trabajando con esta base pero no recuperando datos de esta forma que puede ser gracias es algo urgente!!!.
Esto me devuelve el phpadmin

Código:

drvedia1981, No puedes usar sql embebido con un declare cursor y un select count, o por lo menos yo no lo he conseguido, ejecútalo sin el count y verás como funciona perfectamente.

Un saludo.-

Hola si todo parece ser el COUNT( 1 ) como puedo hacerlo de otra forma que no sea sql embebido necesito esos resultados para mostrar gracias

Me parece muy raro que no se pueda hacer cursores con COUNT(). Habéis probado con COUNT(*) ?

drvedia1981, puedes hacer algo así:

Código COBOL:

     EXEC SQL 
         CONNECT TO 'BASE'     
     END-EXEC.
     
     EXEC SQL 
         DECLARE Registro CURSOR  FOR  
          SELECT DISTINCT caja 
            FROM 'ventanilla'  
           where DATE( fecha ) = '2018-05-03'          
     END-EXEC.
     
     EXEC SQL 
        OPEN Registro 
     END-EXEC.
     
     PERFORM cargo 
     
     PERFORM UNTIL SQLSTATE = "02000"
         SELECT COUNT(*)
           INTO :WS-COUNT
           FROM caja
          WHERE ID_caja = :WS-ID-CAJA
         
         PERFORM cargo 
     END-PERFORM
       
     EXEC SQL
         CLOSE Registro 
     END-EXEC
     
     EXEC SQL
         DISCONNECT 'BASE'              
     END-EXEC.

drvedia1981,

A ver una cosa, no me había dado cuenta pero ... es ilógico usar un COUNT con un DECLARE CURSOR, los cursores, se utilizan para un FETCH, (un READ NEXT en COBOL), y un SELECT COUNT, no se puede utilizar con un FETCH, por lo menos hasta donde yo sé, donde yo lo he probado y no funciona, es en un PREPARE.

¿Qué es lo que quieres hacer exactamente?, a ver si es que lo estás haciendo mal y podemos ayudarte.

Kuk,

No he probado a hacer un SELECT COUNT(*), porque no es lógico, sobre todo por hacer el COUNT más rápido y no sobrecargar la BD haciéndole contar todas las columnas, imagínate una tabla con 50.000 registros y 40 columnas, por ejemplo, pero lo pruebo y digo algo.

Un saludo.-

Josber, lo decía por si había un bug en el parser de sintaxis.

Y en cuanto a lo de usar COUNT() en un cursor, no es frecuente pero puede haber necesidad. Y DB2, que es lo que más he usado, lo permite: IBM MAINFRAME: Db2 query to fetch duplicate rows

drvedia1981,

He estado haciendo pruebas y SÍ se puede usar un COUNT() en un PREPARE, vamos a suponer que tienes una tabla que se llama ABREVIAS y tiene como campos:
ABRCOD varchar(3) UNIQUE
ABRNOM varchar(60)

la programación en PWC sería de ésta manera:

Código COBOL:

 WORKING-STORAGE SECTION.
            EXEC SQL
                 BEGIN DECLARE SECTION
            END-EXEC.
 01  WTEX               PIC X(100).
 01  CONTASQL           PIC S9(5).
            EXEC SQL
                 END DECLARE SECTION
            END-EXEC.
.
.
.
.
 
 PROCEDURE       DIVISION.
 INICIO.
*
     MOVE "SELECT COUNT(ABRCOD) FROM ABREVIAS WHERE ABRCOD LIKE '%A%'" TO WTEX.
 
     EXEC SQL
          PREPARE CONSULTA FROM :WTEX
     END-EXEC.
     
     EXEC SQL
          execute CONSULTA INTO :CONTASQL
     END-EXEC.

Lo que ya no reconoce el SqlEmbebido es la instrucción DEALLOCATE PREPARE ..., pero bueno, el resto funciona perfectamente, tanto poniendo un * como el nombre de la variable en el COUNT.

Cita:

Citación del post de Kuk (Mensaje 4325)

Y en cuanto a lo de usar COUNT() en un cursor

No le veo la utilidad, si lo que quieres es contar los registros que cumplan unos parámetros, y SQL, te los cuenta sin tener que hacer un recorrido por la tabla con un FETCH, el que se pueda usar, vale, pero el que sea útil ...

Un saludo.-

Josber, según entiendo, lo que tiene es una tabla con campos:

CAJA - que viene a ser el ID
FECHA

Donde CAJA no es único y puede haber varios registros.

Para los resultados de phpMyAdmin:

Código:

Lo que deduzco es que tal ID ha hecho una acción (por ejemplo venta) tantas veces al día.

¿Cómo lo harías tú?

Lo mismo no es la mejor manera como lo está haciendo, pero yo en este caso le veo sentido al COUNT(). Porque el cursor no es otra cosa que crear una tabla temporal basada en tu SELECT que vas recorreidno.