Oracle存储过程中异步调用的实际操作步骤

当前位置：首页 - 数据库 - 正文

君子好学，自强不息！

2022-11-24 | 数据库 | admin | 534°c

A⁺ A^-

我们都知道在Oracle数据库的实际应用的过程中，我们经常把相关的业务处理逻辑，放在Oracle存储过程中，客户端以通过ＡＤＯ来进行相关的调用。而有些相关的业务逻辑处理量大并且复杂。

使客户端调用存储过程后，长时间没有反应，也不知Oracle存储过程运行状态，

本文讲述如何在ＯＲＡＣＬＥ通过任务和管道的应用，异步调用存储过程的方法。

基本原理

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

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

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

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

具体实现测试

建立测试环境

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

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

4.2. 设用用户权限

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

EXECUTEDBMS_PIPE 
EXECUTEDBMS_LOCK 
EXECUTEDBMS_JOB

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

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

具体代码如下：

CREATEORREPLACEPROCEDUREmaxproAS 
ninteger; 
statusNUMBER; 
BEGIN 
FORNIN1..30LOOP

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.4. 建立读取管道动态了解处理状态的Oracle存储过程

以下代码是对于maxpro存储过程的状态进行读取的过程，主要使用读取管道的方法，注意：

status:=DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0);

中的"0"参数是很关键的，说明接受等待时间为0秒，表示,调用时如果没有信息不等待直接返回。

具体代码如下：

CREATEORREPLACEPROCEDUREreadmaxproAS 
ninteger; 
statusinteger; 
begin

接受等待时间为1秒,可以为0,立即调用或DBMS_PIPE.RECEIVE_MESSAGE(‘mypipe’) 等待100天

status:= DBMS_PIPE.RECEIVE_MESSAGE(‘maxpro’,0);

status为0为成功可以UNPACK_MESSAGE，1为超时没有数据，2为信息太大，3为内部错误

IFstatus<>0THEN 
DBMS_OUTPUT.PUT_LINE('管道中现在没有信息返回'); 
return; 
ENDIF; 
DBMS_PIPE.UNPACK_MESSAGE(n); 
DBMS_OUTPUT.PUT_LINE('maxpro的当前进行状态为'||n); 
end;

4.5. -起动模拟大业务处理Oracle存储过程为后台进程的存储过程（BEGINMAXPRO）

通过DBMS_JOB.SUBMIT(JOB,’maxpro;’,sysdate,NULL,FALSE);使"maxpro"为一个任务，在当前时间（sysdate）后执行,当然如果把sysdate改一具体时间，那就在具体时间执行

具休代码如下：

CREATEORREPLACEPROCEDUREbeginmaxproAS 
JOBBINARY_INTEGER; 
BEGIN 
DBMS_JOB.SUBMIT(JOB,'maxpro;',sysdate,NULL,FALSE); 
DBMS_OUTPUT.PUT_LINE('队列号码JOB='||JOB); 
COMMIT; 
end;

代码执行

5.1. 执行过程

注：黑体字是屏幕输出，下划线字是输入内容

在CMD行输入 sqlplus 根据提示登录

设定DBMS_OUTPUT可见

SQL> set serveroutput ON

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

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>

5.2. 执行分析

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

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

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

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

CREATEORREPLACEPROCEDUREreadmaxpro(poutintergr)AS 
ninteger; 
statusinteger; 
begin 
status:=DBMS_PIPE.RECEIVE_MESSAGE('maxpro',0); 
IFstatus<>0THEN 
P:=-1; 
return; 
ENDIF; 
DBMS_PIPE.UNPACK_MESSAGE(p); 
end;

6. 附录：

6.1. 相关程序包说明

DBMS_JOB.SUBMIT( 
JOBOUTBINARY_INTEGER, 
WHATINVARCHAR2, 
NEXT_DATEINDATEDEFAULTSYSDATE, 
INTERVALINVARCHAR2DEFAULT'NULL', 
NO_PARSEINBOOLEANDEFAULTFALSE, 
INSTANCEINBINARY_INTEGERDEFAULTANY_INSTANCE, 
FORCEINBOOLEANDEFAULTFALSE)

功能：提交作业入作业队列

参数说明：

JOB:作业的作业号，输出参数

WHAT：作业对应的PL/SQL代码（一般用于过程名)

NEXT_DATE:下一次作业运行的时间

INTERVAL:作业执行间隔时间，缺省是NULL,只执行一次

NO_PARSE:是否对WHAT语句，在提交时进行分析，缺省是进行分析。

INSTANCE：作业提交时，指明运行作业的实例，缺省是0，任何的数据库全可以

FORCE：是否检查INSTANCE指定的数据库在运行，缺省是FALSE，不检查

例子：

declare 
jobnnumber; 
begin 
DBMS_JOB.SUBMIT(jobn,'maxpro;',sysdate); 
DBMS_OUTPUT.PUT_LINE('JOB='||jobn); 
COMMIT; 
end;

注意：

设定数据库参数JOB_QUEUE_PROCESSES = 非0值（***队列数***60）

对于9I前设定数据库参数JOB_QUEUE_INTERVAL = 非0值（队列扫描周期1-3600秒）

DBMS_PIPE.PACK_MESSAGE(itemINVARCHAR2); 
DBMS_PIPE.PACK_MESSAGE(itemINNCHAR); 
DBMS_PIPE.PACK_MESSAGE(itemINNUMBER); 
DBMS_PIPE.PACK_MESSAGE(itemINDATE); 
DBMS_PIPE.PACK_MESSAGE_RAW(itemINRAW); 
DBMS_PIPE.PACK_MESSAGE_ROWID(itemINROWID);

功能：把一个数据项放到私有数据缓冲区

DBMS_PIPE.SEND_MESSAGE( 
pipenameINVARCHAR2, 
timeoutININTEGERDEFAULTMAXWAIT, 
maxpipesizeININTEGERDEFAULT8192) 
RETURNINTEGER;

功能：发送私有数据缓冲区的信息到命名管道，如果管道不存在就建立

DBMS_PIPE.RECEIVE_MESSAGE( 
pipenameINVARCHAR2, 
timeoutININTEGERDEFAULTmaxwait)RETURNINTEGER;

功能：从管道到接受信息放到数据缓冲区

DBMS_PIPE.UNPACK_MESSAGE(itemOUTVARCHAR2); 
DBMS_PIPE.UNPACK_MESSAGE(itemOUTNCHAR); 
DBMS_PIPE.UNPACK_MESSAGE(itemOUTNUMBER); 
DBMS_PIPE.UNPACK_MESSAGE(itemOUTDATE); 
DBMS_PIPE.UNPACK_MESSAGE_RAW(itemOUTRAW); 
DBMS_PIPE.UNPACK_MESSAGE_ROWID(itemOUTROWID);

功能：从数据缓冲区接收下一个数据项