Error en stored procedure

[jars]

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:

Unsuccessful execution caused by a system error that precludes
successful execution of subsequent statements.
internal gds software consistency check (cannot find record back version (291)).

Alguna ayudita por favor.
Gracias

[defcon1_es]

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

[jars]

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