tappa bordlägger laxermedel tab1;
skapa bordlägger tab1 (rödingen col1 (1));
sätt in in i tab1 värderar (”a”);
sätt in in i tab1 värderar (”a”);
sätt in in i tab1 värderar (”a”);
begå;
skapa eller byt ut tillvägagångssättmyProc (som är inChar i röding, för outCur sys_refcursor ut)
är
tmpChar röding (1);
börja
--kontroll för data för vila av kodifiera
börja
välj ”x” in i tmpChar från tab1 var col1=inChar och rownum=1;
undantag
när NO_DATA_FOUND därefter
raise_application_error (- 20002, ”inga data grundar. Kan inte fortsätta. ”);
avsluta;
öppna outCur för vald col1 från tab1 var col1=inChar;
avsluta;
/,
visa fel
--testa using SQL*Plus-variabler
var-myCurrefcursor
execmyProc (”a”: myCur);
tryckmyCur
execmyProc (”b”: myCur);
|