Looks well but I get parsing error compiling it

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 4, column 9.
BLOCK.


CREATE PROCEDURE DROP_PROC
AS
begin
EXECUTE BLOCK AS
BEGIN
if (exists(select 1
from RDB$PROCEDURES where RDB$PROCEDURE_NAME = 'PROC'))
then
EXECUTE STATEMENT 'drop procedure PROC';
END
end

--- In firebird-support@yahoogroups.com, Milan Babuskov <milanb@...>
wrote:

>
> S?awek Cabaj wrote:
> > Let's say I don't know is there in the database such
> > procedure as PROC. I'd like to check it and if it is there to

drop it.

>
> EXECUTE BLOCK AS
> BEGIN
> if (exists(select 1
> from RDB$PROCEDURES where RDB$PROCEDURE_NAME = 'PROC'))
> then
> EXECUTE STATEMENT 'drop procedure PROC';
> END
>
> --
> Milan Babuskov
> http://fbexport.sourceforge.net
>