Fórum Procedure #44768

Pessoal, não consigo executar a procedure abaixo. O interbase acusa erro na [b:7efa4be1a7]SUSPEND[/b:7efa4be1a7]

CREATE PROCEDURE SERIES_ALUNO
(
iCODBIO INTEGER,
iCODMED INTEGER,
iCODEXER INTEGER,
iDIA INTEGER,
iQTD_REP INTEGER,
iQTD_SERIE INTEGER
)
AS
BEGIN
FOR SELECT codexer, dia, qtd_rep, qtd_serie
FROM Series_Padrao
WHERE codbio = :iCodBio
INTO :codexer, :dia, :qtd_rep, :qtd_serie
DO BEGIN
INSERT INTO Series_aluno (codmed, codexer, dia, qtd_rep, qtd_serie)
values (:iCodMed, :codexer, :dia, : qtd_rep, :qtd_serie)
DO BEGIN
SUSPEND;
END
END
END
^