Calling report from form with lexical parameter

Question

hi
DECLARE
     repid REPORT_OBJECT;
     v_rep VARCHAR2(1000);
     rep_status VARCHAR2(20);
BEGIN
          repid := FIND_REPORT_OBJECT( 'REPORT34' );
          set_report_object_property(repid,report_other,'p_SEASON_YEAR='||:SALE_ORDER.SEASON_YEAR
          ||' &sort='||:sale_order.sort1);
          --set_report_object_property(repid,report_other,'p_g_id =20');
          v_rep := RUN_REPORT_OBJECT(repid);
          rep_status := REPORT_OBJECT_STATUS(v_rep);
WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(v_rep);
END LOOP;
IF rep_status = 'FINISHED' THEN
--Display report in the browser
WEB.SHOW_DOCUMENT('http://127.0.0.1:8889/reports/rwservlet/getjobid'||
substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=repserver90','_blank');
ELSE
message('Error when running report');
END IF;
PAUSE;
END;i had made a lexical parameter in reports the reports code is
SELECT s.season_year,sd.prod_id,P.PROD_NAME,sum(sd.total_qty)
FROM sale_order s,sale_order_detail sd,PRODUCT P,CUSTOMER_MASTER cm,CUSTOMER_DETAIL cd
where s.id=sd.id and P.PROD_ID=SD.PROD_ID AND s.season_year = :p_season_year
AND CD.CUST_ID=CM.CUST_ID AND CD.CUST_ID=S.CUST_ID AND CD.COUNTRY NOT LIKE 'SPA%' AND Sd.PROD_ID LIKE  'CA%'
group by s.season_year,sd.prod_id,P.PROD_NAME
&sortthanks and regards
vikas

Answer 1

Vikas,
So, is your code producing an error when your report is called? Also, it would be helpful to know your Forms and Reports versions. Is ":p_season_year" set up as a USER_PARAMETER (UP) in your report or is it a true lexical parameter (meaning you should reference it with '&' instead of ':')? If it is a UP, the typical way to pass a value to this UP from Forms is to use a ParamList object instead of the REPORT_OTHER parameter of the Set_Report_Object_Property built-in. For example:
DECLARE
   pl_id    ParamList;
   pl_name  VARCHAR2(10) := 'REPORT34';
   v_rep VARCHAR2(1000);
   rep_status VARCHAR2(20);
BEGIN
   pl_id := Get_Parameter_List(pl_name);
   IF id_null(pl_id) THEN
      pl_id := Create_Parameter_List(pl_name);
   END IF;
   Add_Parameter(pl_id, 'P_SEASON_YEAR', TEXT_PARAMETER, :SALE_ORDER.SEASON_YEAR);
   repid := FIND_REPORT_OBJECT( 'REPORT34' );
   v_rep := RUN_REPORT_OBJECT(repid, pl_id);
   ...  rest of your code here  ...
END;Hope this helps,
Craig B-)
If someone's response is helpful or correct, please mark it accordingly.