eliminazione dei fogli inceppati della tabella tab1 di goccia;
generare la tabella tab1 (carbone col1 (1));
inserire tab1 nei valori (“a ");
inserire tab1 nei valori (“a ");
inserire tab1 nei valori (“a ");
commettere;
generare o sostituire il myProc di procedura (inChar in carbone, del outCur in sys_refcursor fuori)
è
carbone tmpChar (1);
cominciare
--controllare per vedere se ci sono dati prima del resto del codice
cominciare
selezionare “la x„ in tmpChar a partire da tab1 dove col1=inChar e rownum=1;
eccezione
quando NO_DATA_FOUND allora
raise_application_error (- 20002, “nessun dati hanno trovato. Non può continue.");
estremità;
aprire il outCur per col1 prescelto da tab1 dove col1=inChar;
estremità;
/
mostrare gli errori
--provare usando le variabili di SQL*Plus
refcursor del myCur di varietà
myProc del exec (“a„: myCur);
myCur della stampa
myProc del exec (“b„: myCur);
|