PROCEDURE run_report_object_proc (
   report_id             report_object,
   report_server_name    VARCHAR2,
   report_format         VARCHAR2,
   report_destype_name   NUMBER,
   report_file_name      VARCHAR2,
   report_otherparam     VARCHAR2,
   reports_servlet       VARCHAR2
)
IS
   report_message   VARCHAR2 (100)  := '';
   rep_status       VARCHAR2 (100)  := '';
   vjob_id          VARCHAR2 (4000) := '';
   hidden_action    VARCHAR2 (2000) := '';
   v_report_other   VARCHAR2 (4000) := '';
   i                NUMBER (5);
   c                CHAR;
   c_old            CHAR;
   c_new            CHAR;
BEGIN
   SET_REPORT_OBJECT_PROPERTY (report_id, report_comm_mode, synchronous);
   SET_REPORT_OBJECT_PROPERTY (report_id, report_filename, report_file_name);
   SET_REPORT_OBJECT_PROPERTY (report_id, report_server, report_server_name);
   SET_REPORT_OBJECT_PROPERTY (report_id, report_destype,
                               report_destype_name);
   SET_REPORT_OBJECT_PROPERTY (report_id, report_desformat, report_format);
   hidden_action :=
         hidden_action
      || '&report='
      || GET_REPORT_OBJECT_PROPERTY (report_id, report_filename);
   hidden_action :=
         hidden_action
      || '&destype='
      || GET_REPORT_OBJECT_PROPERTY (report_id, report_destype);
   hidden_action :=
         hidden_action
      || '&desformat='
      || GET_REPORT_OBJECT_PROPERTY (report_id, report_desformat);
   hidden_action :=
         hidden_action
      || '&userid='
      || GET_APPLICATION_PROPERTY (username)
      || '/'
      || GET_APPLICATION_PROPERTY (PASSWORD)
      || '@'
      || GET_APPLICATION_PROPERTY (connect_string);
   c_old := '@';

   FOR i IN 1 .. LENGTH (report_otherparam)
   LOOP
      c_new := SUBSTR (report_otherparam, i, 1);

      IF (c_new = '')
      THEN
         c := '&';
      ELSE
         c := c_new;
      END IF;

-- eliminate multiple blanks
      IF (c_old = '' AND c_new = '')
      THEN
         NULL;
      ELSE
         v_report_other := v_report_other || c;
      END IF;

      c_old := c_new;
      hidden_action := hidden_action || '&' || v_report_other;
      hidden_action :=
            reports_servlet
         || '?_hidden_server='
         || report_server_name
         || hidden_action;
      SET_REPORT_OBJECT_PROPERTY (report_id,
                                  report_other,
                                     'pfaction='
                                  || hidden_action
                                  || ' '
                                  || report_otherparam
                                 );
-- run Reports
      report_message := RUN_REPORT_OBJECT (report_id);
      rep_status := REPORT_OBJECT_STATUS (report_message);

      IF rep_status = 'FINISHED'
      THEN
         vjob_id :=
            SUBSTR (report_message,
                    LENGTH (report_server_name) + 2,
                    LENGTH (report_message)
                   );
         web.show_document (   reports_servlet
                            || '/getjobid'
                            || vjob_id
                            || '?server='
                            || report_server_name,
                            ' _blank'
                           );
      ELSE
--handle errors
         NULL;
      END IF;
   END LOOP;
END;