create packages

创建包

create or replace package packageName

as

type curs is ref cursor;

procedure procedureName

(

invar1 varchar2,

invar2 varchar2,

invar3 number,

invar4 tableName.colName%type,

invar5 out varchar2

);

procedure procedureName2

(

invar1 varchar2,

cur out curs



);

end;

创建存储过程

create or replace package body packageName

as

procedure procedureName

(

invar1 varchar2,

invar2 varchar2,

invar3 number,

invar4 tableName.colName%type,

invar5 out varchar2 --顺序不能变

)

is

v_var1 varchar2(50);

v_var2 number(20);

v_var3 tableName%rowtype;

v_var4 varchar(50):='';

begin

--处理语句...

--结束之前要给输出变量赋值

invar5:= '输出';

end procedureName;

procedure procedureName2

(

invar1 varchar2,

cur out curs



)

is

begin

open cur is select * from tableName;

end procedureName2;