LIST_ID  := GET_PARAMETER_LIST('TMPDATA');
	IF NOT ID_NULL(LIST_ID) THEN
		DESTROY_PARAMETER_LIST(LIST_ID);
	END IF;
LIST_ID  := CREATE_PARAMETER_LIST('input_param');
		ADD_PARAMETER(LIST_ID, 'FBRANCH', TEXT_PARAMETER, TO_CHAR(:BLK1.HEC_BRANCH));
		ADD_PARAMETER(LIST_ID, 'TBRANCH', TEXT_PARAMETER, TO_CHAR(:BLK1.HEC_BRANCH));
		ADD_PARAMETER(LIST_ID, 'FOFFICE', TEXT_PARAMETER, TO_CHAR(:BLK1.HEC_OFFICE));
		ADD_PARAMETER(LIST_ID, 'TOFFICE', TEXT_PARAMETER, TO_CHAR(:BLK1.HEC_OFFICE));
		ADD_PARAMETER(LIST_ID, 'FCLM_NO', TEXT_PARAMETER, TO_CHAR(:BLK1.HEC_CLM_NO));
		ADD_PARAMETER(LIST_ID, 'TCLM_NO', TEXT_PARAMETER, TO_CHAR(:BLK1.HEC_CLM_NO));

ADD_PARAMETER(LIST_ID, 'paramform', TEXT_PARAMETER, ('yes'));
		
repid := find_report_object('Acrep30A');
set_report_object_property(repid,report_execution_mode,runtime);
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,'repserver10');
v_rep := RUN_REPORT_OBJECT(repid,LIST_ID);
rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(v_rep);
END LOOP;
IF rep_status = 'FINISHED' THEN
WEB.SHOW_DOCUMENT
('http://app_server:8889/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=repserver10','_blank');
ELSE
message('Error when running report');
END IF;
synchronize;
	destroy_parameter_list(list_id); 
END;