Procedure, retornar média

Assuntos Gerais
#1 
create procedure listarmediaalunobdii(alura integer) returns (avg(nnota))
as
  begin
      for
        select avg(nnota)
        from nota, disciplina,aluno
        where notaalura=:alura and notadiscodigo=discodigo  and disnome = 'BDII' 
        into avg(nnota)
        do     
            suspend;
   end!!

Olá, estou com problemas para recuperar a média de notas através da procedure passo o código do aluno e preciso da média dele em uma determinada matéria…

#2

ja corrigi

create procedure listarmediaalunobdii(alura integer) returns (nnota))
as
begin
for
select avg(nnota)
from nota, disciplina,aluno
where notaalura=:alura and notadiscodigo=discodigo and disnome = 'BDII’
into avg(nnota)
do
suspend;
end!!

#3