Chinaunix首页 | 论坛 | 博客
  • 博客访问: 387282
  • 博文数量: 58
  • 博客积分: 2096
  • 博客等级: 大尉
  • 技术积分: 608
  • 用 户 组: 普通用户
  • 注册时间: 2008-09-29 16:09
个人简介

专注于数据库技术研究和实践,目前就职于互联网金融企业,提供Oracle数据库技术支持和维护。 联系电话:18616803656

文章分类

全部博文(58)

文章存档

2020年(1)

2019年(4)

2018年(1)

2017年(3)

2015年(4)

2014年(7)

2012年(1)

2011年(27)

2010年(8)

2009年(2)

我的朋友

分类: Oracle

2019-01-15 17:35:17

CREATE OR REPLACE PACKAGE TPS_CASH_DB_MNT
AS


PROCEDURE DB_STATS(V_DEGREE IN VARCHAR2 DEFAULT 8);
PROCEDURE REBUILD_INDEX(V_ONLINE   IN VARCHAR2 DEFAULT NULL);
PROCEDURE REBUILD_INDEX(V_TAB_NAME IN VARCHAR2, 
                        V_ONLINE IN VARCHAR2 DEFAULT NULL
                       );


END TPS_CASH_DB_MNT;
/


CREATE OR REPLACE PACKAGE BODY TPS_CASH_DB_MNT
AS


PROCEDURE DB_STATS(V_DEGREE IN VARCHAR2 DEFAULT 8)
AS
BEGIN
  DBMS_STATS.GATHER_SCHEMA_STATS(OWNNAME          => USER,
                                 CASCADE          => TRUE,
                                 OPTIONS          => 'GATHER AUTO',
                                 ESTIMATE_PERCENT => DBMS_STATS.AUTO_SAMPLE_SIZE,
                                 METHOD_OPT       => 'for all columns size repeat',
                                 DEGREE           => V_DEGREE
                                );
END DB_STATS;


PROCEDURE REBUILD_INDEX(V_ONLINE IN VARCHAR2 DEFAULT NULL)
AS
ls_index_name  VARCHAR2(40)   ;
ls_part_type   VARCHAR2(40)   ;
ls_part_name   VARCHAR2(40)   ;
ls_sql         VARCHAR2(400)  ;
ls_nop         VARCHAR2(400)  ;
ld_start_date  DATE           ;
ln_SECONDS     NUMBER(10)     ;


CURSOR cur_indexes IS
  SELECT UI.INDEX_NAME,
         DECODE(UIP.COMPOSITE, 'NO', ' PARTITION ', 'YES', ' SUBPARTITION ', NULL) PARTITION_TYPE,
         DECODE(UIP.COMPOSITE,'NO',UIP.PARTITION_NAME, 'YES', UIS.SUBPARTITION_NAME, NULL) PARTITION_NAME
  FROM USER_INDEXES UI
  LEFT JOIN USER_IND_PARTITIONS UIP
  ON   UI.INDEX_NAME = UIP.INDEX_NAME
  LEFT JOIN USER_IND_SUBPARTITIONS UIS
  ON   UI.INDEX_NAME = UIS.INDEX_NAME
  WHERE UI.INDEX_NAME NOT LIKE 'SYS_IL%'
  AND   UI.INDEX_TYPE <> 'IOT - TOP'
  ORDER BY UI.TABLE_NAME, UI.INDEX_NAME, UIP.PARTITION_POSITION,
           UIS.PARTITION_NAME, UIS.SUBPARTITION_POSITION;


BEGIN
  SELECT SYSDATE INTO ld_start_date FROM DUAL;
  DBMS_OUTPUT.PUT_LINE('Rebuild INDEX at '||TO_CHAR(SYSDATE, 'YYYY-Mon-DD HH24:MI:SS')||CHR(10));
  FOR cur_1 IN cur_indexes LOOP
    ls_index_name := cur_1.INDEX_NAME;
    ls_part_type  := cur_1.PARTITION_TYPE;
    ls_part_name  := cur_1.PARTITION_NAME;


    ls_sql := 'ALTER INDEX '||ls_index_name||' REBUILD'||ls_part_type||ls_part_name||' PARALLEL '||V_ONLINE;
    ls_nop := 'ALTER INDEX '||ls_index_name||' NOPARALLEL ';
    --DBMS_OUTPUT.PUT_LINE(ls_sql||';');


    -- Execute
    BEGIN
      EXECUTE IMMEDIATE ls_sql;
      EXECUTE IMMEDIATE ls_nop;
    EXCEPTION WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE(ls_sql||'; '||SQLERRM);
      DBMS_OUTPUT.PUT_LINE(ls_nop||'; '||SQLERRM);
    END;
  END LOOP;
  SELECT (SYSDATE - ld_start_date)*24*3600 INTO ln_SECONDS FROM DUAL;
  DBMS_OUTPUT.PUT_LINE('COMPLETED... at '||TO_CHAR(SYSDATE, 'YYYY-Mon-DD HH24:MI:SS')||CHR(10));
END REBUILD_INDEX;


PROCEDURE REBUILD_INDEX(V_TAB_NAME IN VARCHAR2, V_ONLINE IN VARCHAR2 DEFAULT NULL)
AS
ls_index_name  VARCHAR2(40)   ;
ls_part_type   VARCHAR2(40)   ;
ls_part_name   VARCHAR2(40)   ;
ls_sql         VARCHAR2(400)  ;
ls_nop         VARCHAR2(400)  ;
ld_start_date  DATE           ;
ln_SECONDS     NUMBER(10)     ;


CURSOR cur_indexes IS
  SELECT UI.INDEX_NAME,
         DECODE(UIP.COMPOSITE, 'NO', ' PARTITION ', 'YES', ' SUBPARTITION ', NULL) PARTITION_TYPE,
         DECODE(UIP.COMPOSITE,'NO',UIP.PARTITION_NAME, 'YES', UIS.SUBPARTITION_NAME, NULL) PARTITION_NAME
  FROM USER_INDEXES UI
  LEFT JOIN USER_IND_PARTITIONS UIP
  ON   UI.INDEX_NAME = UIP.INDEX_NAME
  LEFT JOIN USER_IND_SUBPARTITIONS UIS
  ON   UI.INDEX_NAME = UIS.INDEX_NAME
  WHERE UI.INDEX_NAME NOT LIKE 'SYS_IL%'
  AND   UI.INDEX_TYPE <> 'IOT - TOP'
  AND   UI.TABLE_NAME = V_TAB_NAME
  ORDER BY UI.TABLE_NAME, UI.INDEX_NAME, UIP.PARTITION_POSITION,
           UIS.PARTITION_NAME, UIS.SUBPARTITION_POSITION;


BEGIN
  SELECT SYSDATE INTO ld_start_date FROM DUAL;
  DBMS_OUTPUT.PUT_LINE('Rebuild INDEX for '||V_TAB_NAME||' at '||TO_CHAR(SYSDATE, 'YYYY-Mon-DD HH24:MI:SS')||CHR(10));
  FOR cur_1 IN cur_indexes LOOP
    ls_index_name := cur_1.INDEX_NAME;
    ls_part_type  := cur_1.PARTITION_TYPE;
    ls_part_name  := cur_1.PARTITION_NAME;


    ls_sql := 'ALTER INDEX '||ls_index_name||' REBUILD'||ls_part_type||ls_part_name||' PARALLEL '||V_ONLINE;
    ls_nop := 'ALTER INDEX '||ls_index_name||' NOPARALLEL ';
    --DBMS_OUTPUT.PUT_LINE(ls_sql||';');


    -- Execute
    BEGIN
      EXECUTE IMMEDIATE ls_sql;
      EXECUTE IMMEDIATE ls_nop;
    EXCEPTION WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE(ls_sql||'; '||SQLERRM);
      DBMS_OUTPUT.PUT_LINE(ls_nop||'; '||SQLERRM);
    END;
  END LOOP;
  SELECT (SYSDATE - ld_start_date)*24*3600 INTO ln_SECONDS FROM DUAL;
  DBMS_OUTPUT.PUT_LINE('COMPLETED... at '||TO_CHAR(SYSDATE, 'YYYY-Mon-DD HH24:MI:SS')||CHR(10));
END REBUILD_INDEX;


END TPS_CASH_DB_MNT;
/


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