Integrating Oracle Reports with Oracle Forms 10g Menus

Here is my accepted answer to the similar question (https://www.experts-exchange.com/questions/21384830/How-to-run-a-report-from-Forms-9i.html):

declare
 report_id Report_Object;
 ReportServerJob           VARCHAR2(100);
 rep_status                    VARCHAR2(200);
 L_REPORT_SERVER       VARCHAR2(15)    :=:agenti.nume;
 L_REPORT_SERVER_PATH  VARCHAR2(30); --  if you want to run report in a development environment e.g. 'http://yourpc:8888/reports';
 L_REPORT_DESFORMAT    VARCHAR2(15):='HTML';
 rep_status                        VARCHAR2(200);
 report_job_id                    VARCHAR2(200);
BEGIN

 report_id:= find_report_object('REPORT6');
 SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'p_deptno='||:agenti.id_agent||' paramform=no');

 SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,'C:\Licenta\test.rdf');
 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,CACHE);
 SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,L_REPORT_DESFORMAT);
 SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,L_REPORT_SERVER);

    report_job_id := RUN_REPORT_OBJECT(report_id);

    rep_status:=REPORT_OBJECT_STATUS(report_job_id);

    WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
    LOOP
       rep_status:=run_report_object(report_id);
    END LOOP;
    IF rep_status='FINISHED' THEN
-- this shows report
      WEB.SHOW_DOCUMENT(L_REPORT_SERVER_PATH||'/rwservlet/getjobid'||substr(report_job_id,instr(report_job_id,'_',-1)+1)||'?'||'server='||L_REPORT_SERVER,'_blank');
    ELSE
       message('Error');
    END IF;
END;

Oh sorry, I have missed parameters, here it is:

Declare
 pl_id           ParamList;
 pl_name         VARCHAR2(10):='tempdata';

BEGIN
pl_id := Get_Parameter_List(pl_name);
 IF NOT Id_Null(pl_id) THEN
    Destroy_Parameter_List( pl_id );
 END IF;
 pl_id := Create_Parameter_List(pl_name);

... adding parameters
... setting report object properties

-- here it is:
    report_job_id := RUN_REPORT_OBJECT(report_id,pl_id);

    report_job_id := RUN_REPORT_OBJECT(report_id);

    rep_status:=REPORT_OBJECT_STATUS(report_job_id);

    WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
    LOOP
       rep_status:=run_report_object(report_id);
    END LOOP;
    IF rep_status='FINISHED' THEN
-- this shows report
      WEB.SHOW_DOCUMENT(L_REPORT_SERVER_PATH||'/rwservlet/getjobid'||substr(report_job_id,instr(report_job_id,'_',-1)+1)||'?'||'server='||L_REPORT_SERVER,'_blank');
    ELSE
       message('Error');
    END IF;
END;

Thank You for the response.

I am calling my report from a Menu so how do I get the find_report_object()

Really appreciate ur response

I am getting the error

FRM-41213:Unable to connect to the Report server Repsrv@sec12-pc.


How can I proceed from here...I have my Repsrv server started and also the OC4J Instance.

Thank You.

My Reports Server is Repsrv@sec12-pc

You can create an user defined trigger in a Form and call this trigger from a Menu (by using EXECUTE_TRIGGER built-in).
In my code:
L_REPORT_SERVER - it is the name of the report server - Repsrv@sec12-pc
L_REPORT_SERVER_PATH - e.g. http://sba.jss.sk:7779
 or if you want to run the report from Form Developer it is something similar to http://the_name of yourpc:8888/reports'

I am calling my report from a Menu so how do I get the find_report_object() - you can create a dummy report in the Form (node Reports)

    report_id:= FIND_REPORT_OBJECT(dummy_report);
    SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,L_REPORT); -- L_REPORT is the name of the real report

How can I solve he following error
FRM-41213:Unable to connect to the Report server Repsrv@sec12-pc.
Thnx in advance

... Ensure that Reports Server being referenced in the RUN_REPORT_OBJECT code is started. Note, the in-process Report Server may not be started if no reports requests have been run prior to calling a report from the forms application. It is necessary to first invoke the rwservlet for the in-process server to be started ...

The Report Server is started.

The code I have used is as below

Declare
pl_id paramlist;
pl_name VARCHAR2(10):='tempdata';

report_id REPORT_OBJECT;
ReportServerJob VARCHAR2(100);
rep_status VARCHAR2(200);
L_REPORT_SERVER VARCHAR2(30):='Repsrv@sec12-pc';
L_REPORT_SERVER_PATH VARCHAR2(30);
L_REPORT_DESFORMAT VARCHAR2(15):='pdf';
report_job_id VARCHAR2(200);

Begin

if :global.plr is null then
message('Cannot run report');
raise form_trigger_failure;
end if;

pl_id := Get_Parameter_List('p_list');
if not Id_Null(pl_id) then
Destroy_Parameter_List(pl_id);
end if;

pl_id := create_parameter_list('p_list');
add_parameter(pl_id,'hlr_num',text_parameter,:global.plr);


report_id := find_report_object('TEST');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'TEST.PLR='||:global.hlr||'paramform=no');

SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,'C:\test.rdf');
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,L_REPORT_DESFORMAT);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,L_REPORT_SERVER);

report_job_id := RUN_REPORT_OBJECT(report_id,pl_id);
-- report_job_id := RUN_REPORT_OBJECT(report_id);
rep_status:= REPORT_OBJECT_STATUS(report_job_id);

WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := run_report_object(report_id);
END LOOP;
IF rep_status='FINISHED' THEN
WEB.SHOW_DOCUMENT(L_REPORT_SERVER_PATH||'/reports/rwservlet/getjobid'||substr(report_job_id,instr(report_job_id,'_'-1)+1)||'?'||'server='||L_REPORT_SERVER,'_blank');
ELSE
MESSAGE('Error');
END IF;
End;

but when i run my form and try running the report i get the error

frm-41213: Unable to connect to report server Repsrv@sec12-pc

this is VERY URGENT pls help.

Thanx in advance.

Oops I didn't set L_REPORT_SERVER_PATH...as I set it..there is no error but the report isn't opening up....any ideas

Thanx in advance

I think that the problem can be caused by L_REPORT_DESFORMAT VARCHAR2(15):='pdf';
Please, try it with
L_REPORT_DESFORMAT VARCHAR2(15):='HTML';

It is still giving me the FRM-41213 error......is there any configuration setting I am missing?

Can the report be run from a simple form ? or from Developer (not iAS) ?
On this site (free registration) - http://www.oracle.com/technology/products/forms/techlisting10g.html - you can read Integration part ...

I can run the report directly from the browser
http://<server>:<port>/reports/rwservlet?report=<report>&.... <other parameters>

I am rather confused by your answer:
"Oops I didn't set L_REPORT_SERVER_PATH...as I set it..there is no error but the report isn't opening up....any ideas"
So if it has been 'pdf' there is no error but it is blank.

You can try this:
1) in regedit: rwserver -install repserver90 autostart=yes (repserver90 or another is file repserver90.dat located in <<oracle_home>>\reports\server\)
2) start OC4J
3) run report from Forms

Hi,

Thank you...but I keep on getting the error FRM-41213:Unable to connect to the Report server Repsrv@sec12-pc...so I used
Web.show_document('/reports/rwservlet?server=Repsrv@sec12-pc&report=C:/myApp/test.rdf&desformat=pdf&destype=CACHE&userid=user/pwd@database&paramform=no&tlr_num=3171','_blank');

This worked but the draw back is the username and pwd is visible on the address.

Maybe there is problem with authentication there.
You can try this solution from MetaLink:
The sqlnet.ora files contain the following declaration: SQLNET.AUTHENTICATION_SERVICES=(NTS)  in both Database ORACLE_HOME/network/admin And 9iAS ORACLE_HOME/network/admin
Workaround:
Comment out the SQLNET.AUTHENTICATION_SERVICES declaration in both sqlnet.ora files.  Stop the database, database listnener and http listener and restart them.

Thank you,
I will give it  a try