[firebase-br] Erro em Store Procedure

[Marcos Oliveira]

Tenho a seguinte Procedure:

CREATE PROCEDURE TRANSFERIR_TURMAS (
    VTUR_COD INTEGER,
    VANO_CORRENTE DATE)
RETURNS (
    VNOVA_TURMA INTEGER,
    VALU_COD INTEGER,
    VMATR_NUMERO INTEGER,
    VMATR_DATASAIDA DATE,
    VMATR_DATA DATE)
AS
BEGIN
/* Início da Procedure */

for SELECT ALU_COD, MATR_ANOLETIVO, MATR_NUMERO, TUR_COD, MATR_DATA, 
MATR_DATASAIDA
FROM emm_dadosmatr
WHERE TUR_COD = :vtur_cod and MATR_ANOLETIVO = :vano_corrente
INTO :valu_cod, :vano_corrente, :vmatr_numero, :vtur_cod,
      :vmatr_data, :vmatr_datasaida
DO
BEGIN
INSERT INTO emm_dadosmatr ( ALU_COD, MATR_ANOLETIVO, MATR_NUMERO, TUR_COD, 
MATR_DATA, MATR_DATASAIDA )
values ( :valu_cod, :vano_corrente + 1, :vmatr_numero, :vnova_turma, 
:vmatr_data, :vmatr_datasaida );
suspend;
END


a idéia é o seguinte quero filtrar em uma turma no ano corrente e inserir na 
mesma tabela para outra turma no próximo ano...
alguem poderia me ajudar...

_________________________________________________________________
Natal no MSN Shopping: COMPROU, GANHOU $$! Veja Como! 
http://shopping.msn.com.br/MSNSHopping/GuiaEspeciais/Natal/conteudo.aspx?cd_guia=20&cd_funcao=238