Bereinigung der Tropfentabelle tab1;
Tabelle tab1 (Putzfrau col1, herstellen (1));
in Werte tab1 („a ") einsetzen;
in Werte tab1 („a ") einsetzen;
in Werte tab1 („a ") einsetzen;
festlegen;
das Verfahren myProc verursachen oder ersetzen (inChar in der Putzfrau, outCur heraus im sys_refcursor)
ist
tmpChar Putzfrau (1);
anfangen
--auf Daten vor dem Rest des Codes überprüfen
anfangen
„x“ in tmpChar von tab1 vorwählen in dem col1=inChar und rownum=1;
Ausnahme
wenn NO_DATA_FOUND dann
raise_application_error (- 20002, „keine Daten fanden. Nicht kann continue.");
Ende;
outCur für auserwähltes col1 von tab1 öffnen in dem col1=inChar;
Ende;
/
Störungen zeigen
--mit SQL*Plus-Variablen prüfen
var myCur refcursor
exec myProc („a“: myCur);
Druck myCur
exec myProc („b“: myCur);
|