miércoles, 28 de enero de 2009

IMPRIMIR UN CURSOR QUE DEVUELVA UN PROCEDIMIENTO ALMACENADO

DECLARE
CODIGO NUMBER;
DATOS SYS_REFCURSOR;
L_ROW NUMBER;
BEGIN
CODIGO := 10441;
PKG_PROCEDIMIENTOS.CONSULTARDATOS( CODIGO => CODIGO , DATOS => DATOS );
LOOP
FETCH DATOS INTO L_ROW;
EXIT WHEN DATOS%NOTFOUND;
DBMS_OUTPUT.PUT_LINE('DATO= ' || L_ROW);
END LOOP;
END;

No hay comentarios: