Store Procedure

Boa Tarde pessoal,
Eu fiz uma procedure que chama varias procedures. O corpo da procedure parece esta certo, mas quando eu compilo, da um erro no DO
EU GOSTARIA DE UMA AJUDA, POR FAVOR

MUITO OBRIGADO

CREATE PROCEDURE GERAL_MERC (
PDATA1 DATE,
PDATA2 DATE)
RETURNS (
RCODIGO VARCHAR(14),
RDESCRICAO VARCHAR(60),
RQTENTRADA NUMERIC(15,3),
RQTDVENTRADAS NUMERIC(15,3),
RQTSAIDAS NUMERIC(15,3),
RQTDVSAIDAS NUMERIC(15,3),
RQTTROCAS NUMERIC(15,3),
RQTTRANSF NUMERIC(15,3),
RQTSALDO NUMERIC(15,3))
AS
begin
select M.DESCMERCADORIA, M.CODMERCADORIA, EN.RENTRADA, DE.RDVENTRADA, SA.RSAIDA,
DS.RSAIDA, SA.RSAIDA_TRANSF, TR.RQTD, TR.RVALOR
from MERCADORIA M, MOVENT_MERCADORIA(:pDATA1,:pDATA2)EN,
MOVSAI_MERC(:PDATA1, :PDATA2)SA,
MOVDEN_MERC(:pDATA1, :pDATA2) DE,
MOVDSA_MERC(:pDATA1, :pDATA2) DS,
MOVTROC_MERC(:pDATA1, :pDATA2)TR
group by
M.DESCMERCADORIA, M.CODMERCADORIA, EN.RENTRADA, DE.RDVENTRADA, SA.RSAIDA,
DS.RSAIDA, SA.RSAIDA_TRANSF, TR.RQTD, TR.RVALOR
INTO
:RCODIGO, :RDESCRICAO, :RQTENTRADA, :RQTDVENTRADAS, :RQTSAIDAS, :RQTDVSAIDAS
,:RQTTROCAS,:RQTTRANSF, :RQTSALDO DO
suspend;
end
END