declare
  pl_id ParamList; 
BEGIN 
  pl_id := Get_Parameter_List('tmpdata'); 
  IF NOT Id_Null(pl_id) THEN 
    Destroy_Parameter_List( pl_id ); 
  END IF; 
  
  pl_id := Create_Parameter_List('tmpdata'); 

 add_parameter(pl_id,'CODE1',TEXT_PARAMETER,:ACC_CODE1);
 add_parameter(pl_id,'CODE2',TEXT_PARAMETER,:ACC_CODE2);
 add_parameter(pl_id,'DATE1',TEXT_PARAMETER,TO_CHAR(:DATE1,'DDMMRRRR'));
 add_parameter(pl_id,'DATE2',TEXT_PARAMETER,TO_CHAR(:DATE2,'DDMMRRRR'));
 add_parameter(pl_id,'FOR_UNIT',TEXT_PARAMETER,:GLOBAL.UNIT_YEAR_CODE);
		 

Run_Product(REPORTS, 'C:\FINANCE\REPORTS\ACCOUNTS_STATEMENT.REP', SYNCHRONOUS, RUNTIME,FILESYSTEM, pl_id, NULL); 
end;