Oracle存储过程中任务和管道的应用

　　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;

　　3.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;

　　3.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;

　　4. 代码执行

　　4.1. 执行过程

　　4.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;