Printing onto file under 9i

Question

HI Gentlemen,
Could you tell me where I am wrong with this small portion of code?
Ino Lawrensse was so kind as to send me a PL/SQL segment that I customized to my needs for CASH.
Now it simply returns "Report cannot be executed" when starting from Oracle Forms 9i. I get 41214 as error code. However, it works for destination types PRINTER and CASH (the latter with web.show_document). I also tried to type in the correspondong URL--it works fine.
Thank you, regards from
Miklos Herboly
/* Report object mybill exists in the form */
declare
al_button number;
fn_original constant varchar2(255) := 'Mybill.prn';
pl_id ParamList;
pl_name constant VARCHAR2(255) := 'paramlist';
rep constant varchar2(255) := 'E:\bills\mybill.rep';
repid report_object;
v_rep varchar2(100);
v_jobid varchar2(10);
v_repserver varchar2(20) := 'myrepserver';
BEGIN
/* Create the Parameter List into pl_id... */
repid := find_report_object('mybill');
Add_Parameter(pl_id,'bill_id',TEXT_PARAMETER,:bill.id);
Add_Parameter(pl_id,'group_id',TEXT_PARAMETER,:group.id);
Add_Parameter(pl_id,'copy_type',TEXT_PARAMETER,'Original');
set_report_object_property(repid,REPORT_DESTYPE,FILE);
set_report_object_property(repid,REPORT_DESNAME,fn_original);
set_report_object_property(repid,REPORT_SERVER, v_repserver);
set_report_object_property(repid,report_filename,rep);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_EXECUTION_MODE, BATCH);
SET_REPORT_OBJECT_PROPERTY(repid, REPORT_COMM_MODE, SYNCHRONOUS);
v_rep := RUN_REPORT_OBJECT(repid, pl_id);
END;
------------------------

Answer 1

Preview is something from a client/server configuration. Forms and Reports 9i cannot be run in c/s configuration anymore, only in web mode. You have to preview the report in a browser now.
You may have to rewrite your code in Forms if you called reports via RUN_PRODUCT. This is an example in 9i:
declare
  repid        report_object;
  v_rep        varchar2(100);
  v_jobid      varchar2(10);
  v_repserver  varchar2(20);
begin
  repid       := find_report_object('test');
  v_repserver := 'repserver9ids';
  set_report_object_property(repid,REPORT_DESTYPE,CACHE);
  set_report_object_property(repid,REPORT_DESFORMAT, 'HTML');
  set_report_object_property(repid,REPORT_SERVER, v_repserver);
  set_report_object_property(repid,report_filename,'test3');
  set_report_object_property(repid,report_other,'dept_id=10');
  v_rep   := RUN_REPORT_OBJECT(repid);
  if v_rep is not null then
    v_jobid   := substr(v_rep,(instr(v_rep,'_',-1)+1));
  end if;
  if v_jobid > 0 then
    web.show_document ('/reports/rwservlet/getjobid'|| v_jobid ||'?server='|| v_repserver,'_blank');
  end if;
end;