DECLARE 
	repid REPORT_OBJECT;
	v_rep VARCHAR2(100);
	rep_status VARCHAR2(20);
BEGIN
	repid := FIND_REPORT_OBJECT('REPORT6');
	v_rep := RUN_REPORT_OBJECT(repid);
	rep_status := REPORT_OBJECT_STATUS(v_rep); 
	WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED') 
	LOOP 
		rep_status := report_object_status(v_rep); 
	END LOOP; 
	IF rep_status = 'FINISHED' THEN 
		/*Display report in the browser*/ 
		WEB.SHOW_DOCUMENT('http://home-afrufgiel1:8888/reports/rwservlet/
getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=rep90','_blank'); 
	ELSE 
		message('Error when running report'); 
	END IF;
	PAUSE;
END;