一 包的组成
1)包头(package):包头部分申明包内数据类型,常量,变量,游标,子程序和异常错误处理,
这些元素为包的公有元素。
2)包主体(package body):包主体则是包定义部分的具体实现,它负责为包头中所声明子程序
提供具体的实现,在包主体中还可以声明包的私有元素
3)包头和包主体分开编译,并作为两个分开的对象分别存放在数据库字典中
--删除package
--drop package pkg_lxg_test;
--1)首先创建package头(头和body的sql不要写在同一个文件中执行)
---- 这里可以声明多个procedure(如果外部调用才声明)
create or replace package pkg_lxg_test as
procedure deleteTask(taskTypeCode in varchar2, --任务类型代码
businessKey in varchar2, --业务号
resultCode out varchar2, --结果代码
resultMessage out varchar2 --结果信息
);
end pkg_lxg_test;
--)2 再创建package体(上面的头不能和体一起执行,移交时应该写成两个sql文件进行移交)
--)3 创建完成后,如果创建成功了会自动编译的
--)4 如果在创建package不成功的话,在查看和说明中可以查看到错误
--)5 package创建完成后,-->右键,查看--->然后选中你要测试的package中的proc点击右键---》测试
CREATE OR REPLACE PACKAGE BODY NBADATA.pkg_lxg_test AS
function function2(taskTypeCode in varchar2,businessKey in varchar2) return varchar2
is
v_preview_environment varchar2(4);
v_voucher_no varchar2(50);
v_count number default 0;
begin
v_preview_environment:= '1';
--dbms_output.put_line('执行了方法function2');
return v_preview_environment;
end function2;
--这里定义procedure,可以定点多个
procedure deleteTask(taskTypeCode in varchar2, --任务类型代码
businessKey in varchar2, --业务号
resultCode out varchar2, --结果代码
resultMessage out varchar2 --结果信息
) IS
begin
begin
resultCode := '0';
resultMessage := 'delete asynchrouns task sucess';
--dbms_output.put_line('成功执行了存储过程');
exception
when others then
resultCode := '1';
resultMessage := 'fail in deleting asynchrouns task sucess';
end;
end deleteTask;
end pkg_lxg_test;
/
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。