Ejecutar procedimiento almacenado con Cursor

[pcarvajal]

Buenas!
Antes que nada, soy neofito en Oracle, así es que, si mi pregunta es muy básica, pido disculpas de antemano.

Debo hacer un procedimiento almacenado que me retorne 2 campos de una consulta, el total de registros va de 0 a N.

Asi entonces, busqué un ejemplo y lo acomdé de la siguiente manera:

Código SQL:

/* Create package */
CREATE OR REPLACE PACKAGE pkgGestionLeerXRutFecha3
AS
TYPE cursorType IS REF cursor;
END;
/
 
 
CREATE OR REPLACE PROCEDURE SpGestionLeerXRutFecha3
(
p_rut      IN   VARCHAR2,
p_ResultSet        OUT  pkgGestionLeerXRutFecha3.cursorType
)
AS
BEGIN
OPEN p_ResultSet FOR
    SELECT NTIDGES, NTNOTA
    FROM rsfo.RNOTAGES 
    WHERE NTLOTE = p_rut;
 
END SpGestionLeerXRutFecha3;
/
 

[/PHP]

Lo que no sé es como testearlo (estoy trabajando con DBArtisan), el código que tengo es el siguiente (pero me arroja error en la primera línea)

Código SQL:

variable resultSet  refcursor;
EXEC SpGestionLeerXRutFecha3('99556580-3', :resultSet);
PRINT :resultSet;
 

[/PHP]


La idea de todo esto es ejecutar el procedimiento desde .net y rescatar los datos que el sp retorne, pero primero quiero validar que el sp retorna registros.

saludos

[pcarvajal]

Estoy intentandolo de esta manera, pero me tira error :(

Código SQL:

DECLARE 
  v_cur SYS_REFCURSOR;
  v_a   VARCHAR2(10);
  v_b   VARCHAR2(100);
BEGIN
  SpGestionLeerXRutFecha('99556580-3',v_cur);
 
  LOOP
    FETCH v_cur INTO v_a, v_b;
    EXIT WHEN v_cur%NOTFOUND;
    dbms_output.put_line(v_a || ' ' || v_b);
  END LOOP;
  CLOSE v_cur;
END;
 

help!!!!!!!

[gnzsoloyo]

¿Qué error te tira?

[pcarvajal]

Resumo:
Este es el sp y el codigo de testeo:

Código SQL:

CREATE OR REPLACE PROCEDURE SpGestionLeerXRutFecha(p_rut IN VARCHAR2, p_ResultSet OUT SYS_REFCURSOR)
AS
BEGIN
OPEN p_ResultSet FOR
    SELECT NTIDGES, NTNOTA
    FROM rsfo.RNOTAGES 
    WHERE NTLOTE = p_rut;
 
END;
 

Código SQL:

DECLARE 
  v_cur SYS_REFCURSOR;
  v_a   VARCHAR2(10);
  v_b   VARCHAR2(100);
BEGIN
  SpGestionLeerXRutFecha('99556580-3',v_cur);
 
  LOOP
    FETCH v_cur INTO v_a, v_b;
    EXIT WHEN v_cur%NOTFOUND;
    dbms_output.put_line(v_a || ' ' || v_b);
  END LOOP;
  CLOSE v_cur;
END;
 

Y el error es este:
17:30:47.750 DBMS 10.20.1.10 -- ORA-06502: PL/SQL: numeric or value error
17:30:47.765 DBMS 10.20.1.10 -- ORA-06512: at line 9

[gnzsoloyo]

Empecemos por el principio: ¿estás seguro de que esa consulta devuelve algo?

Es decir, si ejecutas esto, ¿qué devuelve?:

Código SQL:

SELECT NTIDGES, NTNOTA
FROM rsfo.RNOTAGES
WHERE NTLOTE = '99556580-3';
 

En segundo lugar, ese error nos dice que hay una discrepancia de tipos de dato. Alguna de las dos columnas no es del tipo que tu supones.

[pcarvajal]

Devuelve datos... el problema estaba en que el largo de la variable que recibía el dato del cursor era de largo más pequeño que el que le correspondía por definición en la tabla, por lo que cambié la declaración de esas variables y funcionó.

Dejo el código por si a alguien más le sirve:

Código SQL:

CREATE OR REPLACE PROCEDURE SpGestionLeerXRutFecha(p_rut IN VARCHAR2, p_ResultSet OUT SYS_REFCURSOR)
AS
BEGIN
OPEN p_ResultSet FOR
    SELECT NTIDGES, NTNOTA
    FROM rsfo.RNOTAGES 
    WHERE NTLOTE = p_rut;
END;
 
 
/**** Ejemplo de Ejecución ****/
DECLARE 
  v_cur SYS_REFCURSOR;
  /*
  v_a   VARCHAR2(20);
  v_b   VARCHAR2(255);  
  */
  v_a   rsfo.RNOTAGES.NTIDGES%TYPE;
  v_b   rsfo.RNOTAGES.NTNOTA%TYPE;
BEGIN
  SpGestionLeerXRutFecha('99556580-3',v_cur);
  LOOP
    FETCH v_cur INTO v_a, v_b;
    EXIT WHEN v_cur%NOTFOUND;
    dbms_output.put_line(v_a || '||' || v_b);
  END LOOP;
  CLOSE v_cur;
END;
 

Gracias gnzsoloyo por tu tiempo!
Saludos!

[gnzsoloyo]

Perfecto. Ese es el método usual de definicion de las variables cuando estás buscando datos de una tabla.
Cuando los pones a mano, es muy común que haya errores en los tamaños o en los tipos.

Por favor, usar el Highlight "SQL". Para eso están.