Simplest Way 2 Call a report from Forms 10g

Question

Hello,
i am using Oracle 10g & tools 10g too,
What i am trying to do is to call a report from a form...
So one friend told me 2 use a library exists in Folder Forms90 called " rp2rro"on the installed developer10g tools,i am using the following code :
============================================
Begin
PARAM_ID := GET_PARAMETER_LIST(PARAM_NAME);
IF NOT ID_NULL(PARAM_ID) THEN
DESTROY_PARAMETER_LIST('REPORT_PARAMETER');
END IF;
PARAM_ID := CREATE_PARAMETER_LIST(PARAM_NAME);
ADD_PARAMETER(PARAM_ID,'PARAMFORM',TEXT_PARAMETER,'NO');
ADD_PARAMETER(PARAM_ID,'COPIES',TEXT_PARAMETER,:COPIES);
ADD_PARAMETER(PARAM_ID,'P_DISPLAY',TEXT_PARAMETER,:DESTYPE);
ADD_PARAMETER(PARAM_ID,'DESFORMAT',TEXT_PARAMETER,'pdf');
ADD_PARAMETER(PARAM_ID,'P_DATA_TYPE',TEXT_PARAMETER,:PERIOD_MONTH);
ADD_PARAMETER(PARAM_ID,'P_MATERIAL_CODE',TEXT_PARAMETER,:MATERIAL_DESC);
     ADD_PARAMETER(PARAM_ID,'P_DATE_FROM',TEXT_PARAMETER,:DATE_FROM);
     ADD_PARAMETER(PARAM_ID,'P_DATE_TO',TEXT_PARAMETER,:DATE_TO);
     ADD_PARAMETER(PARAM_ID,'MONTH_ID',TEXT_PARAMETER,:MONTH_ID);
     ADD_PARAMETER(PARAM_ID,'FIN_YEAR_CODE',TEXT_PARAMETER,:FIN_YEAR_CODE);
rp2rro.rp2rro_run_product(REPORTS,'Report_name',SYNCHRONOUS, RUNTIME, FILESYSTEM, PARAM_ID, NULL);
END;
The problem is that i am receiving many errors as:
frm-41219:Can't find report invalid id
frm-47023:No such parameter named rp2rroDesformat exist in form my_form_name
frm-40105:Unable 2 resolve reference to item parameter.rp2rrodesformat
can any kind guy help me pls it's urgent i have no time 2 even read a document 4 it pls help me..!!??
Regards,
Abdetu..

Answer 1

Hi Abdetu,
Here is a procedure and simple call of the procedure witch Iam using successfully now.
PROCEDURE INVOKE_REPORT
     url_and_server in VARCHAR2,
     file_name in VARCHAR2,
     des_type in NUMBER,
     des_name in VARCHAR2,
     des_format in VARCHAR2,
     param_list in PARAMLIST
IS
     l_report_id REPORT_OBJECT := FIND_REPORT_OBJECT('QMSREP');
     l_report_job_id VARCHAR2(100);
     l_userid VARCHAR2(200) := GET_APPLICATION_PROPERTY(USERNAME) || '/' ||
     GET_APPLICATION_PROPERTY(PASSWORD) || '@' ||
     GET_APPLICATION_PROPERTY(CONNECT_STRING);
     l_report_url VARCHAR2(200) := substr(url_and_server, 0, instr(url_and_server, ',') - 1);
     l_report_server VARCHAR2(100) := substr(url_and_server, instr(url_and_server, ',') + 1);
     l_vcStatus VARCHAR2(100);
     l_vcJob VARCHAR2(100);
BEGIN
     SET_REPORT_OBJECT_PROPERTY(l_report_id, REPORT_COMM_MODE, ASYNCHRONOUS);
     SET_REPORT_OBJECT_PROPERTY(l_report_id, REPORT_EXECUTION_MODE, RUNTIME);
     SET_REPORT_OBJECT_PROPERTY(l_report_id, REPORT_SERVER, l_report_server);
     SET_REPORT_OBJECT_PROPERTY(l_report_id, REPORT_FILENAME, lower(file_name));
SET_REPORT_OBJECT_PROPERTY(l_report_id, REPORT_DESTYPE, des_type);
     SET_REPORT_OBJECT_PROPERTY(l_report_id, REPORT_DESNAME, des_name);
     SET_REPORT_OBJECT_PROPERTY(l_report_id, REPORT_DESFORMAT, des_format);
     SET_REPORT_OBJECT_PROPERTY(l_report_id, REPORT_OTHER, 'paramform=no userid='||l_userid);
     -- invoke the report (currently we don't use the returned ID)
     l_report_job_id := RUN_REPORT_OBJECT(l_report_id, param_list);
     l_vcstatus := Report_Object_Status(l_report_job_id);
     l_vcJob := substr(l_report_job_id, instr(l_report_job_id ,'_', 1 , 3 ) + 1);
     WHILE l_vcstatus in ('RUNNING','OPENING_REPORT','ENQUEUED')
     LOOP
     l_vcstatus := Report_Object_Status(l_report_job_id);     
     END LOOP ;
     if l_vcStatus = 'FINISHED' then
     Web.Show_Document('http://'||l_report_url||'/reports/rwservlet/getjobid'||l_vcJob||'?server='||l_report_server,'_blank');
     else
          message('Failed - Status was :'||l_vcStatus);
     end if;
END;
INVOKE_REPORT ('172.198.1.1:7777,rep_SRV'
                                        ,'MYREP.RDF'
                                        ,cache
                                        ,'htmlcss'
                                        ,l_par_list_id
hope this helps,
Alireza