oracle创建packages,Oracle Pracedures Packages创建

自己没事整理的，建个Packages：

-----------------Packages Start--------------------------------------------------------------------------------*********************--------------

create or replace package LK_Package is

DB_OK CONSTANT number := 0;

DB_ERROR CONSTANT number :=1;

procedure LK_Test(

in_test in char,

in_yen in number,

out_code out number,

out_msg out varchar2

);

end LK_Package;

-------&&&&&&&&&&&&&&&&&&&----------------

--is/as 只是定义,begin才是真正的开始

create or replace package body LK_Package is

LK_Code   NUMBER(1);  --レコードカウント1

LK_Msg varchar2(60); --合計金額1

--带返回值方法(此处的变量名不能重新赋值)

function UptTest(

in_kyuko_yen in number := 0,--默认参数

in_shain_cd in char)

return boolean

is

in_kyuko number;

begin

if in_kyuko_yen = 0 then

in_kyuko := 100;  --！！！

end if;

update test set KYUYO_YEN= in_kyuko where SHAIN_CD=in_shain_cd;

return true;

exception

when others then

rollback;

return false;

end;

--不带返回值方法(此处的变量名必须与之前的一一对应)

procedure LK_Test(

in_test in char,

in_yen in number,

out_code out number,

out_msg out varchar2

)

is

begin

if UptTest(in_test,in_yen) =true then

out_code :=DB_OK;

out_msg :='';

else

out_code :=DB_ERROR;

out_msg :=sqlerrm;

end if;

exception

WHEN OTHERS THEN

out_code :=DB_ERROR;

out_msg := 'exception : ' || sqlerrm;

rollback;

end LK_Test;

begin

--LK_Test('00088838',600,LK_Code,LK_Msg);

end LK_Package;

-----------------Packages End---------------------------------------------------------------------------------******************---