Report_object_status

Question

Hi all,
While calling a report from Oracle Forms (10g), do we need to call the Report_object_status in a loop or should it be called just once
for example : should the code be as follows
1) Report_message := Run_report_object (Report_id);
Rep_status := Report_object_status (Report_message);
While Rep_status In ('RUNNING','OPENING_REPORT','ENQUEUED')
Loop
Rep_status := Report_object_status (Report_message);
End Loop;
IF Rep_status = 'FINISHED'
THEN
ELSE
END IF;
OR
2) Report_message := Run_report_object (Report_id);
Rep_status := Report_object_status (Report_message);
IF Rep_status = 'FINISHED'
THEN
ELSE
END IF;
Kindly let me know.
Thanks in advance.

Answer 1

Better would be
PROCEDURE prc$run_rep(report_id REPORT_OBJECT,
                                                       report_server_name VARCHAR2,
                                                       report_format VARCHAR2,
                                                       report_destype_name NUMBER,
                                                       report_file_name VARCHAR2,
                                                       report_otherparam VARCHAR2,
                                                       reports_servlet VARCHAR2)
IS
report_message VARCHAR2(100) :='';
rep_status VARCHAR2(100) :='';
vjob_id VARCHAR2(4000) :='';
hidden_action VARCHAR2(2000) :='';
v_report_other VARCHAR2(4000) :='';
i number (5);
c char;
c_old char;
c_new char;
BEGIN
-- set reports running parameters
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME,report_file_name);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER,report_server_name);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,report_destype_name);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,report_format);
message('test1');
-- creating string for pfaction parameter
hidden_action := hidden_action ||'&report='||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_FILENAME);
hidden_action := hidden_action||'&destype='||GET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE);
hidden_action := hidden_action||'&desformat='||GET_REPORT_OBJECT_PROPERTY (report_id,REPORT_DESFORMAT);
hidden_action := hidden_action ||'&userid='||get_application_property(username)||'/'||
                                        get_application_property(password)||'@'||get_application_property(connect_string);
-- report other parameters are passed as key value pairs
-- "key1=value1 key2=value2"
-- The following loop replaces the delimited blanks with an '&' used on the web.
-- This replacements only works for values that don't have blanks themselves.
message(hidden_action);
-- c_old is initialized as a dummy value
c_old :='@';
FOR i IN 1..LENGTH(report_otherparam) LOOP
c_new:= substr(report_otherparam,i,1);
IF (c_new =' ') THEN
c:='&';
ELSE
c:= c_new;
END IF;
-- eliminate multiple blanks
IF (c_old =' ' and c_new = ' ') THEN
null;
ELSE
v_report_other := v_report_other||c;
END IF;
-- save current value as old value
c_old := c_new;
END LOOP;
hidden_action := hidden_action ||'&'|| v_report_other;
-- report_servlet contains the full path to the reports servlet
-- Example 1 : Forms and reports areon the same server
-- report_servlet :='/reports/rwservlet'
-- Example 2 : Forms and reports are on different hosts
-- report_servlet := 'http://host:port/reports/rwservlet'
hidden_action := reports_servlet||'?_hidden_server='||report_server_name|| fnc$encode(hidden_action);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_OTHER,'pfaction='||hidden_action||' '||report_otherparam);
-- run Reports
report_message := run_report_object(report_id);
rep_status := report_object_status(report_message);
IF rep_status='FINISHED' THEN
vjob_id :=substr(report_message,length(report_server_name)+2,length
(report_message));
WEB.SHOW_DOCUMENT(reports_servlet||'/getjobid'||vjob_id||'?server='||
report_server_name,' _blank');
ELSE
--handle errors
null;
END IF;
END prc$run_rep;