PROCEDURE CALL_REPORT(REP_NAME IN VARCHAR2,para_list in varchar2) IS
 	Report_Id report_object;
	hTimer timer;
	vcFile varchar2(255);
	vcResult varchar2(30);
	pl_id ParamList;
	GEN_NUMBER NUMBER(2);
 	rootDir Varchar2(255);
 	ServerName Varchar2(255);
 	repServerName Varchar2(255);
begin	
/* Feteches the values of rootdir,servername from a table */
	 	Select rootDir
		into rootDir
		from tblConnectingString;
			Select ServerName
		into ServerName
		from tblConnectingString;
		select Report_Server
		into repServerName
		from tblConnectingString;

		 pl_id := get_parameter_list('pres1');

	SELECT PRESGEN.NEXTVAL INTO GEN_NUMBER FROM DUAL;	 	
	vcFile := REP_NAME||GEN_NUMBER||'.pdf';
	:GLOBAL.FILE_NAME := vcFile;
	report_id:= FIND_REPORT_OBJECT(REP_NAME);
	SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_EXECUTION_MODE,BATCH);
	SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,FILE);
	SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,'pdf');
	SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESNAME,rootDir||vcFile);
	SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,repServerName);
	--Reports_Server_TNS
	:GLOBAL.ReportHandle := RUN_REPORT_OBJECT(report_id,'pres1');
	:GLOBAL.PrintOutPut := vcFile;
	hTimer := CREATE_TIMER(:GLOBAL.FILE_NAME||'PRINTER_QUEUE','75000',REPEAT);
	
	web.show_document('http://'||ServerName||'/'||:GLOBAL.FILE_NAME,'_blank');	
END;

declare
report_id REPORT_OBJECT;
V_REP VARCHAR2(100);
pl_id ParamList; 

begin
pl_id := Create_Parameter_List('tmpdata'); 

Add_Parameter(pl_id, 'CSS', TEXT_PARAMETER, :Q_CUSTOMER_ID);
Add_Parameter(pl_id, 'SITEID', TEXT_PARAMETER, :Q_SITE_ID);
Add_Parameter(pl_id, 'MAXIMIZE', TEXT_PARAMETER, 'YES');

report_id := FIND_REPORT_OBJECT('TASKS_NOTINVOICED_RATE');  

--  here TASKS_NOTINVOICED_RATE  is the report object defined in 
-- report node of object navigator.
-- in report object i tried both RDF & REP. which one is correct? 

SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_EXECUTION_MODE,RUNTIME);
-- here i tried both batch & runtime

SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,SCREEN); 
-- here i tried both screen & file

SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'paramform=NO');

v_rep := run_report_object(report_id,pl_id);
end;

	SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,'pdf');
	SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,repServerName);

DECLARE
   vrepid                report_object;
   vrep                  VARCHAR2 (100);
   -- 09/08/2004 DJMartin Add WEB style report.
   v_show_document       VARCHAR2 (2000) := '/reports/rwservlet?';
   v_connect             VARCHAR2 (30)   := 'connectionName';
--   v_report_server       VARCHAR2 (30)   := reportsenv_pkg.f_report_server;
   v_report_server       VARCHAR2 (30)   := 'repserver90';
BEGIN
   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=gnrAgenda'
         -- Reports parameters
         || '&destype=CACHE'
         || '&desformat=PDF';
      web.show_document (v_show_document);
   ELSE
      vrepid := FIND_REPORT_OBJECT ('REPORT1');
      vrep := RUN_REPORT_OBJECT (vrepid);
      web.show_document
                (   'http://address:port/reports/rwservlet/getjobid'
                 || SUBSTR (vrep, INSTR (vrep, '_', -1) + 1)
                 || '?'
                 || 'server=repserver90',
                 '_blank'
                );
   END IF;
END;