Saludos.
Cambie un poco tu sentencia y a esto es que me refiero
Código SQL
[-]
FOR SELECT A.ALM_CODIGO, B.ALM_DESCRIPCION
FROM PLANTA_ALMACENES A
INNER JOIN ALMACENES B ON A.ALM_CODIGO = B.ALM_CODIGO
WHERE A.PLAN_CODIGO = :PLANTA
INTO :CODIGO, 
ESCRIPCION
DO
BEGIN
SUSPEND;
END;
Hasta luego.