remoção da tabela tab1 da gota;
criar a tabela tab1 (carvão animal col1 (1));
introduzir nos valores tab1 (“a ");
introduzir nos valores tab1 (“a ");
introduzir nos valores tab1 (“a ");
cometer;
criar ou substituir o myProc do procedimento (inChar no carvão animal, do outCur no sys_refcursor para fora)
é
carvão animal tmpChar (1);
começar
--verific para ver se há dados antes do descanso do código
começar
selecionar “x” em tmpChar de tab1 onde col1=inChar e rownum=1;
exceção
quando NO_DATA_FOUND então
raise_application_error (- 20002, “nenhuns dados encontraram. Não podem continue.");
extremidade;
abrir o outCur para col1 seleto de tab1 onde col1=inChar;
extremidade;
/
mostrar erros
--testar usando variáveis do SQL*Plus
refcursor do myCur do var
myProc do exec (“a”: myCur);
myCur da cópia
myProc do exec (“b”: myCur);
|