Run 10g Report on Oracle Forms

Declare



         repid REPORT_OBJECT;
         v_rep VARCHAR2(1000);
         rep_status VARCHAR2(20);
         PL_ID PARAMLIST;
         pr_nm varchar2(20):='PNM';

         --rwserver server=SHOWJOBS EXCECUTE IT ON RUN
       
         
          v_rptserver varchar2(10):=:global.RWS1; ----- Change 1
          v_host varchar2(20):=:global.IP1; ---- Change 2


BEGIN



         PL_ID := GET_PARAMETER_LIST(pr_nm);
     
         IF ID_NULL(PL_ID) = FALSE THEN
          DESTROY_PARAMETER_LIST(PL_ID);
          PL_ID := CREATE_PARAMETER_LIST(pr_nm);   
       IF ID_NULL(PL_ID) THEN 
        MESSAGE('ERROR CREATING PARAMETER LIST '||pr_nm);
          RAISE FORM_TRIGGER_FAILURE;   
       END IF;
       ELSE PL_ID := CREATE_PARAMETER_LIST(pr_nm);
       
       END IF;
   
   
         --add parameter with separate statement for each parameter
     


        repid := find_report_object('COST');
     
     

     
         SET_REPORT_OBJECT_PROPERTY(repid,REPORT_EXECUTION_MODE,BATCH);
         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');                              --pdf/html
        -- SET_report_object_property(repid,REPORT_DESFORMAT,:BLOCK3.REP_FORMAT);                      ------all format
         SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,v_rptserver);
       
       
         v_rep := RUN_REPORT_OBJECT(repid,PL_ID);
         rep_status := REPORT_OBJECT_STATUS(v_rep);
     
     
    IF rep_status = 'FINISHED' THEN

       WEB.SHOW_DOCUMENT('http://'||v_host||':8889/reports/rwservlet/getjobid' ||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server='||v_rptserver,'_blank');

    ELSE
   
   
   
       message('Error when running report');
     
     
    END IF;
END;