select * from emp

   Declare
      v_id paramlist ; 
   Begin
      commit_form ;
      v_id := Get_Parameter_List('mylist');
      If NOt Id_Null(v_id) Then
         Destroy_Parameter_List('mylist');
      End If ;
      v_id := Create_Parameter_List('mylist');
      Add_Parameter('mylist' , 'DATE1' , TEXT_PARAMETER , to_char(:dateclear.Date1,'ddmmyyyy'));
      Add_Parameter('mylist' , 'DATE2' , TEXT_PARAMETER , to_char(:dateclear.Date2,'ddmmyyyy'));
      Run_Product(REPORTS,'c:\temp\temp.rdf',ASYNCHRONOUS,RUNTIME,FILESYSTEM,'mylist');
         END ;

declare
	al_button number;	
	pl_id ParamList;

begin
	pl_id := Get_parameter_List('repPara'); --create a parameter list
	IF NOT Id_Null(pl_id) THEN 
		Destroy_parameter_List( pl_id ); 
	END IF; 
	
	pl_id := Create_parameter_List('repPara'); 
	Add_parameter(pl_id, 'PARAMFORM',TEXT_parameter, 'NO');
	Add_parameter(pl_id, 'datefrom',TEXT_parameter, :date1); --passing inv_no as parameter
	Add_parameter(pl_id, 'dateto',TEXT_parameter, :date2); --passing inv_date as parameter
	
	Run_Product(REPORTS, 'c:\temp\temp', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, NULL);
end;

select * from emp where hiredate between :Datefrom and
:Dateto