Announcements

Can you please help me to create .prt file on given location through form.

Declare
pl_id ParamList;
pl_name varchar2(10) :='tempdata';
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
v_rep_server varchar2(100) :=rtrim(f_reportserver('01'));
v_url varchar2(100) :=rtrim(f_reportserver('02'));
rep_srv varchar2(50) default '?server='||rtrim(v_rep_server);
v_rpath varchar2(100) :=rtrim(f_reportserver('03'));
v_repname varchar2(20) :='TFSR0202_new.rdf';
BEGIN

pl\_id:=Get\_Parameter\_List(pl\_name);

if not Id\_null(pl\_id) THEN  
    Destroy\_Parameter\_List(pl\_id);  
end if;  
  
pl\_id:=create\_Parameter\_list(pl\_name);  
  
  Add\_Parameter(pl\_id, 'PARAMFORM', TEXT\_PARAMETER, 'NO');  
  Add\_Parameter(pl\_id, 'P\_BKNO', TEXT\_PARAMETER,:CTL\_CRITERIA.P\_BKNO);  
  Add\_Parameter(pl\_id, 'P\_1', TEXT\_PARAMETER,'=itn\_code');

    repid := find\_report\_object('REPORT9');  
    SET\_REPORT\_OBJECT\_PROPERTY(repid, REPORT\_EXECUTION\_MODE, BATCH);  
    SET\_REPORT\_OBJECT\_PROPERTY(repid, REPORT\_SERVER, v\_rep\_server);  
    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\_OTHER,'MODE=CHARACTER');  
    

    SET\_REPORT\_OBJECT\_PROPERTY(repid,REPORT\_FILENAME, rtrim(v\_rpath)||rtrim(v\_repname));


      
    v\_rep := RUN\_REPORT\_OBJECT(repid,pl\_id);  
    WEB.SHOW\_DOCUMENT(rtrim(v\_url)||substr(v\_rep,instr(v\_rep,'\_',-1)+1)||rtrim(rep\_srv));

END;