Error en stored procedure
 

Hola amigos, tengo esta SP que es para cambiar la clave de un indice (no PK), la ejecuto desde el IBExpert y no chilla pero luego de darle commit me sale un error:

Código SQL [-]
CREATE PROCEDURE FIX_PATCH_2 
as
declare variable lsql varchar(500);
declare variable ltable_name varchar(25);
declare variable lindex_name varchar(25);
begin
  for
    select TABLE_NAME from TV_CALL_TABLES
    where DIRECTION_TYPE = 'O'
    into :ltable_name
  do
  begin
    SELECT RDB$INDEX_NAME
    FROM RDB$INDICES
    WHERE (RDB$RELATION_NAME = :ltable_name)
    AND (RDB$INDEX_ID > 1)
    INTO :lindex_name;

    execute statement 'DROP INDEX ' || :lindex_name;
    execute statement 'CREATE INDEX ' || :lindex_name || ' ON ' || :ltable_name || ' (QUEUE_CALL,TIMESTAMP_CALL,RETRIES_CALL,SORT_ORDER,REC_ID)';
  end
end

Este es el error:
Alguna ayudita por favor.
Gracias

Creo que el error no tiene nada que ver con el SP (aunque puede estar motivado por el mismo), sino que tu base de datos está corrupta.

Una búsqueda por el foro, podrás encontrar más información sobre cómo recuperar una BD de Firebird corrupta.

Mira estos enlaces para resolver el asunto:

http://www.destructor.de/firebird/index.htm
http://www.firebirdsql.org/manual/gbak.html
http://www.firebirdsql.org/manual/gfix-dbverify.html

Gracias defcon1_es, el problema no era la SP sino una de las tablas estaba corrupta.