de zuivering van de dalingslijst tab1;
cre�ër lijst tab1 (col1 klusje (1));
tussenvoegsel in tab1 waarden ('a');
tussenvoegsel in tab1 waarden ('a');
tussenvoegsel in tab1 waarden ('a');
bega;
cre�ër of vervang procedure myProc (inChar in klusje, outCur uit sys_refcursor)
is
tmpChar klusje (1);
begin
--controle voor gegevens vóór de rest van de code
begin
selecteer „x“ in tmpChar van tab1 waar col1=inChar en rownum=1;
uitzondering
wanneer NO_DATA_FOUND toen
raise_application_error (- 20002, „Geen gevonden gegevens. Kan verdergaan niet. “);
eind;
open outCur voor uitgezochte col1 van tab1 waar col1=inChar;
eind;
/
toon fouten
--test het gebruiken van variabelen SQL*Plus
var myCur refcursor
exec myProc ('a': myCur);
druk myCur
exec myProc ('b': myCur);
|