-- code always copy and paste on any button to open report but u must change it alittle.




declare 
--	p1_id paramlist;
--	p1_name varchar2(10) := 'tempdata';
repid report_object;
v_rep varchar2(100);
rep_status varchar2(100);

begin 
/*	p1_id := get_parameter_list(p1_name);
	if id_null (p1_id) then
		p1_id := create_parameter_list (p1_name);
	else 
		delete_parameter (p1_id , 'deptno');
	end if;
	add_parameter (p1_id, 'deptno', text_parameter,to_char (:departments.department_id));
	*/
	repid := find_report_object ('report_1');
	set_report_object_property (repid,report_destype,cache);
	
		set_report_object_property (repid,report_server, 'mohannad');
v_rep :=run_report_object (repid);
rep_status := report_object_status (v_rep);	
while rep_status in ('RUNNING' ,OPENNING_REPORT' ,'ENQUEUD')
loop
rep_status :=report_object_status (v_rep);
end loop;
if rep_status= 'FINISHED' then 
web.show_document ('http://127.0.0.1:8888/reports/rwservlet/getjobid'||
substr (v_rep,instr (v_rep ,'_',-1)+1) ||'?'||'server= mohannad' , 'blank');
else 
message ('error have been made in run report');
end if;


end;