################################################### 
oracle的存储过程 
################################################### 

--创建包头 
create or replace package pck_as 
as 
type t_product_id is table of number 
index by binary_integer; 
type t_serial_no is table of varchar(300) 
index by binary_integer; 
type t_buy_date is table of date 
index by binary_integer; 

procedure allsfc 
( 
product_id out t_product_id, 
serial_no out t_serial_no, 
buy_date out t_buy_date 
); 

--procedure allsfc1; 
end pck_as; 


--创建包体 
create or replace package body pck_as 
as 
procedure allsfc 
( 
product_id out t_product_id, 
serial_no out t_serial_no, 
buy_date out t_buy_date 
) 
is 
cursor cur_sfc_tbl_product_reg is 
select product_id,serial_no,buy_date from sfc_tbl_product_reg; 

i number default 1; 

begin 
for onrecord in cur_sfc_tbl_product_reg 
loop 
product_id(i) := onrecord.product_id; 
serial_no(i) := onrecord.serial_no; 
buy_date(i) := onrecord.buy_date; 
i := i + 1; 
end loop; 
end; 
end;