我做了一些有关异步运行报表的测试,得出一些经验,也有些问题没有解决。
基本上,提交一个异步运行的报表任务,代码如下:
DECLARE
v_repobj REPORT_OBJECT := find_report_object('report1');
v_repjob VARCHAR2(100);
BEGIN
--设置为异步运行
set_report_object_property(v_repobj, REPORT_COMM_MODE, ASYNCHRONOUS);
--假如设为RUNTIME,forms service启动reports runtime engine运行报表,结果保存在forms server上。
--设为BATCH并且指定REPORT_SERVER,报表在reports service上运行,结果保存在reports server上。
set_report_object_property(v_repobj, REPORT_EXECUTION_MODE,
BATCH);
set_report_object_property(v_repobj, REPORT_SERVER, 'REPSVR');
--异步方式下,不能设置DESTYPE为PREVIEW, SCREEN。这里设为CACHE,以后可以通过CGI到REPORT SERVER取结果。
set_report_object_property(v_repobj, REPORT_DESTYPE, CACHE);
--设置报表格式
set_report_object_property(v_repobj, REPORT_DESFORMAT, 'PDF');
--运行报表,因为异步运行方式,run_report_object立即返回了一个jobid。
v_repjob := run_report_object(v_repobj);
--我们把这个jobid保存到一个全局变量里。
:global.repjob := v_repjob;
END;
利用刚才保存的jobid,我们可以在以后取报表结果:
DECLARE
v_repjob VARCHAR2(100);
v_repstatus VARCHAR2(20);
BEGIN
v_repjob := :global.repjob;
v_repstatus := report_object_status(v_repjob);
IF v_repstatus = 'FINISHED' THEN
--报表保存在report server上,可以用rwcgi60.exe/getjobid[n]取结果。
web.show_document('rwcgi60.exe/getjobid'v_repjob'?server=repsvr');
END IF;
END;
上面的例子使用全局变量保存jobid,实际上我们可以将jobid保存在任何地方,例如数据库表、文本文件中。
前面讲过我的需求是希望用户提交报表后可以退出程序,下次某个时间再登录进入检查报表状态,取报表结果。我对上面代码做了一点改动,将jobid保存到表中,以后再从表中取jobid。然而测试发现了一个问题,退出程序后重新进入,report_object_status(jobid)返回null。看来report_object_status在没有调用run_report_object时使用,是无法得到报表状态的。仅管我们可以用getjobid取结果,但是我们不能看到报表状态,这是个遗憾。用户也不能接受用showjobs显示出来的报表状态,他们希望在fomrs程序中看到。