продувка таблицы tab1 падения;
создайте таблицу tab1 (чарс col1 (1));
введите в значения tab1 («a ");
введите в значения tab1 («a ");
введите в значения tab1 («a ");
поручите;
создайте или замените myProc процедуры (inChar в чарсе, outCur sys_refcursor вне)
tmpChar чарс (1);
начните
--проверите для данных перед остальноями Кодего
начните
выберите «x» в tmpChar от tab1 где col1=inChar и rownum=1;
исключение
когда NO_DATA_FOUND после этого
raise_application_error (- 20002, «никакие данные нашли. Не может continue.");
конец;
раскройте outCur для отборного col1 от tab1 куда col1=inChar;
конец;
/
покажите ошибки
--испытайте использующ перемеююые SQL*Plus
refcursor myCur var
myProc exec («a»: myCur);
myCur печати
myProc exec («b»: myCur);
|