CREATE OR REPLACE TYPE strsplit_type AS TABLE OF VARCHAR2(32676);

CREATE OR REPLACE FUNCTION strsplit(p_value VARCHAR2, p_split VARCHAR2 := ‘,‘)
 --usage: select * from table(strsplit(‘1,2,3,4,5‘))
 RETURN strsplit_type
PIPELINED IS
 v_idx       INTEGER;
 v_str       VARCHAR2(500);
 v_strs_last VARCHAR2(4000) := p_value;
BEGIN
 LOOP
  v_idx := instr(v_strs_last, p_split);
  EXIT WHEN v_idx = 0;
  v_str       := substr(v_strs_last, 1, v_idx - 1);
  v_strs_last := substr(v_strs_last, v_idx + 1);
  PIPE ROW(v_str);
 END LOOP;
 PIPE ROW(v_strs_last);
 RETURN;
END strsplit;

CREATE OR REPLACE PROCEDURE UP_CHECK_TO_REBUILD_INDEX
(
       tbNames varchar
)
IS
    sqlstr VARCHAR2(100);
    idx_ratio INT;
BEGIN       
    --DECLARE sqlstr VARCHAR2(100);
    --        idx_ratio INT;
    BEGIN
        FOR idx IN (SELECT t.index_name FROM user_indexes t 
                    WHERE t.index_type = ‘NORMAL‘ AND t.status = ‘VALID‘ AND t.temporary = ‘N‘ AND t.leaf_blocks > 100
                        AND t.table_name IN (SELECT UPPER(TRIM(COLUMN_VALUE)) from table(strsplit(tbNames))) --//(‘TKK29‘)
                    ORDER BY t.table_name, t.index_name
                   )
        LOOP
            DBMS_OUTPUT.put_LINE(idx.index_name || ‘ ANALYZE START ‘ || TO_CHAR(SYSDATE, ‘yyyy-MM-dd hh24:mi:ss‘));
            sqlstr := ‘ANALYZE INDEX ‘ || idx.Index_Name || ‘ VALIDATE STRUCTURE‘;
            EXECUTE IMMEDIATE sqlstr;
            
            SELECT TRUNC((t.del_lf_rows/t.lf_rows) * 100) INTO idx_ratio 
            FROM index_stats t WHERE t.name=idx.index_name AND ROWNUM=1;
            
            IF (idx_ratio >= 15) THEN
               DBMS_OUTPUT.put_line(‘    REINDEX ‘ || TO_CHAR(SYSDATE, ‘yyyy-MM-dd hh24:mi:ss‘) || ‘ ratio: ‘ || idx_ratio);
               sqlstr := ‘ALTER INDEX ‘ || idx.index_name || ‘ REBUILD‘;
               EXECUTE IMMEDIATE sqlstr;
            END IF;
        END LOOP;
    END;
END UP_CHECK_TO_REBUILD_INDEX;



SQL>exec UP_CHECK_TO_REBUILD_INDEX(‘TKK29, muser‘);

begin
       UP_CHECK_TO_REBUILD_INDEX(‘TKK29, muser‘);
end;