RUN_PRODUCT in forms10g

Question

we are migrating our forms from 6i to 10g and are locked with an issue where one of the custom forms is calling a report from the form. Its using the RUN_PRODUCT.
CODE in 6i
PROCEDURE RUN_REPORT IS
pl_id Paramlist;
begin
pl_id:=GET_PARAMETER_LIST('pl_report');
     IF NOT id_null (pl_id) THEN
          DESTROY_PARAMETER_LIST(PL_ID);
     END IF;
PL_ID :=CREATE_PARAMETER_LIST('pl_report');
add_parameter(pl_id, 'paramform',text_parameter, 'yes');
ADD_PARAMETER(pl_id, 'C_cont_NUMBER_I', text_parameter, :cont.cont_number_i);
ADD_PARAMETER(pl_id, 'J_cont_NUMBER_I', text_parameter, :cont.cont_number_i);
ADD_PARAMETER(pl_id, 'M_cont_NUMBER_I', text_parameter, :cont.cont_number_i);
Run_Product(REPORTS,'X:\ABC\PWAVCONT.rep',SYNCHRONOUS,runtime,FILESYSTEM, PL_ID);
END;
CODE in 10g (after conversion by the tool)
Code modified by the Forms Migration Assistant
30-Apr-2010 11:28 AM
PROCEDURE RUN_REPORT IS
pl_id Paramlist;
a report_object;
v_rep varchar2(100);
begin
pl_id:=GET_PARAMETER_LIST('pl_report');
IF NOT id_null (pl_id) THEN
DESTROY_PARAMETER_LIST(PL_ID);
END IF;
PL_ID :=CREATE_PARAMETER_LIST('pl_report');
add_parameter(pl_id, 'paramform',text_parameter, 'yes');
ADD_PARAMETER(pl_id, 'C_cont_NUMBER_I', text_parameter, :cont.cont_number_i);
ADD_PARAMETER(pl_id, 'J_cont_NUMBER_I', text_parameter, :cont.cont_number_i);
ADD_PARAMETER(pl_id, 'M_cont_NUMBER_I', text_parameter, :cont.cont_number_i);
RP2RRO.RP2RRO_RUN_PRODUCT(REPORTS,'X:\ABC\PWAVCONT.rep',SYNCHRONOUS,runtime,FILESYSTEM, PL_ID,null);
END;
Though after converting the form with migration assistant, the code for calling the report has been changed by the tool automatically. still the form compilation fails
Failed with below error
Compiling procedure RUN_REPORT...
Compilation error on procedure RUN_REPORT:
PL/SQL ERROR 201 at line 20, column 1
identifier 'RP2RRO.RP2RRO_RUN_PRODUCT' must be declared
PL/SQL ERROR 0 at line 20, column 1
Statement ignored
Please suggest any solution here.

Answer 1

Neil,
After you submit the report, you have to check the status using Report_Object_Status built-in. If the return value is "FINISHED", you can then display the finished report to the user using the Web.Show_Document built-in. Here's how we do it:
PROCEDURE RUN_REPORT (P_paramlist  paramlist) IS
   v_report         REPORT_OBJECT;
   v_rep_rtn   VARCHAR2(4000);
   rep_status   VARCHAR2(4000);
   v_hostname   VARCHAR2 (500);
   v_repsvrname  VARCHAR2 (100) := 'YOUR SERVER NAME HERE';
   v_paramtype  NUMBER;
BEGIN
   -- Assign any parameters first.
   Get_Parameter_Attr(p_paramlist, 'P_REPSERVER', v_paramtype, v_repsvrname);
   v_report := Find_Report_Object('REPORT_NAME_HERE');
   Set_Report_Object_Property(v_report, report_execution_mode, batch);
   Set_Report_Object_Property(v_report, report_comm_mode, synchronous);
   Set_Report_Object_Property(v_report, report_destype, CACHE);
      /* Make sure to set the format correctly - we always used PDF so we hardcoded it. */
   Set_Report_Object_Property(v_report, report_desformat, 'pdf'); 
   Set_Report_Object_Property(v_report, report_server, v_repsvrname);
   -- Run the Report
   v_rep_rtn := Run_Report_Object(v_report, p_paramlist);
   -- Get the Report Status
   rep_status := Report_Object_Status(v_rep_trn);
   WHILE ( rep_status IN ('RUNNING','OPENING_REPORT','ENQUEUED') ) LOOP
      rep_status := Report_Object_Status(v_rep_trn);
   END LOOP;
   IF ( rep_status <> 'FINISHED' ) THEN
      Clear_Message;
      Message('Error running report.  Status = '||rep_status);
      Message(' ');
   ELSE
      Web.Show_Document('/reports/rwservlet/getjobid'||substr(v_rep_trn, INSTR(v_rep_rtn,'_',-1) +1)
            ||'?server='||v_repsvrname);
   END IF;
END;We created this procedure and stored it in a Library and attached the library to every form. You may have to tweek it a bit to make it work for you.
Hope this helps,
Craig
If a response is helpful or correct, please mark it accordingly.