Declare
    Repid             Report_Object;
    V_Rep             Varchar2(100);
    Rep_Status     Varchar2(20);
    Rep_Name    Varchar2(100);
    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, 'P_1', Text_Parameter, To_Char(:Orasys_Emp_Profile.Employeeid));
--    Add_Parameter(Pl_Id, 'Office', Text_Parameter, To_Char(:Blk1.Gpo_Office));
--    Add_Parameter(Pl_Id, 'Cert_Type', Text_Parameter, To_Char(:Blk1.Gpo_Cert_Type));
--    Add_Parameter(Pl_Id, 'Pol_No', Text_Parameter, To_Char(:Blk1.Gpo_Pol_No));
    --Add_Parameter(Pl_Id, 'Ins_Type', Text_Parameter, To_Char(:Blk1.Gpo_Ins_Type));
    --Add_Parameter(Pl_Id, 'Serial', Text_Parameter, To_Char(:Blk1.Gpo_Serial));
--    Add_Parameter(Pl_Id, 'Paramform', Text_Parameter, 'Yes');


Repid := Find_Report_Object('TEST');
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,'rep_server');
V_Rep := Run_Report_Object(Repid,Pl_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://ADMIN:8889/reports/rwservlet/getjobid'||Substr(V_Rep,Instr(V_Rep,'_',-1)+1)||'?'||'server=rep_server&paramform=NO','_blank');
Else
Message('Error when running report');
End If;
 
        Destroy_Parameter_List(Pl_Id);
        
End;

D:\DevSuiteHome_1\jlib\zrclient.jar;D:\DevSuiteHome_1\reports\jlib\rwrun.jar