create table A 
　　( 
　　USERID NUMBER(38), 
　　PWD    VARCHAR2(30) 
　　) 
　　tablespace USERS 
　　pctfree 10 
　　initrans 1 
　　maxtrans 255 
　　storage 
　　( 
　　initial 64K 
　　minextents 1 
　　maxextents unlimited 
　　); 

---建立procedure 
　　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 
　　----在PL/sql中執行procedure------ 
　　---//   file-->>new -->>test window 
　　begin 
　　-- Call the procedure 
　　up_sel(cur_test => :cur_test); 
　　end; 
　　--//在variable中填入定義的遊標名  cur_test 
　　--//在Type中填入遊標型別  Cursor 
　　--//點選Value 右邊的 ...圖示即可顯示出所要的結果 
　　--**當然也可直接右擊儲存過程後點TEST 
 

----刪除資料的儲存過程 
　　create or replace procedure up_del 
　　(userid in varchar2) 
　　is 
　　begin 
　　delete from a where USERID=userid; 
　　end; 
　　--//** 要在value中填入要傳入的值 
　　--------增加資料 
　　create or replace procedure up_add 
　　( 
　　userid in varchar2, 
　　pwd in varchar2 
　　) 
　　is 
　　begin 
　　insert into a(USERID,PWD) values(userid,pwd); 
　　commit; 
　　end; 
 

declare 
　　begin 
　　up_add(11,'222'); 
　　end;