DECLARE 
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
BEGIN
repid := FIND_REPORT_OBJECT('REPORT9');
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://sara:8889/reports/rwservlet/getjobid'|| 
substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=repserver','_blank'); 
ELSE 
message('Error when running report'); 
END IF;
PAUSE;
END; 

select * from emp
where deptno = :p_deptno

DECLARE
  vrepid                report_object;
  vrep                  VARCHAR2 (100);
  v_format		varchar2(12);		--	PDF or SPREADSHEET
  v_show_document       VARCHAR2 (2000) := '/reports/rwservlet?';
  v_connect             VARCHAR2 (200)   := 'userid=abc/abc@test.world';
  v_report_server       VARCHAR2 (30)   := 'rep60server';
	v_report_name						varchar2(100);
BEGIN
	v_report_name := 'EMP_REP';
	v_format := 'PDF';
   IF GET_APPLICATION_PROPERTY (user_interface) = 'WEB'
   THEN
      v_show_document := v_show_document
         || v_connect
         -- Report server
         || '&server='
         || v_report_server
         -- Report name
         || '&report='||v_report_name
         -- Reports parameters
         || '&destype=CACHE'
         || '&desformat='||v_format
	       || '&paramform=no'
         || '&p_deptno='||:deptno
         || '&p_loc='||:loc
         ;
      web.show_document (v_show_document);
   ELSE
      vrepid := FIND_REPORT_OBJECT ('EMP_REP.rdf');
      vrep := RUN_REPORT_OBJECT (vrepid);
      web.show_document
                (   'it-saadat:8889/reports/rwservlet/getjobid'
                 || SUBSTR (vrep, INSTR (vrep, '_', -1) + 1)
                 || '?'
                 || 'server=rep60server',
                 '_blank'
                );
   END IF;
END;