DECLARE
   repid        REPORT_OBJECT;
   v_rep        VARCHAR2 (100);
   rep_status   varchar2 (20);
BEGIN
   repid := find_report_object ('report4');
   v_rep := RUN_REPORT_OBJECT (repid);
   rep_status := report_object_status (v_rep);

   if rep_status = 'FINISHED' then
      message ('Report Completed');
      copy_report_object_output (v_rep, 'd:\temp\local.pdf');
      host ('netscape d:\temp\local.pdf');
   else
      message ('Error when running report.');
   end if;
END;