Thanks!
It work!

Best Regards!
Miki A

--- In firebird-support@yahoogroups.com, Helen Borrie <helebor@t...>
wrote:

>
> At 04:03 PM 10/10/2005 +0200, you wrote:
> >I would like to make procedure that return value form generator.
> >Name of generator i send to procedure like parameter.
> >If that generator does not exists procedure will make them.
> >
> >Code of procedure:
>
> Life is just not that hard!!! Recode it like this:
>
> CREATE PROCEDURE PROC_NOVA_SIFRA_GEN(GEN VARCHAR(31)) /* not

varchar(50) */

> RETURNS (SIF BIGINT)
> AS
> declare variable gname varchar(31) = ''; /* initialize as empty

string */

> DECLARE VARIABLE SQL1 VARCHAR(80);
> begin
> /* Is generator exist? */
> select rdb$generator_name from rdb$generators
> where rdb$generator_name = :GEN
> INTO :gname;
>
> if (gname <> GEN) then
> begin
> sql1 = 'create generator '|| :GEN;
> execute statement sql1;
> end
> sql1 = 'select gen_id (' || GEN || ',1) from rdb$database';
> execute statement sql1 into :SIF;
> suspend;
> end
>
>
> ./heLen
>