purgación de la tabla tab1 de la gota;
crear la tabla tab1 (carbón de leña col1 (1));
insertar en los valores tab1 (“a ");
insertar en los valores tab1 (“a ");
insertar en los valores tab1 (“a ");
confiar;
crear o substituir el myProc del procedimiento (inChar en carbón de leña, del outCur sys_refcursor hacia fuera)
es
carbón de leña tmpChar (1);
comenzar
--comprobar para saber si hay datos antes del resto del código
comenzar
seleccionar “x” en tmpChar de tab1 donde col1=inChar y rownum=1;
excepción
cuando NO_DATA_FOUND entonces
raise_application_error (- 20002, “ningunos datos encontraron. No puede continue.");
extremo;
abrir el outCur para col1 selecto de tab1 donde col1=inChar;
extremo;
/
demostrar los errores
--probar con variables del SQL*Plus
refcursor del myCur del var
myProc del exec (“a”: myCur);
myCur de la impresión
myProc del exec (“b”: myCur);
|