创建存储过程语法

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;