[Lazarus] Problem with TSQLScript

[Paul]

Hello,

I have problem with TSQLScript (?)
Script looks like that

SET TERM ^ ;
CREATE PROCEDURE GET_USER_PRIVILEGES (
USER_ACCOUNT VARCHAR(10))
RETURNS (
    RESULT CHAR(1))
AS
BEGIN
     FOR
     SELECT DISTINCT RDB$PRIVILEGE
     FROM RDB$USER_PRIVILEGES
     WHERE (RDB$USER = :USER_ACCOUNT)
     INTO :RESULT
     DO
     BEGIN
          SUSPEND;
     END
END
^
SET TERM ; ^

and the error message looks like that
{...}PrepareStatement
-Dynamic SQL Error
-SQL Error Code = -104
Token unknown - line 11, column 11
-?

line 11 ->    INTO :RESULT
column 11-> :

FlameRobin does not have any problems with this piece of code

Any hints ?
Paul

I use Lazarus 1.0.10, Firebird 2.5 on Ubuntu 32bit

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus