CREATE OR REPLACE
PROCEDURE INDEXACION AS
  CURSOR C_TUPLAS IS
    SELECT COLUMN_NAME, TABLE_NAME
    FROM USER_CONS_COLUMNS
    WHERE CONSTRAINT_NAME
    IN
    (
      SELECT CONSTRAINT_NAME
      FROM USER_CONSTRAINTS
      WHERE TABLE_NAME
      IN
      (
        SELECT TABLE_NAME
        FROM USER_TABLES
      )
      AND CONSTRAINT_TYPE='R'
    );
  V_NOMBRE_COLUMNA VARCHAR2(30);
  V_NOMBRE_TABLA VARCHAR2(30);
  V_TIPO_INDICE NUMBER; -- 0: Árbol B+ ; 1: Bitmap
BEGIN
  OPEN C_TUPLAS;
  LOOP
    FETCH C_TUPLAS INTO V_NOMBRE_COLUMNA, V_NOMBRE_TABLA;
    EXIT WHEN C_TUPLAS%NOTFOUND;

      -- Mostrar información
    --DBMS_OUTPUT.PUT_LINE('Tabla:    '||V_NOMBRE_TABLA);
    --DBMS_OUTPUT.PUT_LINE('Columna:  '||V_NOMBRE_COLUMNA);

    V_TIPO_INDICE := ESTUDIAR_INDICE(V_NOMBRE_COLUMNA,V_NOMBRE_TABLA);
    CREAR_INDICE(V_NOMBRE_COLUMNA, V_NOMBRE_TABLA, V_TIPO_INDICE);
    --DBMS_OUTPUT.PUT_LINE('---------------------------------------------');
  END LOOP;
END INDEXACION;