Eu ja tinha feito algumas linhas de codigo para o REBUILD do indice mas pesquisando encontrei um blog do Guilherme e achei interessante postar aqui a dica dele.<\/p>\n
Essa package criada por mim possibilita a anlise de \u00ednidices para saber se eles precisam sofrer o rebuild. Caso seja necess\u00e1rio, tem um procedimento que automatiza essa tarefa tamb\u00e9m.<\/p>\n
CREATE PROCEDURE analisa_indice( PROCEDURE analisa_schema PROCEDURE analisa_todos;<\/p>\n END; — Package spec CREATE IS<\/p>\n PROCEDURE cria_tabela PROCEDURE analisa_indice( BEGIN PROCEDURE analisa_schema PROCEDURE analisa_todos PROCEDURE rebuild_index( END; Fonte: http:\/\/oraclemais.blogspot.com\/<\/p>\n","protected":false},"excerpt":{"rendered":" Eu ja tinha feito algumas linhas de codigo para o REBUILD do indice mas pesquisando encontrei um blog do Guilherme e achei interessante postar aqui a dica dele. Essa package criada por mim possibilita a anlise de \u00ednidices para saber … Continue lendo
PACKAGE manutencao_indice<\/span>
IS
PROCEDURE cria_tabela;<\/p>\n
dono IN VARCHAR2 DEFAULT USER,
indice IN VARCHAR2);<\/p>\n
(dono IN VARCHAR2 DEFAULT USER);<\/p>\n
\/<\/p>\n
PACKAGE BODY manutencao_indice<\/span><\/p>\n
IS
BEGIN
EXECUTE IMMEDIATE ‘CREATE TABLE ‘||USER||’.DBA$INDEX_STATS
(DONO VARCHAR2(30),
NOME_INDICE VARCHAR2(30),
PCT_DEL NUMBER(5,2),
QUANDO DATE)’;
END;<\/p>\n
dono IN VARCHAR2 DEFAULT USER,
indice IN VARCHAR2)
IS
sql_stmt VARCHAR2(200);
CURSOR cur_stats
IS
SELECT (b.del_lf_rows\/(DECODE(b.lf_rows,0,1)))*100 pct_delete
FROM index_stats b
WHERE b.name = indice;<\/p>\n
EXECUTE IMMEDIATE ‘ANALYZE INDEX ‘||dono||’.’||indice||’ VALIDATE STRUCTURE’;
FOR rec_stats IN cur_stats LOOP
sql_stmt :=’INSERT INTO ‘||USER||’.dba$index_stats VALUES (:1, :2, :3, :4)’;
EXECUTE IMMEDIATE sql_stmt USING dono, indice, rec_stats.pct_delete, SYSDATE;
END LOOP;
COMMIT;
END;<\/p>\n
(dono IN VARCHAR2 DEFAULT USER)
IS
CURSOR cur_indices
IS
SELECT owner dono, index_name nome
FROM dba_indexes
WHERE owner = dono;
BEGIN
FOR rec_indices IN cur_indices LOOP
analisa_indice(rec_indices.dono, rec_indices.nome);
END LOOP;
END;<\/p>\n
IS
CURSOR cur_indices
IS
SELECT owner dono, index_name nome
FROM dba_indexes;
BEGIN
FOR rec_indices IN cur_indices LOOP
analisa_indice(rec_indices.dono, rec_indices.nome);
END LOOP;
END;<\/p>\n
dono IN VARCHAR2 DEFAULT USER,
indice IN VARCHAR2)
IS
BEGIN
EXECUTE IMMEDIATE ‘ALTER INDEX ‘||dono||’.’||indice||’ REBUILD ONLINE’;
END; <\/p>\n
\/<\/p>\n