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;
SARIRI
Hace 15 años
No hay comentarios:
Publicar un comentario