DECLARE
				 repid 		 				REPORT_OBJECT;
				 v_rep 		 				VARCHAR2(100);
				 rep_status 	 		VARCHAR2(20);
				 plid 		 				ParamList; 
				 vParamValue 	 		number;
				 REP_PROPERTY 	 	VARCHAR2(100);
				 v_show_document 	VARCHAR2 (2000)	:= 'http://test1:8888/reports/rwservlet?';
				 v_connect 	 			VARCHAR2 (200) 	:= 'userid=abc/abc123@laptop';
				 v_report_server 	VARCHAR2 (30) 	:= 'rep_test1';
				 v_report_name 	 	VARCHAR2(100) 	:= 'DAILYPRSNT';
				 v_format 	 			VARCHAR2(12) 		:= 'PDF'; 
				BEGIN
				 plid := Get_parameter_List('tmp'); 
				  IF NOT Id_Null(plid) THEN 
				   Destroy_parameter_List( plid ); 
				  END IF; 
				   
				   plid :=Create_parameter_List('tmp'); 
				   repid := FIND_REPORT_OBJECT(v_report_name);
				   SET_REPORT_OBJECT_PROPERTY(repid, REPORT_FILENAME, v_report_name);
				   SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE,SYNCHRONOUS);
				   SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,cache);
				   SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'PDF');
				   SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,v_report_server);
				   v_rep := RUN_REPORT_OBJECT(repid,v_report_server);
				   rep_status := REPORT_OBJECT_STATUS(v_rep); 
				   message('1 '||rep_status);message('1 '||rep_status);
				   WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP 
				    rep_status := report_object_status(v_rep); 
				   END LOOP;
				   v_show_document := v_show_document|| v_connect|| '&server='|| v_report_server|| '&report='||v_report_name|| '&destype=CACHE'|| '&desformat='||v_format|| '&paramform=yes' ;
				  if rep_status = 'FINISHED'then
				   pause;
				   message('Finished');
				   web.show_document(v_show_document,'_blank');
				  else
				   message ( 'error while running reports-object ' || error_text );message ( ' ' );
				   clear_message;
				  end if;
				END;