1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| v_report_id:= FIND_REPORT_OBJECT('RP2RRO');
SET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_EXECUTION_MODE,RUNTIME);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_COMM_MODE,ASYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE, CACHE);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_SERVER, 'RptSvr');
SET_REPORT_OBJECT_PROPERTY(v_report_id, REPORT_OTHER, 'ENVID="' || 'mon_env' || '"');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_FILENAME, rep);
vc_report_job_id := RUN_REPORT_OBJECT(v_report_id);
vc_rep_status:= REPORT_OBJECT_STATUS(vc_report_job_id);
WHILE vc_rep_status IN ('RUNNING','OPENING_REPORT','ENQUEUED')LOOP
vc_rep_status:= REPORT_OBJECT_STATUS(vc_report_job_id);
END LOOP /* Wait for Report to be finished */;
IF vc_rep_status='FINISHED' THEN
:system.message_level := 5;
commit_form;
:system.message_level := 0;
web.show_document('/reports/rwservlet/getjobid'||
substr(vc_report_job_id,instr(vc_report_job_id,'_',-1)+1)||
'?server=rptsvr');
ELSIF vc_rep_status NOT IN ('RUNNING','OPENING_REPORT','ENQUEUED') THEN
message (vc_rep_status||' Report output aborted');
END IF; |
Partager