Run Report Object and Lexical Parameters

Question

Hi all,
I am trying to pass a value for a lexical parameter in a report. The report query is as follows:
SELECT EMP.EMPNO, EMP.ENAME,
EMP.JOB, EMP.MGR, EMP.HIREDATE, EMP.SAL, EMP.COMM, EMP.DEPTNO
FROM EMP
&Where_St
The Where_St is a lexical parameter which will hold the Where Statement the end user need it to be executed.
I build a form on the EMP table in order to let the user get benefit from the Enter Query/Execute Query functionality in forms. Like this, he/she can query the data he likes with the condtions he wish to have.
I created a button to call the report I did before from the form
The Button has the following code in the trigger
WHEN-BUTTON-PRESSED
declare
rep_id report_object;
rep_status varchar2(30);
Where_Pos number(3);
Where_Statement varchar2(200);
begin
Where_Pos := InStr(:System.Last_Query, 'WHERE');
if Where_Pos > 0 then
Where_Statement := SubStr(:System.Last_Query,
Where_Pos);
end if;
rep_id := Find_Report_Object('emp_rep');
Set_Report_Object_Property(rep_id, REPORT_EXECUTION_MODE, RUNTIME);
Set_Report_Object_Property(rep_id, REPORT_COMM_MODE, ASYNCHRONOUS);
Set_Report_Object_Property(rep_id, REPORT_DESTYPE, PREVIEW);
Set_Report_Object_Property(rep_id, REPORT_OTHER, 'MAXIMIZE=YES Where_St=' | | Where_Statement);
rep_status := Run_Report_Object(rep_id);
end;
Whenever I run the report it did not show up at all. I doubt the value I am passing, so I deleted the line that pass the value for the Lexical parameter to the report. The report worked just fine.
Moreover, I passed this value using Run_Product to the reports and the report is working fine with the forms. But I would like to use Run_Report_Object to pass this value to the reports.
Any ideas??
Thanks

Answer 1

PROCEDURE PROC_test IS
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(100);
v_server_length NUMBER;
REP_SERV VARCHAR2(100);
paramlist_id ParamList;
paramlist_name VARCHAR2(10):='tmplist';
Begin
repid := find_report_object('HIST_DISPENSE');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_EXECUTION_MODE,RUNTIME);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_COMM_MODE,SYNCHRONOUS);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESTYPE,CACHE);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_DESFORMAT,'HTML');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'REP_ORACLEWEB');
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_OTHER,'paramform=no R_ST_DT='||:BLK_A_NUM_GT7_NO_HIS_DISP.FROM_DATE 'paramform=no R_END_DT='||:BLK_A_NUM_GT7_NO_HIS_DISP.TODATE);
v_rep := RUN_REPORT_OBJECT(repid,paramlist_id);
message('vrep is '||v_rep);
rep_status := REPORT_OBJECT_STATUS(v_rep);
message('status is'||rep_status);
v_server_length := LENGTH(GET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER));
message('server length is '||v_server_length );
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(v_rep);
message('REP STATUS IS'||rep_status);
END LOOP;
IF rep_status = 'FINISHED' THEN
/*Display report in the browser*/
WEB.SHOW_DOCUMENT('http://10.20.56.20:7778/reports/rwservlet/getjobid'||
substr(v_rep,v_server_length + 2)||'?'||'server=REP_ORACLEWEB','_blank');
ELSE
message('Error when running report');
message('SQLERRM ' ||SQLERRM);
END IF;
end;
Hi
I'm having problem passing two paramters, Pl helpme by correcting the syntax.
Thx