create or replace procedure p_blt_example(p_fm_dt date default sysdate - 1,
p_to_dt date default sysdate) is
/************************************************************
author :blt
created :2018-03-08
purpose :存储过程样例代码
parameter value
p_fm_dt 2018-03-01(昨天)
p_to_dt 2018-03-02(当日)
*************************************************************/
/************************************************************
定义区间
*************************************************************/
v_sqlstate varchar2(512);
v_proc_name varchar2(64) := 'p_blt_example';
v_fm_dt date;
v_to_dt date;
begin
/************************************************************
赋值区间
*************************************************************/
v_sqlstate := '赋值';
v_fm_dt := trunc(p_fm_dt, 'DD');
v_to_dt := trunc(p_to_dt, 'DD');
/************************************************************
计算区间
*************************************************************/
v_sqlstate := '开始';
rpt_system.log(v_proc_name, 'OK', sysdate, null, v_sqlstate);
v_sqlstate := '删除数据';
delete from t_blt_test a where a.dt = v_fm_dt;
commit;
v_sqlstate := '生成数据';
insert into t_blt_test
(id, name)
select id, name from t_user a;
commit;
/************************************************************
结束区间
*************************************************************/
v_sqlstate := '结束';
rpt_system.log(v_proc_name, 'OK', sysdate, null, v_sqlstate);
/************************************************************
异常区间
*************************************************************/
exception
when others then
rollback;
rpt_system.p_email_send_error_meg('487424', --邮件发送对象
v_proc_name, --程序名
v_sqlstate, --异常位置
sysdate, --时间
sqlcode, --异常代码
substr(sqlerrm, 1, 3000) --异常信息
);
commit;
end p_blt_example;
p_to_dt date default sysdate) is
/************************************************************
author :blt
created :2018-03-08
purpose :存储过程样例代码
parameter value
p_fm_dt 2018-03-01(昨天)
p_to_dt 2018-03-02(当日)
*************************************************************/
/************************************************************
定义区间
*************************************************************/
v_sqlstate varchar2(512);
v_proc_name varchar2(64) := 'p_blt_example';
v_fm_dt date;
v_to_dt date;
begin
/************************************************************
赋值区间
*************************************************************/
v_sqlstate := '赋值';
v_fm_dt := trunc(p_fm_dt, 'DD');
v_to_dt := trunc(p_to_dt, 'DD');
/************************************************************
计算区间
*************************************************************/
v_sqlstate := '开始';
rpt_system.log(v_proc_name, 'OK', sysdate, null, v_sqlstate);
v_sqlstate := '删除数据';
delete from t_blt_test a where a.dt = v_fm_dt;
commit;
v_sqlstate := '生成数据';
insert into t_blt_test
(id, name)
select id, name from t_user a;
commit;
/************************************************************
结束区间
*************************************************************/
v_sqlstate := '结束';
rpt_system.log(v_proc_name, 'OK', sysdate, null, v_sqlstate);
/************************************************************
异常区间
*************************************************************/
exception
when others then
rollback;
rpt_system.p_email_send_error_meg('487424', --邮件发送对象
v_proc_name, --程序名
v_sqlstate, --异常位置
sysdate, --时间
sqlcode, --异常代码
substr(sqlerrm, 1, 3000) --异常信息
);
commit;
end p_blt_example;