opadowy stół tab1 czystka;
tworzyć stołowy tab1 (col1 char (1));
wszywka w tab1 wartość ("a ");
wszywka w tab1 wartość ("a ");
wszywka w tab1 wartość ("a ");
popełniać;
tworzyć lub zamieniać procedura myProc (inChar w char, outCur inChar sys_refcursor)
być
tmpChar char (1);
zaczynać
--sprawdzać dla dane przed the odpoczynek the kod
zaczynać
wybierać "x" w tmpChar od tab1 dokąd col1=inChar i rownum=1;
wyjątek
gdy NO_DATA_FOUND wtedy
raise_application_error (- 20002, "Żadny dane zakładać. Móc continue.");
końcówka;
otwierać outCur dla wybiórka col1 od tab1 dokąd col1=inChar;
końcówka;
/
pokazywać błąd
--test using SQL*Plus zmienna
var myCur refcursor
exec myProc ("a": myCur);
druk myCur
exec myProc ("B": myCur);
|