[firebase-br] Somento no Iboconsole e componentes palheta interbase delphi 7 ISC ERROR CODE:335544569 Token unknown ^ no ibexpert da certo

[Claudir Pereira dos Santos]

A procedure funcionou, mas só pelo Ibexpert, não consigo cria-la no iboconsole nem via componentes da paleta interbase pois da erro. 
Vejam logo abaixo. Alguem sabe se isso pode ser corrigido?

/* -----------------------------------------------------------------------------------------------
No iboconsole v1.1.12.4 da o seguinte erro

ISC ERROR CODE:335544569

ISC ERROR MESSAGE:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 14, char 1
^   ele não reconhece o terminador
-----------------------------------------------------------------------------------------------*/

COMMIT WORK;
SET AUTODDL OFF;
set term ^;   /*definindo circunflexo como o terminador*/
create procedure SP_TbLauObstecConcat (Sp_NumAte integer)
returns (LISTA varchar(1024))
as
declare variable AUX varchar(20);
begin
  Lista = '';
  for select L.Lau_ObsTec from Tb_lau L where L.Lau_NumAte = :Sp_NumAte
      into :Aux do
    Lista = :Lista || '-' || :Aux;
  update tb_lau set Lau_ObsTecConcat  = :Lista where Lau_numate =
:Sp_NumAte;
  suspend;
end
^  /* indica fim da sentença*/
set term ;^ /*definindo ; como o terminador*/
COMMIT WORK;
SET AUTODDL ON;

Cordialmente;


Claudir P. Santos
T.I.