Fórum Stored Procedure Chamando Stored Procedure #55013

Boa Tarde !!

Estou com um probleminha aqui no Firebird usando Stored Procedure.
Tenho uma procedure que faz um select e outras para relizarem alguns calculos dentro da 1 procedure.

begin
for
select distinct a.codprod,b.ordem,b.artigo from prodestoque a
inner join produto b on a.codprod = b.codprod
inner join prodg2 c on b.codprodg2 = c.codprodg2
inner join prodg1 d on c.codprodg1 = d.codprodg1
where (a.status = 0) and ((b.qualidade = 1) or (b.qualidade = 2))
order by b.ordem
into :CODPROD,:ORDEM,:ARTIGO
do begin

for
execute procedure totped (:CODPROD) returning_values :TOTALPED;
do

Me retorna um erro - Parsing Error. - Procedure.

Minha procedure TOTPED é assim :

CREATE PROCEDURE TOTPED (
CODPROD INTEGER)
RETURNS (
TOTALPED FLOAT)
AS
begin
for
select SUM(a.METROS) as TOTALPED from OrcaProd a
inner join produto b on a.codprod=b.codprod
where (a.status = 1) and (b.codprod = :CODPROD)
into :TOTALPED
do
suspend;
end


Como posso arrumar isso ? O resultado da procedure TOTPED preciso jogar dentro da variavel PEDIDOS na procedure principal.

Obrigado.