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
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