1. 前言

　　在Oracle数据库实际应用过程中，经常把业务处理逻辑的放在存储过程，客户端通过ADO进行调用。有些业务逻辑处理量大并且复杂，使客户端调用存储过程后，长时间没有反应，也不知存储过程运行状态，本文讲述如何在Oracle通过任务和管道的应用，异步调用存储过程的方法。

　　2. 基本原理

　　1.使用DBMS_JOB包将主处理存储过程作为任务提交到任务队列中；

　　2.主处理存储过程在运行过程中通过DBMS_PIPE包将处理情况放在管道中；

　　3.监控存储过程读取管道，从而了解处理情况；

　　4.本文没有描述双向通信的方式，监控存储过程可以通过管道发送信息给主处理存储过程。

　　3. 具体实现测试

　　建立测试环境

　　3.1. 对数据库的ini进行相关修改，使系统的任务队列功能打开

　　对于Oracle9I，只需修设定数据库的INI内的"JOB_QUEUE_PROCESSES=非0值"，如 "JOB_QUEUE_PROCESSES=10"，对于Oracle8I除设定实例ini文件中的"JOB_QUEUE_PROCESSES=非0值"外，还需设定"job_queue_interval=1"。

　　3.2. 设用用户权限

　　由于使用Oracle中特定的程序包，所以要注意要明文给于用户系统权限。对当前用户（测试用户），赋于以下权力：　　EXECUTE DBMS_PIPE
　　EXECUTE DBMS_LOCK
　　EXECUTE DBMS_JOB

　　3.3. 建立模拟大业务处理存储过程

　　本存储过程通过循环30次，调用DBMS_LOCK.SLEEP(1)（体眠1秒）和写管道模拟大的处理过程。

　　具体代码如下：　　CREATE OR REPLACE PROCEDURE maxpro AS
　　n integer;
　　status　NUMBER;
　　BEGIN
　　FOR N IN 1..30 LOOP
　　DBMS_PIPE.PURGE('maxpro'); --清除原管道信息
　　DBMS_PIPE.PACK_MESSAGE(N); --把信息放入缓冲区
　　status:=DBMS_PIPE.SEND_MESSAGE('maxpro');
　　DBMS_LOCK.SLEEP(1);
　　END LOOP;
　　DBMS_PIPE.PURGE('maxpro');　--清除原管道信息
　　DBMS_PIPE.PACK_MESSAGE(999999); --把信息放入缓冲区,用999999 表示过程完成
　　status:=DBMS_PIPE.SEND_MESSAGE('maxpro');
　　END maxpro;