PROCEDURE rep_call(p_rep in char, p_param in paramlist) IS
  report_id        report_object;
  mJob_ID          varchar2(200);
  mRep_Status      varchar2(200);
  mReportServer    varchar2(100) := 'REP_SERVER';
  mReportServerJob varchar2(200);
  x                varchar2(200);
BEGIN
  report_id := find_report_object(p_rep);
  set_report_object_property(report_id, report_execution_mode, runtime);
  set_report_object_property(report_id, report_comm_mode, synchronous);
  set_report_object_property(report_id, report_destype, cache);
  set_report_object_property(report_id, report_desformat, 'PDF');
  set_report_object_property(report_id, report_server, mReportServer);
  SET_REPORT_OBJECT_PROPERTY(report_id, REPORT_OTHER, 'paramform=no');
  mReportServerJob := run_report_object(report_id, p_param);
  mJob_id          := substr(mReportServerJob,
                             length(mReportServer) + 2,
                             length(mReportServerJob));
  mRep_Status      := report_object_status(mReportServerJob);
  WHILE Mrep_status in ('RUNNING', 'OPENING_REPORT', 'ENQUEUED') LOOP
    mrep_status := report_object_status(mReportServerJob);
  END LOOP;
  if mRep_status = 'FINISHED' then
    x := '/reports/rwservlet/getjobid' || mJob_id
         web.show_document(x, '_blank');
  else
    message('report failed with error message ' || mRep_status);
  end if;
END;