oracle如何查看过程运行情况,Oracle技术之如何监测一个PLSQL过程的运行情况（三）...

昨天一个朋友问我如何监测一个PL/SQL的运行状况，这里简单介绍几种方法。

介绍更专业的DBMS_PIPE实现方式。

如果觉得DBMS_APPLICATION_INFO包还不够专业，这里再介绍一篇更加PROFESSIONAL的解决方案，通过DBMS_PIPE实现进程间通信。

利用这种方法，进行操作的PL/SQL过程可以通过管道发送消息给接收进程。下面给出一个最简单的例子：

SQL> CREATE TABLE T_RECORD

2  (STR VARCHAR2(30),

3  TIME DATE);

表已创建。

建立一个记录表。

随后，负责监测的进程启动一个PIPE，然后定时检测PIPE中是否存在数据：

SQL> DECLARE

2     V_RETURN NUMBER;

3     V_STR VARCHAR2(32767);

4  BEGIN

5     V_RETURN := DBMS_PIPE.CREATE_PIPE('P_TEST');

6     WHILE (V_RETURN = 0) LOOP

7             V_RETURN := DBMS_PIPE.RECEIVE_MESSAGE('P_TEST', 360);

8             IF V_RETURN = 0 THEN

9                     DBMS_PIPE.UNPACK_MESSAGE(V_STR);

10                     INSERT INTO T_RECORD VALUES (V_STR, SYSDATE);

11             END IF;

12     END LOOP;

13     V_RETURN := DBMS_PIPE.REMOVE_PIPE('P_TEST');

14  END;

15  /

需要注意，正常情况下，很可能这个PL/SQL一直处于监测状态，不过这就需要修改过程使得过程中提交事务。

当前例子为了简单，设置了10分钟的过期时间，确保要监控的PL/SQL发消息的时间间隔小于10分钟。在这10分钟内，在另外的会话运行PL/SQL代码：

SQL> DECLARE

2     V_STR VARCHAR2(4000) := 'STEP BEGIN';

3     V_RETURN NUMBER;

4  BEGIN

5     DBMS_PIPE.PACK_MESSAGE(V_STR);

6     V_RETURN := DBMS_PIPE.SEND_MESSAGE('P_TEST');

7     DBMS_LOCK.SLEEP(60);

8     V_STR := 'STEP MIDDLE';

9     DBMS_PIPE.PACK_MESSAGE(V_STR);

10     V_RETURN := DBMS_PIPE.SEND_MESSAGE('P_TEST');

11     DBMS_LOCK.SLEEP(60);

12     V_STR := 'STEP END';

13     DBMS_PIPE.PACK_MESSAGE(V_STR);

14     V_RETURN := DBMS_PIPE.SEND_MESSAGE('P_TEST');

15  END;

16  /

PL/SQL过程已成功完成。

当这个代码运行结束10分钟后，前面监测过程由于超时退出运行，这时检查日志信息：

PL/SQL过程已成功完成。

SQL> ALTER SESSION SET NLS_DATE_FORMAT = 'YYYY-MM-DD HH24:MI:SS';

会话已更改。

SQL> SELECT * FROM T_RECORD;

STR                            TIME

------------------------------ -------------------

STEP BEGIN                     2010-04-28 16:33:43

STEP MIDDLE                    2010-04-28 16:34:43

STEP END                       2010-04-28 16:35:43

这种方法适用于专门的监测程序。不过DBMS_PIPE包需要额外的授权