Using Run_Report_Object() To Call Reports with a Parameter Form

Question

Hi
I have successfully migrated a version 5 application to 10g but, I'm having a particular issue with reports run from a menu.
The report has 3 user parameters and they previously worked with a client server parameter form.
How do I pass the parameters from the report to the RUN_REPORT_OBJECT in the pl/sql editor in the menu ?
In my other reports I have used a :block.item bind variables but in this case there is no datablock involved.
Any help with the correct syntax will help.
Message was edited by:
4dyomi
Message was edited by:
4dyomi

Answer 1

Dear Friend,
You can use following code to run a report from "Forms10g" using RUN_REPORT_OBJECT. Directly copy below code to your forms10g and make appropriate changes. In the code, "Manish" is the name of report server running on your application server. To start report server u can run this command on command prompt on your application server.
rwserver server=<server_name>
This command will start report server. In below code i have a text box called "ADDRESS_CODE" which i am passing as a parameter to report which conatains a parameter called "SUBCODE". This is a tested code and works fine in Forms10g DS.
declare
     cnt number(3);
     report_id report_object;
     REPORTSERVERJOB VARCHAR2(100);
     VJOBID VARCHAR2(100);
     REPORTSERVER VARCHAR2(50) := 'MANISH';
     V_URL2 VARCHAR2(500);
     V_URL VARCHAR2(100);
     PARA PARAMLIST ;
begin
     PARA := CREATE_PARAMETER_LIST('INPUT1');
     --'ADDRESS_BOOK' IS A REPORT OBJECT DEFINED
     REPORT_ID := FIND_REPORT_OBJECT('ADDRESS_BOOK');
     --FOLLOWING PARAMETERS ARE MANDATORY PARAMETERS TO SET REPORT OBJECT
     SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_EXECUTION_MODE, BATCH);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_DESTYPE, FILE);
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_DESFORMAT, 'HTMLCSS');
SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_SERVER, REPORTSERVER);
--TO SEND PARAMETERS TO REPORT ADD FOLLOWING CODE, (:ADDRESS_CODE IS A TEXT ITEM)
ADD_PARAMETER(PARA,'SUBCODE',TEXT_PARAMETER,:ADDRESS_CODE);
--RUN REPORT OBJECT TO FETCH JOBID
REPORTSERVERJOB := RUN_REPORT_OBJECT(REPORT_ID,PARA);
--VJOBID IS JOBID THAT IS SET AT RUNTIME BY REPORT SERVER
vjobID := substr(ReportServerJob,length(reportserver)+2,length(ReportServerJob));
v_url := '/reports/rwservlet/getjobid'||vjobID||'?server='||reportserver;
     Web.Show_Document(v_url,'_blank');
     DESTROY_PARAMETER_LIST(PARA);
end;
Regards,
Manish Trivedi
Software Developer
Ambuja Cement,
India.