CREATE LUB ZAMIENIAĆ PROCEDURA C_PUT
(p_partition_name w varchar2,
p_dat_no liczba
r_ref sys_refcursor sys_refcursor)
KURSOR CUR BYĆ
'WYBRANY PAT_NO, PNAME, OT_P
FORMULARZOWY TARGET.PATENTS rozdział ("||p_partition_name||")
DOKĄD DAT_NO = p_dat_no
ROZKAZ PAT_NO
DLA AKTUALIZACJA POMINIĘCIE SZAFKA; '
ZACZYNAĆ
JEŻELI CUR%ROWCOUNT > (0) WTEDY
DBMS_OUTPUT.PUT_LINE ("Tam być rząd ");
POWRÓT jako Refcursor
Inny
DBMS_OUTPUT.PUT_LINE ("ŻADNY rząd ");
KOŃCZYĆ JEŻELI;
KOŃCÓWKA;
|