Procedure

[ozegarra]

Hola, estoy tratando de crear un store procedure que me devuelva varios registros pero no se como.
Favor alguien me pueda ayudar.
Estoy usando "Sql Manager 2005 lite for InterBase/FireBird"
Esto es lo que tengo y me da un error.

Muchas gracias.
Oscar

Código SQL [-]
 
CREATE PROCEDURE VER_ALMACENES_X_PLANTA(
  PLANTA CHAR(2))
RETURNS(
  CODIGO CHAR(2),
  DESCRIPCION VARCHAR(100))
AS
begin
    for select a.ALM_CODIGO, b.ALM_DESCRIPCION
    from planta_almacenes a, almacenes b
    where a.PLAN_CODIGO = :Planta
    and a.ALM_CODIGO = b.ALM_CODIGO
    into :Codigo, escripcion;
    do Suspend;
end;