[firebase-br] Ref. Executar SQL

[Omar Haddad]

Salve srs(as).,

Tenho um script com várias sentenças como a debaixo, tentei rodar no SQL
monitor ou no Script Executive e resultou em erro.





CREATE PROCEDURE FU_ABS(
   WVAR DOUBLE PRECISION)
   RETURNS (
   R_ABS DOUBLE PRECISION)
   AS
   begin
   /*
   devolve o valor Absoluto de um número.
   -123,47 ou 123,47 devolve sempre 123,47
   */
   if (:wvar is not null) then begin
   if (:wvar < 0.0000) then
   r_abs = :wvar * -1;
   else
   r_abs = :wvar;
   end

suspend;
   end

--===================================
   CREATE PROCEDURE FU_ALLTRIM(
   WVAR VARCHAR(8192))
   RETURNS (
   R_ALLTRIM VARCHAR(8192))
   AS
   DECLARE VARIABLE T SMALLINT;
   begin
   /*
   Devolve um string sem espaços
   */
   select r_Len from Fu_Len(:wvar) into :t;
   r_alltrim = '';

while ((:wvar is not null) and (:t > 0)) do begin
   if (substring(:wvar from 1 for 1) <> ' ') then
   r_alltrim = :r_alltrim || substring(:wvar from 1 for 1);

 wvar = substring(:wvar from 2 for 8191);
   t = :t - 1;
   end

suspend;
   end


-- 
Att.
Omar Marques Haddad
Analista de Sistemas Sênior