Ver Mensaje Individual
  #1
Antiguo 11 de junio de 2018, 20:21
drvedia1981
Forero
Última Actividad 17.05.2022 22:45
Posts Posts: 66
Likes enviados Enviados: 3
Likes recibidos Recibidos: 9
Tabla SQL embebido - cursor con COUNT() en PowerCOBOL 7
0 Inactivo Inactivo

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:
  1. SELECT caja, COUNT( 1 )
  2. FROM  `ventanilla`
  3. where DATE( fecha ) = '2018-05-03'
  4. GROUP BY caja

en power
Código COBOL:
  1.      EXEC SQL CONNECT TO 'BASE'     END-EXEC.
  2.  
  3.      EXEC SQL DECLARE Registro CURSOR  FOR  SELECT caja, COUNT( 1 ) FROM  'ventanilla'  where DATE( fecha ) = '2018-05-03'  GROUP BY caja END-EXEC
  4.  
  5.   EXEC SQL        OPEN   Registro END-EXEC.
  6.      PERFORM cargo UNTIL SQLSTATE = "02000".
  7.      EXEC SQL        CLOSE  Registro END-EXEC
  8.      EXEC SQL       DISCONNECT 'BASE'              
  9.   END-EXEC. EXIT PROGRAM.

cargo.
.....
drvedia1981 is offline   Responder Con Cita