Run Report from Oracle Forms9i

Question

Hi how are u all.......i am shahzad and i have little problem....i am working on developer 6i with oracle 9i database..........now i upgrade into developer 9i.....now the problem is that when i call the report from form then error is generated that is like'you cannot use reun run_product here use run_report_object'
Any one plz tell me how to run report from forms 9i also how to pass parameter too...means check the parameter from forms and give me the reports
guys its urgent
Thanks in advance :)
Thanks you

Answer 1

fot this u have to use standard code as follows
parameter list is as it was in 6i
v_report_id := FIND_REPORT_OBJECT('report name');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_COMM_MODE, SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,file);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,'dflt');
Set_Report_Object_Property(v_report_id,REPORT_OTHER,'ENVID="NFA"');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESNAME,ls_file_path||'\'||to_char(sysdate,'dd')||
     --     to_char(sysdate,'mm')||to_char(sysdate,'yyyy')||'.doc');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_EXECUTION_MODE,RUNTIME);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_OTHER, 'paramform=no');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_SERVER,reportserver);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESNAME,OUTFILE);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_SERVER, reportserver);
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_OTHER, 'paramform=no');
vc_report_job_id:=RUN_REPORT_OBJECT(v_report_id,pl_id);
v_jobID := substr(vc_report_job_id,length(reportserver)+2,length(vc_report_job_id));
if      vc_report_job_id is not null then
vc_rep_status := REPORT_OBJECT_STATUS(vc_report_job_id);
while vc_rep_status in ('RUNNING', 'OPENING_REPORT','ENQUEUED') LOOP
vc_rep_status := report_object_status(     vc_report_job_id);
end loop;          
IF vc_rep_status<>'FINISHED' THEN
     message ('Report failed with error message '|| vc_rep_status);
          END IF;
     end if;