Sorry,

It was reply for Moravecz László in message 31075:

//--------------
int eMeL_DBKey2RowNum(char * str8bytes)
{
int * ipLow = (int *)(str8bytes + 4);
return *ipLow;
}

//--------------
declare external function eMeL_DBKey2RowNum cstring(8)
returns integer by value
entry_point '_eMeL_DBKey2RowNum' module_name 'IB_eMeL.dll';

//--------------
select eMeL_DBKey2RowNum(RDB$DB_KEY) as EMEL_ROWNUM from XXXTABLE;


--- In firebird-support@yahoogroups.com, Pere Vilàs <pvilas@b...>
wrote:

> Hi,
>
> SQL> select rdb$db_key from articulos;
>
> DB_KEY
> ================
>
> 0000008500000001
> 0000008500000002
>
> but
>
> SQL> select * from proves('ARTICULOS');
>
> NUM
> ================
>
> à
> à
>
> and
>
> CREATE PROCEDURE PROVES( TAULA VARCHAR(20) )
> RETURNS ( NUM char(16) )
> AS
> begin
> FOR execute statement 'select rdb$db_key from '||taula

into :num DO

> SUSPEND;
> end
>
> It doesn't work with integer, char(100), bigint, ... It is a

problem of

> execute statement?.
>
> Pere