Report Status

Question

Hi,
i am trying to call a report from forms9i.
the problem is report_object_status returns null.
here is the code
declare
pl_id ParamList;
locationName varchar2(100);
loc_code number;
report_id REPORT_OBJECT;
report_server_job varchar2(100);
vjob_id varchar2(100);
report_status varchar2(100);
BEGIN
pl_id := Get_Parameter_List('tmpdata');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
** Create the 'tmpdata' parameter list afresh.
pl_id := Create_Parameter_List('tmpdata');
ADD Location Parameters
ADD_PARAMETER(PL_ID,'USER_ID', TEXT_PARAMETER,:CONTROL.VUSER);
Add_Parameter(pl_id,'USERLOCNAME', TEXT_PARAMETER, locationName);
ADD Report Parameters
ADD_PARAM(pl_id);
Run the report synchronously, passing the parameter list
Report_id := Find_report_object('R003');
SET_REPORT_OBJECT_PROPERTY(Report_Id,REPORT_DESFORMAT,'PDF');
set_report_object_property(Report_id,REPORT_COMM_MODE,SYNCHRONOUS);
set_report_object_property(Report_id,REPORT_SERVER,'test');
report_server_job := RUN_REPORT_OBJECT(Report_id,pl_id);
vjob_id := substr(     report_server_job,length('test')+2,length(report_server_job));
report_status := report_object_status(report_server_job);
WHILE Report_Status IN ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP
          Report_Status := REPORT_OBJECT_STATUS(report_server_job);
     END LOOP;
if report_status = 'FINISHED' then
     web.show_document('http://mujtaba1:8889/reports/rwservlet/getjobid'||vjob_id||'?server=test');
else
     set_alert('Report failed with Error Message'||report_status ,'Error!');
end if;
END;

Answer 1

When I was able to get n = 1, 2, 3...
Currently with this code, I am getting FRM-41213 cannot connect to report server (notice the 2 different error messages 2 & 4).
The only changes I made were uncommenting the trace for log
I checked the log file there are no exceptions/errors.
Here is the code and follwing output
DECLARE
     repID REPORT_OBJECT;
     v_rep VARCHAR2(100) := '';
     v_repStat VARCHAR2(100) := '';
BEGIN
     repID := FIND_REPORT_OBJECT('ra_rep');
     SET_REPORT_OBJECT_PROPERTY(repID,REPORT_COMM_MODE,SYNCHRONOUS);
     SET_REPORT_OBJECT_PROPERTY(repID,REPORT_DESTYPE,CACHE);
     SET_REPORT_OBJECT_PROPERTY(repID, REPORT_DESFORMAT, 'PDF');
     SET_REPORT_OBJECT_PROPERTY(repID,REPORT_SERVER,'rep_server');
-- (1)
message('start...');
v_rep := RUN_REPORT_OBJECT(repID);
-- (3)
message('v_rep= ' || v_rep );
v_repStat := REPORT_OBJECT_STATUS(v_rep);
-- (4)
message('v_repStat = ' || v_repStat);
v_rep := substr( v_rep,length(rep_server)+2,length(v_rep));
-- (6)
message('v_rep ' || v_rep);
-- (7)
message('end...');
     IF v_repStat='FINISHED' THEN
          message ('successfull...');
          web.show_document ('/reports/rwservlet/getjobid'|| v_rep ||'?server='|| 'rep_a0030417klbb488','_blank');
     ELSE
          message ('Report failed with error message.. show message '||v_repStat);
     END IF;
END;
The output is
(1) start...
(2) FRM-41213: Unable to connect to the Report server rep_srvname
(3) v_rep = rep_server_0
(4) FRM-41213: Unable to connect to the Report server rep.
(5) v_repStat=
(6) v_rep=0
(7) end...
Report failed with error message.