Oracle存储过程、包的开发

规范

create or replace procedure_name
    (
        --参数：argument,根据参数类型命名，如number就是an_...，date就是ad_...
        ad_data_date in date,
        --使用表名.列名定义参数类型
        P_id table.id%type
    )
    is
    --变量：variable,number就是vn_...
    begin
    --业务处理
    commit;
    
    exception
        when others then
        ai_code := sqlcode; --oracle自带的函数，返回Oracle错误的序列
        ai_desc := substr(sqlerrm,1,1000); --返回错误消息
        --错误处理，一般写日志
        rollback;
    end;
end;

结合package、计算控制procedure、log_procedure使用

create or replace package body pkg_name is
    --procedure_1
    prc_log
    (
        ac_prc_name in varchar2, --过程名
        ad_bgn_date in date,    --开始时间
        ad_end_date in date,    --结束时间
        ac_res_code in varchar2, --结果代码
        ac_res_desc in varchar2, --结果描述
        ac_remark in varchar2   --备注
    )
    is
    begin
    insert into log_table(columns) values (...);
    commit;
    
    exception
        when others then
        rollback;
    end;
    
    --procedure_2
    prc_name
    (   --参数
        an_data_date in number, --数据时间
        an_code out number, --执行结果代码
        av_desc out varchar2 --执行结果描述
    ) is
    --变量
    vd_bgn_date date;
    vd_end_date date;
    begin
    vd_bgn_date := sysdate;
    --业务处理
    
    an_code := 0;
    av_desc := '执行成功';
    select sysdate into vd_end_date from dual;
    
    --写日志
    prc_log(prc_name,vd_bgn_date,vd_end_date,an_code,av_desc,'备注');
    commit;
    
    exception
        when others then
        --sqlcode
        an_code := sqlcode;
        --sqlerrm
        av_desc := substr(sqlerrm,1,1000);
        vd_end_date := sysdate;
        rollback;
        --写日志
        prc_log(prc_name,vd_bgn_date,vd_end_date,an_code,av_desc,'备注');
        commit;
    end;
    
    --计算控制
    procedure prc_ctl
    (
    ad_date in date,
    an_code out number,
    av_desc out varchar2
    )
    is
    --变量
    vd_data_date varchar2; --数据时间，执行的条件
    vd_bgn_date date;
    vd_end_date date;
    begin
    vd_bgn_date := sysdate;
    if ... then
    --业务处理，调用存储过程
    prc_name(vd_data_date);
    else ...
    end if;
    
    an_code := 0;
    av_desc := '执行成功';
    vd_end_date := sysdate;
    
    --log
    prc_log('prc_ctl',vd_bgn_date,vd_end_date,an_code,av_desc,'备注');
    commit;
    
    exception
        when others then
        an_code := sqlcode;
        av_desc := substr(sqlerrm,1,1000);
        vd_end_date := sysdate;
        rollback;
        --log
        prc_log('prc_ctl',vd_bgn_date,vd_end_date,an_code,av_desc,'备注');
        commit;
    end;
end;