Passing parameters to report - nothing displays

Question

My abjective is to pass 3 parameters to a report in Forms. The
user should not see the parameter form. The values passed are
changed programatically based on the screen the user is on. The
parameters are named the same in both Reports Builder and
Forms. The parameter datatypes are character but the fields on
the database are numeric. In Reports Builder, the select clause
converts the character to numeric(TO_NUMBER). In reports
builder the report runs fine but of course the parameter form is
displayed for entering the 3 fields. In forms when PARAMFORM is
set to 'YES', the 3 fields are blank and have to be entered by
the user and the report prints fine but of course, this is not
the desired method from a user point-of-view. The user should
not have to enter anything, just click on the desired report
from the menu item.
Here is my code;
DECLARE
rptID               REPORT_OBJECT;
rpt               varchar2(100);
plID               PARAMLIST;
plName          varchar2(10)          := 'myList';
BEGIN
     plID          := get_parameter_list(plName);
     if not id_null(plID) then
     destroy_parameter_list(plID);
     end if;
     plID          := create_parameter_list(plName);     
     add_parameter(plID, 'P_ACCTNBR', TEXT_PARAMETER, name_in
('OBJECTS.ACCTNBR'));
     add_parameter(plID, 'P_SUBACCT', TEXT_PARAMETER, name_in
('OBJECTS.SUBACCT'));
     add_parameter(plID, 'P_RUACCT', TEXT_PARAMETER, name_in
('OBJECTS.RUACCT'));
     add_parameter(plID, 'PARAMFORM', TEXT_PARAMETER,'NO');     
     -- dont display parameter form for users to enter
     rptID := find_report_object('RETUNIT');
--rpt := run_report_object(rptID,plID);
run_product
(REPORTS,'PlantCatRetUnit.rdf',SYNCHRONOUS,RUNTIME,FILESYSTEM,plI
D);
END;
I appreciate your help.
P.S. I have tried both RUN_REPORT_OBJECT & RUN_PRODUCT.
Neither works correctly.

Answer 1

Hello,
See Following Procedure..
/* This Procedure passes department number as a paramter to
Report and displays Report.
Author - Mr. Adinath R. Kamode
Parameter - Deptname (p_dept)
PROCEDURE CALL_REPORT (V_DEPT IN NUMBER)
V_PLIST PARAMLIST; -
- Parameter List and Name
V_PLISTNAME VARCHAR2
(30) := 'RPTLIST';
BEGIN
-- Check existance of Parameter List
V_PLIST := GET_PARAMETER_LIST(V_PLISTNAME);
IF ID_NULL (V_PLIST) THEN
V_PLIST := CREATE_PARAMETER_LIST
(V_PLISTNAME);
IF ID_NULL (V_PLIST) THEN
MESSAGE('Error in
creating parameter list.');
MESSAGE('.');
RAISE
FORM_TRIGGER_FAILURE;
END IF;
-- Add parameter data , name must be same as in Report
ADD_PARAMETER(V_PLIST,'P_DEPT',TEXT_PARAMETER,TO_CHAR
(V_DEPT));
-- Don't display parameter Form
ADD_PARAMETER(V_PLIST,'PARAMFORM',TEXT_PARAMETER,'NO');
RUN_PRODUCT
(REPORTS,'DEPT.RDF',ASYNCHRONOUS,RUNTIME,FILESYSTEM,V_PLIST,NULL)
ELSE
DESTROY_PARAMETER_LIST(V_PLIST);
END IF;
END;
Adi