PROCEDURE RUN_REPORT IS

  p_rpt_param_list  paramlist;

  report_id       REPORT_OBJECT;
  ReportServerJob VARCHAR2(100);
  v_jobID         VARCHAR2(100);
  rep_status      VARCHAR2(20);
  reportserver    VARCHAR2(30);
  v_url           VARCHAR2(200);
  v_url2          VARCHAR2(200);

  usr_sessionid   NUMBER;
 
  report_not_generated EXCEPTION;

  BEGIN
  	
  SELECT USERENV('sessionid') into usr_sessionid FROM DUAL;

  IF NOT Id_Null(p_rpt_param_list) then
      Destroy_Parameter_List(p_rpt_param_list);
  END IF;
  
  p_rpt_param_list := Create_Parameter_List ('tmp');

  IF (get_application_property(user_interface)='WEB') THEN

   reportserver := 'rep_JETCOSW05_FRHOME';
   report_id := find_report_object('LISEST');
   
   SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_COMM_MODE, SYNCHRONOUS);
   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_SERVER, reportserver);

   Add_Parameter(p_rpt_param_list,'paramform',TEXT_PARAMETER,'no');   
   Add_Parameter(p_rpt_param_list,'PRINTJOB',TEXT_PARAMETER,'NO');

    ReportServerJob := run_report_object(report_id, p_rpt_param_list);
   v_jobID := substr(ReportServerJob,length(reportserver)+2,length(ReportServerJob));

   IF ReportServerJob is NOT NULL THEN
       rep_status := report_object_status(ReportServerJob);

       WHILE rep_status in ('RUNNING', 'OPENING_REPORT','ENQUEUED') LOOP
         rep_status := report_object_status(ReportServerJob);
       END LOOP;
       IF rep_status != 'FINISHED' THEN
          raise report_not_generated;
       END IF;
       
  v_url := '/reports/rwservlet/getjobid'||v_jobID||'?server='||reportserver;
  v_url2 := 'javascript:window.open("'||v_url ||'", "", "fullscreen=no, 
             titlebar=no, location=no, toolbar=no, menubar=no, status=no, resizable=yes");
             self.close()';
             
      Web.Show_Document(v_url2,'_blank');
   ELSE
       raise report_not_generated;
   END IF;

  END IF;

  Destroy_Parameter_List(p_rpt_param_list);

  
END;

v_url := '/reports/rwservlet/getjobid'||v_jobID||'?server='||reportserver;

v_url2 := 'javascript:window.open("'||v_url ||'", "", "fullscreen=no,titlebar=no, location=no, toolbar=no,menubar=no, status=no, resizable=yes");
             self.close()';
             
      Web.Show_Document(v_url2,'_blank');

     Web.Show_Document('http://192.200.1.5:7779/reports/rwservlet/getjobid' || v_jobID ||'?server' || reportserver ,'_blank');