PROCEDURE rep_applic_data
IS
   repid        report_object;
   v_rep        VARCHAR2 (100);
   rep_status   VARCHAR2 (20);
BEGIN
   repid := FIND_REPORT_OBJECT ('REP_APPLIC_DATA');
   SET_REPORT_OBJECT_PROPERTY (repid, report_desformat, 'htmlcss');
   SET_REPORT_OBJECT_PROPERTY (repid, report_server, 'repserver10g');
   v_rep := RUN_REPORT_OBJECT (repid);
   rep_status := REPORT_OBJECT_STATUS (v_rep);

   WHILE rep_status IN ('RUNNING', 'OPENING_REPORT', 'ENQUEUED')
   LOOP
      rep_status := REPORT_OBJECT_STATUS (v_rep);
   END LOOP;

   IF rep_status = 'FINISHED'
   THEN
      web.show_document (   'http://localhost:8889/reports/rwservlet/'
                         || 'getjobid'
                         || SUBSTR (v_rep, INSTR (v_rep, '_', -1) + 1)
                         || '?'
                         || 'server=repserver10g',
                         '_blank'
                        );
   ELSE
      MESSAGE ('Error when running report');
   END IF;
END;