web.show_document

myconn: scott/tiger@devt

PROCEDURE test_report IS
   v_repid               report_object;
   v_rep                 VARCHAR2 (100);
   v_show_document       VARCHAR2 (2000) := '/reports/rwservlet?';
   v_connect             VARCHAR2 (30);  
BEGIN
   v_connect := 'myconn';
   IF GET_APPLICATION_PROPERTY (user_interface) = 'WEB'
   THEN
      v_show_document := v_show_document
         || 'report=emp'
         || '&userid='
         || v_connect
         || '&destype=CACHE'
         || '&desformat=PDF';         
      web.show_document (v_show_document);
   ELSE
      v_repid := FIND_REPORT_OBJECT ('emp');
      v_rep := RUN_REPORT_OBJECT (v_repid);
      web.show_document
                (   'http://address:port/reports/rwservlet/getjobid'
                 || SUBSTR (v_rep, INSTR (v_rep, '_', -1) + 1)
                 || '?'
                 || 'server=mylocalrepsrvr',
                 '_blank'
                );
   END IF;
END;