Foro de Cobol
Registrate en el Foro de Cobol y Aporta tus experiencias y conocimientos sobre este lenguaje de programacion, con tu ayuda el foro crecera y todos nos podremos beneficiar de los conocimientos de los demas.

Gracias por entrar a COBOLEROS.ES
Síguenos en Twitter

¿FETCH sin INTO?

Ver el tema anterior Ver el tema siguiente Ir abajo

¿FETCH sin INTO?

Mensaje por Aldarius el Dom Oct 09, 2011 7:29 pm

Aprovecho para presentarme ante la comunidad.
Andaba revisando un programa que me han pasado porque se ejecuta correctamente cuando lo llama otro programa pero, según me comenta la AP, no hace lo que tiene que hacer. Que no se yo si será un eufemismo de "no hace nada". La cuestión es que andaba llenando el servicio online de display's a pesar de que luego habrá un spam impresionante en la cola del CICSDA01, ¡y veo que el tio que ya no está aquí que programó este programa puso en los FETCH de los tres cursores este formato!

EXEC SQL
FETCH CURZV01
END-EXEC.

Claro, quizás él sepa algo que yo no sé (era AP), pero es que me ha extrañado sobremanera, que no haya variables con el INTO. Cosa que cuadraría con el hecho de que se ejecuta todo correctamente, pero no hace lo que tiene que hacer. Así que me gustaría saber si esto es "normal" o es que el tio era un vago redomado. Saludos.

Aldarius

Mensajes : 2
Reputación : 0
Fecha de inscripción : 09/10/2011

Ver perfil de usuario

Volver arriba Ir abajo

Fetch Sin Into

Mensaje por Coboler@ el Dom Oct 09, 2011 9:26 pm

Buenas, Puedes poner como esta definido el cursor?

Un saludo.
avatar
Coboler@
Admin

Mensajes : 215
Reputación : 19
Fecha de inscripción : 02/02/2011
Edad : 37
Localización : Madrid

Ver perfil de usuario http://www.coboleros.es

Volver arriba Ir abajo

Re: ¿FETCH sin INTO?

Mensaje por Aldarius el Dom Oct 09, 2011 10:45 pm

Coboler@ escribió:Buenas, Puedes poner como esta definido el cursor?

Un saludo.

EXEC SQL
DECLARE CURZV01 CURSOR FOR
SELECT ZV0101_IMPORTEA,
ZV0101_CODOPERA,
ZV0101_CODSIGMOV
FROM ZV0101
WHERE ZV0101_NUMPOLIZA = :ZV0101-NUMPOLIZA
AND ZV0101_NUMCERTIF = :ZV0101-NUMCERTIF
AND ZV0101_ESTVIGANU = 'V'
AND ZV0101_CODOPERA IN ('00001457', '00001458',
'00001459', '00001461', '00001463',
'00001466', '00001467')
AND ZV0101_FECEFECTO BETWEEN :WS-FEC-INI AND :WS-FEC-FIN
END-EXEC.

Aldarius

Mensajes : 2
Reputación : 0
Fecha de inscripción : 09/10/2011

Ver perfil de usuario

Volver arriba Ir abajo

Fetch Sin into

Mensaje por Coboler@ el Lun Oct 10, 2011 5:00 am

Yo creo que eso no deberia ni compilar, ya que no encuentra campos en los que meter las variables de la Select, pero no estoy seguro de ello, a ver si alguien lo sabe con seguridad.
avatar
Coboler@
Admin

Mensajes : 215
Reputación : 19
Fecha de inscripción : 02/02/2011
Edad : 37
Localización : Madrid

Ver perfil de usuario http://www.coboleros.es

Volver arriba Ir abajo

Re: ¿FETCH sin INTO?

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.