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

时间:2022-09-26 05:31:33

本文标签:Oracle存储过程 

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

  使客户端调用存储过程后,长时间没有反应,也不知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中特定的程序包,所以要注意要明文给于用户系统权限  。对当前用户(测试用户),赋于以下权力

  1. EXECUTE DBMS_PIPE
  2. EXECUTE DBMS_LOCK
  3. EXECUTE DBMS_JOB

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

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

  具体代码如下:

  

  

  1. CREATE OR REPLACE PROCEDURE maxpro AS
  2. n integer;
  3. status NUMBER;
  4. BEGIN
  5. 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.4. 建立读取管道动态了解处理状态的Oracle存储过程

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

  

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

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

  具体代码如下:

  

  1. CREATE OR REPLACE PROCEDURE readmaxpro AS
  2. n integer;
  3. status integer;
  4. begin

  

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

  

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

  

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

  

  1. IF status <> 0 THEN
  2. DBMS_OUTPUT.PUT_LINE(管道中现在没有信息返回);
  3. return;
  4. END IF;
  5. DBMS_PIPE.UNPACK_MESSAGE(n);
  6. DBMS_OUTPUT.PUT_LINE(maxpro 的当前进行状态为|| n);
  7. end;

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

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

  具休代码如下:

  1. CREATE OR REPLACE PROCEDURE beginmaxpro AS
  2. JOB BINARY_INTEGER;
  3. BEGIN
  4. DBMS_JOB.SUBMIT(JOB,maxpro;,sysdate,NULL,FALSE);
  5. DBMS_OUTPUT.PUT_LINE(队列号码JOB= || JOB);
  6. COMMIT;
  7. 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调用,发布任务,任务过程中从客户端读取进度  。代码如下:

  

  1. CREATE OR REPLACE PROCEDURE readmaxpro(p out intergr) AS
  2. n integer;
  3. status integer;
  4. begin
  5. status:= DBMS_PIPE.RECEIVE_MESSAGE(maxpro,0);
  6. IF status <> 0 THEN
  7. P:=-1;
  8. return;
  9. END IF;
  10. DBMS_PIPE.UNPACK_MESSAGE(p);
  11. end;

  6. 附录:

  6.1. 相关程序包说明

  

  1

  

  

  1. DBMS_JOB.SUBMIT(
  2. JOB OUT BINARY_INTEGER,
  3. WHAT IN VARCHAR2,
  4. NEXT_DATE IN DATE DEFAULTSYSDATE,
  5. INTERVAL IN VARCHAR2 DEFAULT NULL,
  6. NO_PARSE IN BOOLEAN DEFAULT FALSE,
  7. INSTANCE IN BINARY_INTEGER DEFAULT ANY_INSTANCE,
  8. FORCE IN BOOLEAN DEFAULT FALSE)

  

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

  

  参数说明:

  

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

  

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

  

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

  

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

  

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

  

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

  

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

  

  例子:

  

  1. declare
  2. jobn number;
  3. begin
  4. DBMS_JOB.SUBMIT(jobn,maxpro;,sysdate);
  5. DBMS_OUTPUT.PUT_LINE(JOB= || jobn);
  6. COMMIT;
  7. end;

  注意:

  设定数据库参数JOB_QUEUE_PROCESSES = 非0值(最大队列数最大60)

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

  2

  1. DBMS_PIPE.PACK_MESSAGE (item IN VARCHAR2);
  2. DBMS_PIPE.PACK_MESSAGE (item IN NCHAR);
  3. DBMS_PIPE.PACK_MESSAGE (item IN NUMBER);
  4. DBMS_PIPE.PACK_MESSAGE (item IN DATE);
  5. DBMS_PIPE.PACK_MESSAGE_RAW (item IN RAW);
  6. DBMS_PIPE.PACK_MESSAGE_ROWID (item IN ROWID);

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

  3

  1. DBMS_PIPE.SEND_MESSAGE (
  2. pipename IN VARCHAR2,
  3. timeout IN INTEGER DEFAULT MAXWAIT,
  4. maxpipesize IN INTEGER DEFAULT 8192)
  5. RETURN INTEGER;

  

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

  4

  1. DBMS_PIPE.RECEIVE_MESSAGE (
  2. pipename IN VARCHAR2,
  3. timeout IN INTEGER DEFAULT maxwait) RETURN INTEGER;

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

  5

  1. DBMS_PIPE.UNPACK_MESSAGE (item OUT VARCHAR2);
  2. DBMS_PIPE.UNPACK_MESSAGE (item OUT NCHAR);
  3. DBMS_PIPE.UNPACK_MESSAGE (item OUT NUMBER);
  4. DBMS_PIPE.UNPACK_MESSAGE (item OUT DATE);
  5. DBMS_PIPE.UNPACK_MESSAGE_RAW (item OUT RAW);
  6. DBMS_PIPE.UNPACK_MESSAGE_ROWID (item OUT ROWID);

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

  6

  1. DBMS_PIPE.PURGE ( pipename IN VARCHAR2);

  功能:清除管道内的信息

  

  以上的相关内容就是对Oracle存储过程的异步调用 的介绍,望你能有所收获  。

  

  文章出自: http://wolongshan.javaeye.com/blog/638734