Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1427181
  • 博文数量: 316
  • 博客积分: 1860
  • 博客等级: 上尉
  • 技术积分: 3503
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-07 08:51
个人简介

偶尔有空上来看看

文章分类

全部博文(316)

文章存档

2021年(48)

2020年(115)

2019年(11)

2018年(9)

2017年(9)

2016年(17)

2015年(7)

2014年(4)

2013年(1)

2012年(11)

2011年(27)

2010年(35)

2009年(11)

2008年(11)

分类: Oracle

2010-09-20 20:34:18

11g r2 数据库
dbms_trace 包的内容被加密了,用工具解密后内容如下:
 

PACKAGE BODY dbms_trace IS
  
  PBT3G_VERSION CONSTANT POSITIVE := 2;

  FUNCTION PBT3GVCK(VERSION POSITIVE) RETURN BINARY_INTEGER IS
  EXTERNAL
  LIBRARY SYS.DBMS_TRACE_LIB
  NAME "pbt3gvck"
  WITH CONTEXT
  PARAMETERS(CONTEXT, VERSION, RETURN);

  FUNCTION PBT3GMT(FLAGS IN BINARY_INTEGER) RETURN BINARY_INTEGER IS
  EXTERNAL
  LIBRARY SYS.DBMS_TRACE_LIB
  NAME "pbt3gmt"
  WITH CONTEXT
  PARAMETERS(CONTEXT, FLAGS, RETURN);

  FUNCTION PBT3GRN RETURN BINARY_INTEGER IS
  EXTERNAL
  LIBRARY SYS.DBMS_TRACE_LIB
  NAME "pbt3grn"
  WITH CONTEXT
  PARAMETERS(CONTEXT, RETURN);

  FUNCTION PBT3GLM(LIMIT IN BINARY_INTEGER) RETURN BINARY_INTEGER IS
  EXTERNAL
  LIBRARY SYS.DBMS_TRACE_LIB
  NAME "pbt3glm"
  WITH CONTEXT
  PARAMETERS(CONTEXT, LIMIT, RETURN);

  FUNCTION PBT3GCO(COMMENT IN VARCHAR2) RETURN BINARY_INTEGER IS
  EXTERNAL
  LIBRARY SYS.DBMS_TRACE_LIB
  NAME "pbt3gco"
  WITH CONTEXT
  PARAMETERS(CONTEXT, COMMENT, COMMENT LENGTH, RETURN);

  FUNCTION PBT3GTL RETURN BINARY_INTEGER IS
  EXTERNAL
  LIBRARY SYS.DBMS_TRACE_LIB
  NAME "pbt3gtl"
  WITH CONTEXT
  PARAMETERS(CONTEXT, RETURN);

  FUNCTION INTERNAL_VERSION_CHECK RETURN BINARY_INTEGER IS
  BEGIN
    RETURN PBT3GVCK(PBT3G_VERSION);
  END INTERNAL_VERSION_CHECK;

  PROCEDURE SET_OR_CLEAR_TRACE(TRACE_LEVEL IN BINARY_INTEGER) IS
    DISCARD INTEGER;
  BEGIN
    IF (INTERNAL_VERSION_CHECK <> 0) THEN
      RETURN;
    END IF;
    DISCARD := PBT3GMT(TRACE_LEVEL);
  END;
  
  PROCEDURE SET_PLSQL_TRACE(TRACE_LEVEL IN BINARY_INTEGER) IS
  BEGIN
    SET_OR_CLEAR_TRACE(TRACE_LEVEL);
  END;

  FUNCTION GET_PLSQL_TRACE_LEVEL RETURN BINARY_INTEGER IS
  BEGIN
    IF (INTERNAL_VERSION_CHECK <> 0) THEN
      RETURN NULL;
    ELSE
      RETURN PBT3GTL;
    END IF;
  END;

  PROCEDURE CLEAR_PLSQL_TRACE IS
  BEGIN
    SET_OR_CLEAR_TRACE(TRACE_STOP);
  END;

  
  PROCEDURE PAUSE_PLSQL_TRACE IS
  BEGIN
    SET_OR_CLEAR_TRACE(TRACE_PAUSE);
  END;

  
  PROCEDURE RESUME_PLSQL_TRACE IS
  BEGIN
    SET_OR_CLEAR_TRACE(TRACE_RESUME);
  END;

  
  PROCEDURE LIMIT_PLSQL_TRACE(LIMIT IN BINARY_INTEGER := 8192) IS
    DISCARD BINARY_INTEGER;

  BEGIN
    IF (INTERNAL_VERSION_CHECK <> 0) THEN
      RETURN;
    END IF;
    DISCARD := PBT3GLM(LIMIT);
  END;

  FUNCTION GET

阅读(942) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~