declare
	v_pl_id PARAMLIST;
	v_pl_name varchar2(14) := 'USER_NAME_list';
		v_report_id    report_object; 
	v_rep_server varchar2(200) :='reportserver';
	v_report_job_id1 varchar2(50);
	v_server_length number;
	v_rep_status varchar2(25);
	computer_name varchar2(50):= 'S200207680.sjmc.hct.ac.ae';
begin
	v_pl_id := get_parameter_list(v_pl_name);
	if not id_null(v_pl_id) then
		destroy_parameter_list(v_pl_name);
	end if;
	v_pl_id:= create_parameter_list(v_pl_name);
	add_parameter(v_pl_id, 'PARAMFORM', TEXT_PARAMETER, 'NO');
	add_parameter(v_pl_id, 'P_USER_NAME', TEXT_PARAMETER, to_char(:MOL_USERSES.USER_NAME));
	v_report_id:=Find_Report_Object('USER_TRANSACTIONS_RPT');
	v_report_job_id1 :=run_report_object (v_report_id, v_pl_id);
	v_server_length :=LENGTH(GET_REPORT_OBJECT_PROPERTY(v_report_id, report_server));
	v_rep_status := report_object_status(v_report_job_id1);
	WHILE v_rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
	LOOP
		MESSAGE('Running Report');
		v_rep_status:=report_object_status(v_report_job_id1);
	end loop;
	Web.show_document('http://'||computer_name||':8888/reports/rwservlet/getjobid'||
	substr(v_report_job_id1, v_server_length +  2)||'?server='||v_rep_server,'_blank');
end;