create table A
(
USERID NUMBER(
PWD VARCHAR
)
tablespace USERS
pctfree
initrans
maxtrans
storage
(
initial
minextents
maxextents unlimited
);
create or replace procedure up_sel(cur_test out sys_refcursor)
is
begin
open cur_test for
select * from a;
end;
drop procedure up_sel
commit
begin
up_sel(cur_test => :cur_test);
end;
create or replace procedure up_del
(userid in varchar
is
begin
delete from a where USERID=userid;
end;
create or replace procedure up_add
(
userid in varchar
pwd in varchar
)
is
begin
insert into a(USERID
commit;
end;
declare
begin
up_add(
end;
From:http://tw.wingwit.com/Article/program/Oracle/201311/16908.html