Procedimiento Almacenado

[[Héctor Randolph]]

Por cierto, otra cosa más en esta línea tu código seguramente marcará error

Código SQL [-]
INTO :EMPRESA_RET,:dIRECCION:RET,:CIUDAD_RET,:ESTADO_RET DO

Dado que estás tratando de recuperar lo que devuelve el SELECT dentro de variables que no tienes declaradas previamente, puedes corregirlo de esta forma:

Código SQL [-]
ALTER PROCEDURE DIRECTORIO (inicial varchar(1))
returns (
empresa_ret varchar(100),
direccion_ret varchar(100),
ciudad_ret varchar(30),
estado_ret varchar(20))
as
begin
/* Procedure Text */
FOR SELECT EMPRESA,DIRECCION,CIUDAD,ESTADO FROM CLIENTES
WHERE EMPRESA STARTING WITH :inicial
INTO :EMPRESA_RET,:dIRECCION_RET,:CIUDAD_RET,:ESTADO_RET DO
begin
suspend;
end
end

Saludos