oracle学习之道：如何在ORACLE中异步调用存储过程的方法

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

　　基本原理

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

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

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

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

　　具体实现测试

　　建立测试环境

　　1.对数据库的ini进行相关修改，使系统的任务队列功能打开。对于Oracle9I，只需修设定数据库的INI内的"JOB_QUEUE_PROCESSES=非0值"，如"JOB_QUEUE_PROCESSES=10"，对于ORACLE8I除设定实例ini文件中的"JOB_QUEUE_PROCESSES=非0值"外，还需设定"job_queue_interval=1"。

　　2. 设用用户权限

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

EXECUTE DBMS_LOCK  　　EXECUTE DBMS_JOB

　　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; 　4. 建立读取管道动态了解处理状态的存储过程 　　以下代码是对于maxpro存储过程的状态进行读取的过程，主要使用读取管道的方法，注意：status:= DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0);中的"0"参数是很关键的，说明接受等待时间为0秒，表示,调用时如果没有信息不等待直接返回。 　　具体代码如下：CREATE OR REPLACE PROCEDURE readmaxpro　AS  　　n integer;  　　status integer;  　　begin 　　--接受等待时间为1秒,可以为0,立即调用或DBMS_PIPE. 　　RECEIVE_MESSAGE('mypipe') 等待100天  　　status:= DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0);  　　--status为0为成功可以UNPACK_MESSAGE，1为超时没有数据，2为信息太大，3为内部错误  　　IF status <> 0 THEN  　　DBMS_OUTPUT.PUT_LINE('管道中现在没有信息返回');  　　return;  　　END IF;  　　DBMS_PIPE.UNPACK_MESSAGE(n);  　　DBMS_OUTPUT.PUT_LINE('maxpro 的当前进行状态为'|| n);  　　end; 　　5.-起动模拟大业务处理存储过程为后台进程的存储过程(BEGINMAXPRO)。通过DBMS_JOB.SUBMIT(JOB,'maxpro;',sysdate,NULL,FALSE);使"maxpro"为一个任务，在当前时间(sysdate)后执行,当然如果把sysdate改一具体时间，那就在具体时间执行 　　具休代码如下：CREATE OR REPLACE PROCEDURE beginmaxpro AS  　　JOB BINARY_INTEGER;  　　BEGIN  　　DBMS_JOB.SUBMIT(JOB,'maxpro;',sysdate,NULL,FALSE);  　　DBMS_OUTPUT.PUT_LINE('队列号码JOB=' || JOB);  　　COMMIT;  　　end;

SQL> call readmaxpro();

SQL>

　　2. 执行分析

　　beginmaxpro()，将主处理存储过程放入队列的过程，执行后存储程序马上返回，maxpro存储过程放在任务队列中，并设定为在当前系统时间执行(马上执行)。

　　maxpro为主处理存储过程，开始执行模拟大业务处理，处理过程中将处理进度信息写入管道。

　　readmaxpro();为检查状态存储过程，首先读取信息，如果信息不存在，说明管道内没有信息可读而退出;如果存在信息则读出信息。

　　本例子可以进行改进，输出不通过DBMS_OUTPUT.PUT_LINE而是用返回值，那么就可以在前端用ADO调用，发布任务，任务过程中从客户端读取进度。代码如下：CREATE OR REPLACE PROCEDURE readmaxpro(p out intergr)　AS

n integer;  　　status integer;  　　begin  　　status:= DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0);  　　IF status <> 0 THEN  　　P:=-1;  　　return;  　　END IF;  　　DBMS_PIPE.UNPACK_MESSAGE(p);  　　end;

代码执行 　　1. 执行过程 　　在CMD行输入 sqlplus 根据提示登录 　　设定DBMS_OUTPUT可见 　　SQL> set serveroutput ON 以下是执行过程和相应的返回信息 　　SQL> call beginmaxpro(); 　　队列号码JOB=21 　　调用完成。 　　SQL> call readmaxpro();

SQL> call readmaxpro();

以下是执行过程和相应的返回信息

SQL> call beginmaxpro();

　　队列号码JOB=21

　　调用完成。

SQL> call readmaxpro();

　　maxpro 的当前进行状态为14

　　调用完成。

　

SQL> call readmaxpro();

　　maxpro 的当前进行状态为16

　　调用完成。

SQL> call readmaxpro();

　　maxpro 的当前进行状态为23

　　调用完成。

SQL> call readmaxpro();

　　maxpro 的当前进行状态为999999

　　调用完成。

SQL> call readmaxpro();

　　管道中现在没有信息返回

　　调用完成。

SQL> call readmaxpro();

SQL>

　　2. 执行分析

　　beginmaxpro()，将主处理存储过程放入队列的过程，执行后存储程序马上返回，maxpro存储过程放在任务队列中，并设定为在当前系统时间执行(马上执行)。

　　maxpro为主处理存储过程，开始执行模拟大业务处理，处理过程中将处理进度信息写入管道。

　　readmaxpro();为检查状态存储过程，首先读取信息，如果信息不存在，说明管道内没有信息可读而退出;如果存在信息则读出信息。

　　本例子可以进行改进，输出不通过DBMS_OUTPUT.PUT_LINE而是用返回值，那么就可以在前端用ADO调用，发布任务，任务过程中从客户端读取进度。代码如下：CREATE OR REPLACE PROCEDURE readmaxpro(p out intergr)　AS

n integer;  　　status integer;  　　begin  　　status:= DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0);  　　IF status <> 0 THEN  　　P:=-1;  　　return;  　　END IF;  　　DBMS_PIPE.UNPACK_MESSAGE(p);  　　end;

SQL> call readmaxpro();

SQL>

　　2. 执行分析

　　beginmaxpro()，将主处理存储过程放入队列的过程，执行后存储程序马上返回，maxpro存储过程放在任务队列中，并设定为在当前系统时间执行(马上执行)。

　　maxpro为主处理存储过程，开始执行模拟大业务处理，处理过程中将处理进度信息写入管道。

　　readmaxpro();为检查状态存储过程，首先读取信息，如果信息不存在，说明管道内没有信息可读而退出;如果存在信息则读出信息。

　　本例子可以进行改进，输出不通过DBMS_OUTPUT.PUT_LINE而是用返回值，那么就可以在前端用ADO调用，发布任务，任务过程中从客户端读取进度。代码如下：CREATE OR REPLACE PROCEDURE readmaxpro(p out intergr)　AS

n integer;  　　status integer;  　　begin  　　status:= DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0);  　　IF status <> 0 THEN  　　P:=-1;  　　return;  　　END IF;  　　DBMS_PIPE.UNPACK_MESSAGE(p);  　　end;