我做了一些有关异步运行报表的测试,得出一些经验,也有些问题没有解决。 基本上,提交一个异步运行的报表任务,代码如下: 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程序中看到。
|