Hola Cristhian
Gracias ha funcionado pero no con el + sino con || para concatenar.
Salu2
Fernando
Cristhian Nuñez escribió:
Hola:
Haz probado concatenar la varible de la biblioteca a la cadena de
texto SQL, luego preparas, declaras y abres el cursor.
BEGIN
DECLARE SQLStmt CHAR(512);
SET SQLStmt='SELECT col1 , col2 , COUNT ( * ) AS TOTAL' +
' FROM ' + W_BIBLIO + '.Tabla1' +
' WHERE FECHA = ? And ESTAB = ?' +
' GROUP BY col1 , col2' +
' ORDER BY col1 , col2' ;
PREPARE s1 FROM SQLStmt;
DECLARE CURSOR1 DYNAMIC SCROLL CURSOR FOR s1;
OPEN CURSOR1 USING W_BIBLIO, W_FECHA, W_ESTABL;
SET RESULT SETS CURSOR CURSOR1;
END ;
Saludos.
-----Mensaje original-----
*De:* [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] nombre de
*Fernando Martínez
*Enviado el:* Lunes, 21 de Mayo de 2007 11:38 a.m.
*Para:* Foro AS/400
*Asunto:* SQL Procedures
Hola a todos
Tengo un procedimiento almacenado que quiero que se use con
distintas bibliotecas. El problema es que la biblioteca se tiene
que pasar por variable y luego devolver un ResultSet de una
consulta. Estaba haciendolo así:
CREATE PROCEDURE QGPL.PROC1 (
IN W_ESTABL INTEGER ,
IN W_FECHA INTEGER ,
IN W_BIBLIO CHAR(10) )
DYNAMIC RESULT SETS 1
LANGUAGE SQL
MODIFIES SQL DATA
BEGIN
DECLARE SQLStmt CHAR(512);
DECLARE CURSOR1 DYNAMIC SCROLL CURSOR FOR s1;
SET SQLStmt='SELECT col1 , col2 , COUNT ( * ) AS TOTAL
FROM ?.Tabla1
WHERE FECHA = ? And ESTAB = ?
GROUP BY col1 , col2
ORDER BY col1 , col2' ;
PREPARE s1 FROM SQLStmt;
OPEN CURSOR1 USING W_BIBLIO, W_FECHA, W_ESTABL;
SET RESULT SETS CURSOR CURSOR1;
END ;
Pero me da error. ¿Alguien sabe como puedo solucionarlo?
Gracias y un saludo
Fernando
--
Este mensaje ha sido analizado por *MailScanner*
<http://www.mailscanner.info/>*
en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
MailScanner agradece a transtec Computers
<http://www.transtec.co.uk/> por su apoyo. *
*
--
Este mensaje ha sido analizado por *MailScanner*
<http://www.mailscanner.info/>
en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
MailScanner agradece a transtec Computers <http://www.transtec.co.uk/>
por su apoyo. *
*
*
------------------------------------------------------------------------
*
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400*
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400