oracle plsql unit,ORACLE PLSQL调试方法.doc

Oracle专题——PL/SQL调试一般方法

在开发PL/SQL程序时，每个程序错误都有其特殊之处，这就使得程序的调试和测试技术面临挑战。虽然在开发过程中可以借助于测试来减少程序错误的数量，但是，如果能有效的调试PL/SQL程序，可以较大幅度提高开发效率及质量。以下为PL/SQL调试的一些方法：

捕捉违例

通过两个内建的函数sqlcode 和sqlerrm 来找出发生了哪类错误并获得详细的错误信息，在内部违例发生时，sqlcode返回从-1至－20000之间的一个错误号，但有一个例外，仅当内部违例no_data_found 发生时，才会返回一个正数 100。当用户自定义的违例发生时，sqlcode返回＋1，除非用户使用 pragma exception_init 将自定义违例绑定一个自定义的错误号。当没有违例抛出时，sqlcode返回0。

下面是个简单的捕捉违例的例子：

CREATE OR REPLACE PROCEDURE PROC_GETEXCEPTIONINFO(I_TMPVAR IN NUMBER,

O_RETCODE OUT VARCHAR2,

O_ERRMSG OUT VARCHAR2) IS

V_TMPVAR NUMBER;

BEGIN

SELECT I_TMPVAR / 0 INTO V_TMPVAR FROM DUAL;

EXCEPTION

WHEN OTHERS THEN

O_RETCODE := SQLCODE;

O_ERRMSG := SQLERRM;

END PROC_GETEXCEPTIONINFO;

运行结果为：

输入：I_TMPVAR 10

输出：O_RETCODE -1476

O_ERRMSG ORA-01476: 除数为 0

将结果打印到屏幕

通过DBMS_OUTPUT包将PLSQL中的变量值打印到屏幕上，在程序运行过程中，可以跟踪变量的变化轨迹。

DECLARE

BEGIN

DBMS_OUTPUT.PUT_LINE('Before loop......');

FOR V_COUNTER IN 1 .. 5 LOOP

DBMS_OUTPUT.PUT_LINE('Inside loop. counter=' || V_COUNTER);

END LOOP;

DBMS_OUTPUT.PUT_LINE('After loop.');

END;

运行结果为：

Before loop......

Inside loop. counter=1

Inside loop. counter=2

Inside loop. counter=3

Inside loop. counter=4

Inside loop. counter=5

After loop.

使用调试表

把变量的值插入到程序维持的临时表中，当该程序运行结束时，查询该临时表中的变量数据值。这种调试方法实现起来最容易并且不需特定的运行环境，只需在程序中插入INSERT语句。

DECLARE

BEGIN

FOR i IN 1..100 LOOP

INSERT INTO TMP_TAB VALUES('CURRVAL：'+i);

END LOOP;

COMMIT;

END;

写日志文件

上面的方法能在开发阶段对编写和调试存储过程提供最大限度的方便，但为了在系统测试或生产环境中确认我们的代码是否正常工作时，就需要记录日志。PLSQL提供了一个utl_file包，通过定义utl_file包中的file_type类型，能获得一个文件句柄，通过此句柄能实现一般的文件操作功能。

默认的数据库参数是不允许使用utl_file包的，需要手动进行设置，使用GUI的管理工具或手工编辑init.ora文件，找到 "utl_file_dir" 参数，如果没有，则添加一行，修改成如下(注意等号左右不要留空格，可能会引起解析错误，导致设置无效)：utl_file_dir=/usr/tmp 或 utl_file_dir=*

第一种方式限定了在utl_file包中能存取的目录，第二种方式则不进行限定。无论哪种方式，都要确保运行数据库实例的用户，拥有此目录的存取权限，否则在使用包的过程中会报出错误信息。

DECLARE

fi utl_file.file_type;

BEGIN

fi := utl_file.fopen('/usr/tmp','tmp.log', 'a' );

FOR V_COUNTER IN 1 .. 5 LOOP

utl_file.put_line( fi, 'V_COUNTER=' || V_COUNTER);

END LOOP;

EXCEPTION

WHEN OTHERS THEN

IF( utl_file.is_open( fi )) THEN

u