Submitted by: Mustafa YILMAZ (myilmaz)

Duplicates CORE4604

Votes: 1

test sql:
set term ^ ;

DECLARE EXTERNAL FUNCTION strlen
CSTRING(32767)
RETURNS INTEGER BY VALUE
ENTRY_POINT 'IB_UDF_strlen' MODULE_NAME 'ib_udf' ^

execute block
returns
(
a integer
)
as
begin
execute statement ('SELECT strlen(?) FROM RDB$DATABASE') ('123') into :a;
suspend;
execute statement ('SELECT strlen(''123'') FROM RDB$DATABASE') into :a;
suspend;
end

result:
32767
3

in metd.epp:
// dimitr: adjust the UDF arguments for CSTRING
if (d.dsc_dtype == dtype_cstring) {
d.dsc_dtype = dtype_text;