Hola esti...@s
Estoy incursionando en el tema de los store procedure.
Creo el store..
CREATE PROCEDURE BIBLIO.STRPRC (
IN P1 CHAR(2) ,
IN P2 CHAR(1) ,
IN P23 NUMERIC(14, 0) )
DYNAMIC RESULT SETS 2
LANGUAGE RPGLE
NOT DETERMINISTIC
EXTERNAL NAME 'BIBLIO/PGMILERPG'
PARAMETER STYLE GENERAL ;
El store tiene 23 parametros, el ILE RPG es asi
H DftActGrp(*No) ActGrp(*New)
C* Aca con los parámetros genero información para el procedimiento que
resuelve la lógica del negocio
C* Genero la cabecera cuya clave es el campo xt1ntr que luego utilizo para
filtrar lo que debo devolver
C/EXEC SQL DECLARE c1 CURSOR FOR
C+ SELECT * FROM xt03fre WHERE xt3ntr = :xt1ntr
C+ FOR READ ONLY
C/END-EXEC
*
C/EXEC SQL DECLARE c2 CURSOR FOR
C+ SELECT * FROM xt04frer WHERE xt4ntr = :xt1ntr
C+ FOR READ ONLY
C/END-EXEC
*
C/EXEC SQL
C+ OPEN c1
C/END-EXEC
*
C/EXEC SQL
C+ OPEN c2
C/END-EXEC
*
C/EXEC SQL
C+ SET RESULT SETS CURSOR c1, CURSOR c2
C/END-EXEC
*
C Fin TAG
C SETON LR
C RETURN
El store lo ejecuto desde STRSQL con
CALL STRPRC(P1, P2,
, P23)
El mismo se ejecuta, arma las tablas del proceso (las graba en base a los
parametros) se ejecuta y termina sin error, PERO AQUI EL PROBLEMA, no me
devuelve los cursores que debería estar retornando
____________________________________________________
© 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
