DECLARE
	repid REPORT_OBJECT;
	v_rep VARCHAR2(100);
	rep_status VARCHAR2(20);

BEGIN
	repid := FIND_REPORT_OBJECT('REPORT6');
	v_rep := RUN_REPORT_OBJECT(repid);
	WEB.SHOW_DOCUMENT('http://202.143.122.33:8888/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=repserver90','_blank'); 
	message('running report'); 
END;

DECLARE
	v_report_id Report_Object;
	vc_report_job_id VARCHAR2(100); /* unique id for each Report request */
	vc_rep_status VARCHAR2(100); /* status of the Report job */

BEGIN
	/* Get a handle to the Report Object itself. */
	v_report_id:= FIND_REPORT_OBJECT('REPORT7');
	message ('report found');

	SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_COMM_MODE, SYNCHRONOUS);

	SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,CACHE);

	SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,'HTML');

	SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_SERVER, 'repserver90');

	vc_report_job_id:=RUN_REPORT_OBJECT(v_report_id);
	message (vc_report_job_id);

	vc_rep_status := REPORT_OBJECT_STATUS(vc_report_job_id);
	message (vc_rep_status);

	IF vc_rep_status='FINISHED' 
		THEN
		web.show_document ('http://localhost:8888/reports/rwservlet/getjobid='
||vc_report_job_id ||'?server='|| 'repserver90','_blank');
	ELSE
		message ('Report failed with error message '||vc_rep_status);
	END IF;
END;