当应用有调用存储过程,而节点有几十个或者上百个,找错是不是一个很麻烦的事情,这个时候,我建议写到数据库中,下面是我做的一个demo.

1、 建立错误日志记录表

drop table PUB_PROC_ERR_LOG purge;
create table PUB_PROC_ERR_LOG
(
LOG_ID NUMBER,
MODULE_NAME VARCHAR2(100),
PROC_NAME VARCHAR2(100),
ERR_TIME DATE,
SQL_CODE VARCHAR2(50),
SQL_ERRM VARCHAR2(100),
ERR_CONTENT VARCHAR2(500)
);
comment on column PUB_PROC_ERR_LOG.LOG_ID is '主键';
comment on column PUB_PROC_ERR_LOG.MODULE_NAME is '模块名称';
comment on column PUB_PROC_ERR_LOG.PROC_NAME is '存储过程名称';
comment on column PUB_PROC_ERR_LOG.ERR_TIME is '报错时间';
comment on column PUB_PROC_ERR_LOG.SQL_CODE is 'SQLCODE';
comment on column PUB_PROC_ERR_LOG.SQL_ERRM is 'SQLERRM';
comment on column PUB_PROC_ERR_LOG.ERR_CONTENT is '报错的具体行';

2、表主键的序列

create sequence SEQ_RECORD_PROC_ERR
minvalue 1
maxvalue 9999999999999999999999999999
start with 21
increment by 1 cache 20;

3、通用记录错误存储过程,用自治事务

CREATE OR REPLACE PROCEDURE
record_proc_err_log(module_name varchar2,
proc_name varchar2,
v_SQLCODE varchar2,
v_SQLERRM varchar2,
v_err_line varchar2) is
PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
insert into pub_proc_err_log
(log_id,
module_name,
proc_name,
err_time,
sql_code,
sql_errm,
err_content)
values
(seq_record_proc_err.nextval,
module_name,
proc_name,
sysdate,
v_SQLCODE,
v_SQLERRM,
v_err_line);
commit;
END record_proc_err_log;

4、测试

create or replace procedure proce_test is
begin
for rec in (SELECT T1.*
FROM XX.V_PROD_INST_INFO T1, AUDI_SAMPLE_NM T2
where t1.PROD_INST_ID = t2.prod_inst_id) loop
begin
INSERT INTO ASA_PROD_INFO_PROV_NM_BK
(PROV_CODE,
PROD_INST_ID,
PROD_ID,
EXT_PROD_ID,
ACC_NUM,
ACCOUNT,
PAYMENT_MODE_CD,
OWNER_CUST_ID,
STATUS_CD,
AUDI_DATE,
AUDI_BATCH)
values
('NM',
rec.PROD_INST_ID,
rec.PROD_ID,
rec.EXT_PROD_ID,
rec.ACC_NUM,
rec.ACCOUNT,
rec.PAYMENT_MODE_CD,
rec.OWNER_CUST_ID,
rec.STATUS_CD,
sysdate,
'2017-12');
commit;
  Exception
  WHEN OTHERS
      Then
record_proc_err_log('moduleName',
'proce_test()',
SQLCODE,
SQLERRM,
substr(dbms_utility.format_error_backtrace,1,400));
end;
end loop;
end proce_test;

5、编译存过 调试存过,输入参数,点击放大镜(开始调试器)开始debug存过

6、执行存过(如下两种方式):

等价于如下存过/语句块,给表里面插入数据,并显示错误信息。此种方式记录的错误信息在语句执行结束后在输出窗口显示

create or replace procedure proce_test is
--is下面为变量声明区域
iStep number;
iCount number;
begin
--变量初始化区域
iStep := 0;
iCount := 0;
<<outer_loop>> for rec in (SELECT T1.*
FROM XX.V_PROD_INST_INFO T1, AUDI_SAMPLE_NM T2
where t1.PROD_INST_ID = t2.prod_inst_id) loop
begin
INSERT INTO ASA_PROD_INFO_PROV_NM_BK
(PROV_CODE,
PROD_INST_ID,
PROD_ID,
EXT_PROD_ID,
ACC_NUM,
ACCOUNT,
PAYMENT_MODE_CD,
OWNER_CUST_ID,
STATUS_CD,
AUDI_DATE,
AUDI_BATCH)
values
('NM',
rec.PROD_INST_ID,
rec.PROD_ID,
rec.EXT_PROD_ID,
rec.ACC_NUM,
rec.ACCOUNT,
rec.PAYMENT_MODE_CD,
rec.OWNER_CUST_ID,
rec.STATUS_CD,
sysdate,
'2017-12');
commit;
  Exception
  WHEN OTHERS
      Then
record_proc_err_log('moduleName',
'proce_test()',
SQLCODE,
SQLERRM,
substr(dbms_utility.format_error_backtrace,1,400));
end;
exit outer_loop;
iStep := iStep + 1;
iCount := iCount + 1;
if iStep = 2000 then
iStep := 0;
insert into CS_COUNT_LOG values ('CP', sysdate, iCount);
commit;
end if;
end loop;
insert into CS_COUNT_LOG values ('CP', sysdate, iCount);
commit;
end;
end proce_test;
declare

  iStep   number;

  iCount  number;

  sErrstr varchar2(1024);

begin

  iStep  := 0;

  iCount := 0; 

  <<outer_loop>>

  for rec in (SELECT T1.*

                FROM DC_ALL_NM.V_PROD_INST_INFO T1, AUDI_SAMPLE_NM T2

               where t1.PROD_INST_ID = t2.prod_inst_id) loop 

    begin   

      INSERT INTO ASA_PROD_INFO_PROV_NM_BK

        (PROV_CODE,

         PROD_INST_ID,

         PROD_ID,

         EXT_PROD_ID,

         ACC_NUM,

         ACCOUNT,

         PAYMENT_MODE_CD,

         OWNER_CUST_ID,

         STATUS_CD,

         AUDI_DATE,

         AUDI_BATCH)

      values

        ('NM',

         rec.PROD_INST_ID,

         rec.PROD_ID,

         rec.EXT_PROD_ID,

         rec.ACC_NUM,

         rec.ACCOUNT,

         rec.PAYMENT_MODE_CD,

         rec.OWNER_CUST_ID,

         rec.STATUS_CD,

         sysdate,

         '2017-12');

    exception

      when others then

        sErrstr := '写表 xxxxxx 出错SQL:' || rec.PROD_INST_ID ||

                   rec.PAYMENT_MODE_CD || rec.PROD_ID || rec.EXT_PROD_ID ||

                   rec.OWNER_CUST_ID || ',SQL??:' || SQLCODE || ',' ||

                   Sqlerrm || DBMS_UTILITY.FORMAT_ERROR_BACKTRACE;       

        exit outer_loop;

        return;

    end; 

    iStep  := iStep + 1;

    iCount := iCount + 1;

    if iStep = 2000 then

      iStep := 0;

      insert into CS_COUNT_LOG values ('CP', sysdate, iCount);

      commit;

    end if;

  end loop; 

  dbms_output.put_line(sErrstr); 

  insert into CS_COUNT_LOG values ('CP', sysdate, iCount);

  commit;

end;

/

调试存储过程与declare语句差异的更多相关文章

  1. 存储过程系列之调试存储过程 SQL Server 2005

    在数据库中直接调试  在数据库中直接调试是调试SQL Server 2005的存储过程的最简单的方法. 在Visual Stuido的IDE中你可以选择单步执行存储过程,然后就可以一条语句一条语句地单 ...

  2. Oracle,SQL Server 数据库较MySql数据库,Sql语句差异

    原文:Oracle,SQL Server 数据库较MySql数据库,Sql语句差异 Oracle,SQL Server 数据库较MySql数据库,Sql语句差异 1.关系型数据库 百度百科 关系数据库 ...

  3. Mysql调试存储过程最简单的方法

    以前同事告诉我用临时表插入变量数据来查看,但是这种方法过于麻烦,而且Mysql没有比较好的调试存储过程的工具.今天google了下发现可以用select + 变量名的方法来调试...真是让我汗颜啊. ...

  4. PLSQL Developer调试 存储过程和触发器

    1. 打开PL/SQL Developer如果 在机器上安装了PL/SQL Developer的话,打开PL/SQL Developer界面输入 用户名,密码和host名字,这个跟在程序中web.co ...

  5. ORACLE-Kill 杀死正在执行的Oracle存储过程和死锁语句

    ORACLE-Kill 杀死正在执行的Oracle存储过程和死锁语句 存储过程 1.找到正在执行的存储过程的 sid ,serial# select   b.sid,b.SERIAL#,a.OBJEC ...

  6. 存储过程与SQL语句如何选择

    58到家数据库30条军规,有一条是“禁止使用存储过程.视图.触发器.Event”, 高并发大数据的互联网业务,架构设计思路是“解放数据库CPU,将计算转移到服务层”, 并发量大的情况下,这些功能很可能 ...

  7. 如何oracle调试存储过程

    1.打开PL/SQL Developer 如果在机器上安装了PL/SQL Developer的话,打开PL/SQL Developer界面 输入用户名,密码和host名字,这个跟在程序中web.con ...

  8. 使用 declare 语句和strict_types 声明来启用严格模式:

    使用 declare 语句和strict_types 声明来启用严格模式: Caution: 启用严格模式同时也会影响返回值类型声明. Note: 严格类型适用于在启用严格模式的文件内的函数调用,而不 ...

  9. plsql调试存储过程卡住的原因以及处理

    用PLSQL调试存储过程的时候,经常会遇到这个的情况,点调试后,继续点单步都是灰色,想停下来,但是取消也要点很多次才能取消掉. 就像下面的情况: 一直以为是个BUG,直到最近有人告诉我了真相. 出现这 ...

随机推荐

  1. Delphi 时间函数:关于时间精确的几个函数和方法

    //取毫秒级时间精度(方法一): var t1,t2:int64; r1:int64; begin t1:=GetTickCount;//获取开始计数 WINDOWS API sleep(1000); ...

  2. Ruby 环境

    Ruby 环境 本地环境设置 如果您想要设置 Ruby 编程语言的环境,请阅读本章节的内容.本章将向您讲解与环境设置有关的所有重要的主题.建议先学习下面几个主题,然后再进一步深入学习其他主题: Lin ...

  3. hive中的lateral view 与 explode函数的使用

    hive中的lateral view 与 explode函数的使用 背景介绍: explode与lateral view在关系型数据库中本身是不该出现的. 因为他的出现本身就是在操作不满足第一范式的数 ...

  4. NX-二次开发创建圆弧(三点圆弧)UF_CURVE_create_arc_3point

    NX9+VS2012 #include <uf.h> #include <uf_curve.h> UF_initialize(); //起点 ]; ArcStartPoint[ ...

  5. NX二次开发-UFUN更改视图比例大小UF_DRAW_set_view_scale

    #include <uf.h> #include <uf_draw.h> #include <uf_drf.h> #include <uf_obj.h> ...

  6. csp-s模拟测试98

    csp-s模拟测试98 $T1$??不是我吹我轻松手玩20*20.$T2$装鸭好像挺可做?$T3$性质数据挺多提示很明显? $One$ $Hour$ $Later$ 这$T1$什么傻逼题真$jb$难调 ...

  7. Mysql命令增加、修改、删除表字段

    alter add 命令用来增加表的字段: alter add命令格式:alter table 表名 add字段 类型 其他:如下所示: ) comment '单位' alter drop 命令删除表 ...

  8. FIR和IIR设计指标

  9. Python中字典的详细用法

    #字典 #字典是Python中唯一内建的映射类型.字典中没有特殊的顺序,但都是存储在一个特定的键(key)下面,键可以是数字,字符串,甚至是元组 #一.字典的使用 #在某些情况下,字典比列表更加适用: ...

  10. Xtrabackup 热备

    Xtrabackup介绍Xtrabackup是由percona开源的免费数据库热备份软件,它能对InnoDB数据库和XtraDB存储引擎的数据库非阻塞地备份(对于MyISAM的备份同样需要加表锁):m ...