您的位置:首页 > 数据库 > Oracle

ORACLE中package的用法

2016-04-20 09:13 561 查看

create or replace package wx_payment_check_package is
/*
创建包头 create by JULONG
*/
       procedure proc_payment_check_tenpay(tenpay_time in varchar2,error_total out number,success_count out number,error_count out number,result_code out varchar2,result_message out varchar2);
              procedure proc_payment_mend_recharge(tenpay_time in varchar2,success_count out number,error_count out number,result_code out varchar2,result_message out varchar2);
             procedure proc_payment_recharge_support(tenpay_time in varchar2,success_count out number,error_count out number,result_code out varchar2,result_message out varchar2);
end wx_payment_check_package;
create or replace  package body wx_payment_check_package is
/*
创建包体
*/
    procedure proc_payment_check_tenpay(
    tenpay_time in varchar2,
    error_total out number,
    success_count out number,
    error_count out number,
    result_code out varchar2,
    result_message out varchar2
  )
  as
    sys_date date ;--当前时间
    error_message exception;--定义异常
   
  begin
    error_total:=0;--错误的总数量
    success_count:=0;--处理成功的数量
    error_count:=0;--处理失败的数量
    result_code:='-1';--默认处理结果
    result_message:='未做任何操作';--默认处理结果返回的信息
    --创建游标
    cursor pay_user is select * from WX_PAYMENT_CHECK_DATA t
    where t.check_data_status <> '0'  and t.check_data_status <> '5' and  to_char(t.tenpay_time,'yyyy-mm-dd') = '2015-11-11';
    --pay_info pay_user%rowtype;
 
   
   
   
   
   
    dbms_output.put_line('写你需要写的代码内容');
      EXCEPTION
        WHEN error_message THEN
           dbms_output.put_line('发生异常信息');
  end proc_payment_check_tenpay;
 
 
 
 
    procedure proc_payment_mend_recharge(
    tenpay_time in varchar2,
    success_count out number,
    error_count out number,
    result_code out varchar2,
    result_message out varchar2
  )
  as
    sys_date date ;--当前时间
    error_message exception;--定义异常
  begin
       dbms_output.put_line('写你需要写的代码内容');
      EXCEPTION
        WHEN error_message THEN
           dbms_output.put_line('发生异常信息');
  end proc_payment_mend_recharge;
    procedure proc_payment_recharge_support(
    tenpay_time in varchar2,
    success_count out number,
    error_count out number,
    result_code out varchar2,
    result_message out varchar2
  )
  as
    sys_date date ;--当前时间
    error_message exception;--定义异常
  begin
      dbms_output.put_line('写你需要写的代码内容');
      EXCEPTION
        WHEN error_message THEN
           dbms_output.put_line('发生异常信息');
  end proc_payment_recharge_support;
end wx_payment_check_package;

内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: