calling reports from oracle forms

DECLARE
report_id REPORT_OBJECT;
param_list ParamList;
param_name VARCHAR2(50):= 'rpt_data';
JOB_NUMBER NUMBER;
BEGIN
report_id := find_report_object('EMP');

SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_EXECUTION_MODE, RUNTIME);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE, ASYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE, cache);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,'PDF');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,'192.168.0.20');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME, 'C:\New\'||'EMP');


--FIND_REPORT_OBJECT('EMP');
param_list := Get_Parameter_List(param_name);
IF NOT Id_Null(param_list) THEN
Destroy_Parameter_List(param_list);
END IF;

param_list := Create_Parameter_List(param_name);
--Add_Parameter(param_list,'BU',TEXT_PARAMETER,:GLOBAL.bu);
--Add_Parameter(param_list,'P_USER',TEXT_PARAMETER,:GLOBAL.bu$user);
--Add_Parameter(param_list,'P_LANG',TEXT_PARAMETER,:GLOBAL.lang);

:EMP.ctrl:=RUN_REPORT_OBJECT(report_id,param_list);
--MESSAGE(:EMP.ctrl);
--MESSAGE(' ');
JOB_NUMBER := length('192.168.0.20') + 2;
-- MESSAGE(JOB_NUMBER);
--MESSAGE(' ');
Web.Show_Document('/reports/rwservlet/getjobid=' ||substr (:EMP.ctrl,JOB_NUMBER)||'?server='||'192.168.0.20','_blank');
END;



/*
go to command prompt and set this path
\DevSuiteHome_1\BIN>rwserver server=192.168.0.20(local id address)
go to folder \DevSuiteHome_1\reports\config\192.168.0.20.config and change maxCacheFileNumber to 5000
*/