DECLARE
   PL_ID PARAMLIST;
   repid report_object;
   v_rep varchar2(100);
   Rep_Status varchar2(500);
begin
	
	select global_server,global_port,global_report_server 
	into :global.server,:global.port,:global.report_server from system_global;
	
	IF NOT ID_NULL(PL_ID) THEN
    DESTROY_PARAMETER_LIST(PL_ID);
 	END IF;
	repid := FIND_REPORT_OBJECT('EMPDATA');
  PL_ID := CREATE_PARAMETER_LIST('TMPDATA');
  Set_Report_Object_Property(repid, REPORT_EXECUTION_MODE, RUNTIME);
	Set_Report_Object_Property(repid, REPORT_SERVER, :global.report_server);
	Set_Report_Object_Property(repid, REPORT_DESFORMAT, 'SPREADSHEET');

  ADD_PARAMETER(PL_ID,'PARAMFORM',      TEXT_PARAMETER, 'NO');
  ADD_PARAMETER(PL_ID,'ORACLE_SHUTDOWN',TEXT_PARAMETER, 'YES');
 
	v_rep := RUN_REPORT_OBJECT(repid,PL_ID);
 	
 	WHILE Rep_Status IN ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
		Rep_Status := REPORT_OBJECT_STATUS(v_rep);
 	END LOOP;
 	
	IF rep_status='FINISHED' THEN
	WEB.SHOW_DOCUMENT(:global.server||:global.port
	||'/reports/rwservlet/getjobid' || substr(v_rep, length(:global.report_server) + 2, length(v_rep)) 
	|| '?server='|| :global.report_server);
	END IF;

	DESTROY_PARAMETER_LIST(PL_ID);
  
	EXCEPTION
		WHEN OTHERS THEN
		message(sqlerrm);
		message(' ');
END;