home *** CD-ROM | disk | FTP | other *** search
/ Oracle Video Server 3.0.3.1 / OVS_3031_NT.iso / win32 / tracesvr / otrcprvt.sql < prev    next >
Encoding:
Text File  |  1996-10-04  |  3.2 KB  |  102 lines
  1. rem 
  2. rem $Header: /OEM_1.3.6/OTRCSVR/INSTALL/otrcprvt.sql 3     7/02/97 10:42a Tlandry $ 
  3. rem 
  4. Rem  Copyright (c) 1995 by Oracle Corporation 
  5. Rem    NAME
  6. Rem      otrcprvt.sql - <one-line expansion of the name>
  7. Rem    DESCRIPTION
  8. Rem      This file provides client callable interfaces to the Oracle TRACE
  9. Rem      instrumentation within the Oracle7 Server (rdbms).
  10. Rem    RETURNS
  11. Rem 
  12. Rem    NOTES
  13. Rem      Package  dbms_oracle_trace_agent  should only be granted to DBA
  14. Rem      or the Oracle TRACE collection agent.
  15. Rem    MODIFIED   (MM/DD/YY)
  16. Rem     drady      02/09/95 -  Creation
  17.  
  18.  
  19. CREATE OR REPLACE PACKAGE BODY dbms_oracle_trace_agent IS
  20.   ------------
  21.   --  OVERVIEW
  22.   --
  23.   --  This package provides some system level utilities.
  24.   --
  25.   --  SECURITY
  26.   --
  27.   --  This package is only accessible to user SYS by default.  You can control
  28.   --  access to these routines by only granting execute to privileged users.
  29.   --
  30.   ----------------------------
  31.   --  PROCEDURES AND FUNCTIONS
  32.   --
  33.   PROCEDURE set_otrace_ev_icd
  34.             ( sid BINARY_INTEGER,
  35.               ser BINARY_INTEGER,
  36.               evt BINARY_INTEGER,
  37.               lvl BINARY_INTEGER,
  38.               fdf VARCHAR2,
  39.               cdf VARCHAR2
  40.             );
  41.     PRAGMA INTERFACE (C, set_otrace_ev_icd);                 -- 1 (see kvot.c)
  42.   --
  43.   --
  44.   PROCEDURE set_otrace( sid BINARY_INTEGER DEFAULT 0,
  45.               ser BINARY_INTEGER DEFAULT 0,
  46.               evt BINARY_INTEGER DEFAULT 0,
  47.               lvl BINARY_INTEGER DEFAULT 0,
  48.               fdf VARCHAR2 DEFAULT '',
  49.               cdf VARCHAR2 DEFAULT '') IS
  50.     BEGIN
  51.       set_otrace_ev_icd(sid, ser, evt, lvl, fdf, cdf);
  52.     END set_otrace;
  53.   --
  54.   ----------------------------
  55.   --
  56.   PROCEDURE set_oracle_trace_in_session
  57.             ( sid NUMBER DEFAULT 0,
  58.               serial# NUMBER DEFAULT 0,
  59.               on_off IN BOOLEAN  DEFAULT false,
  60.               collection_name IN VARCHAR2 DEFAULT '',
  61.               facility_name IN VARCHAR2 DEFAULT ''
  62.             ) IS
  63.   BEGIN
  64.     IF on_off THEN
  65.       set_otrace(sid, serial#, 10146, 1, facility_name, collection_name);
  66.     ELSE
  67.       set_otrace(sid, serial#, 10146, 0, facility_name, collection_name);
  68.     END IF;
  69.   END set_oracle_trace_in_session;
  70.   --
  71.   --
  72. END dbms_oracle_trace_agent;
  73. /
  74.  
  75. CREATE OR REPLACE PACKAGE BODY dbms_oracle_trace_user IS
  76.   ------------
  77.   --  OVERVIEW
  78.   --
  79.   --  This package provides public access to the Oracle7 Server (rdbms)
  80.   --  Oracle TRACE instrumentation for the calling user.
  81.   --
  82.   ----------------------------
  83.   --  PROCEDURES AND FUNCTIONS
  84.   --
  85.   PROCEDURE set_oracle_trace
  86.             ( on_off IN BOOLEAN DEFAULT false,
  87.               collection_name IN VARCHAR2 DEFAULT '',
  88.               facility_name IN VARCHAR2 DEFAULT ''
  89.             ) IS
  90.   BEGIN
  91.     IF on_off THEN
  92.       sys.dbms_oracle_trace_agent.set_otrace(0, 0, 10146, 1,
  93.                                               facility_name, collection_name);
  94.     ELSE
  95.       sys.dbms_oracle_trace_agent.set_otrace(0, 0, 10146, 0,
  96.                                               facility_name, collection_name);
  97.     END IF;
  98.   END;
  99. END dbms_oracle_trace_user;
  100. /
  101.  
  102.