一 包的组成

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;

/