execute block (searchstr varchar(100)=?searchstr)
returns (SQL varchar(2048))
as
declare variable object_name varchar(32);
declare variable field_name varchar(32);
declare variable WSQL varchar(2048);
begin
  -- select all tables
  for select rdb$relations.rdb$relation_name
      from rdb$relations
      where rdb$relations.rdb$system_flag=0 and
            rdb$relations.rdb$view_blr is null
      into :object_name
  do begin
       SQL=''; WSQL='';
       for select trim(rdb$relation_fields.rdb$field_name)
           from rdb$relation_fields
           join rdb$fields on (rdb$fields.rdb$field_name=rdb$relation_fields.rdb$field_source and
                               rdb$fields.rdb$field_type in (14,37))
           where rdb$relation_fields.rdb$relation_name=:object_name
           into :field_name
        do begin
             SQL=SQL||field_name||',';
             WSQL=WSQL||'('||field_name||' containing '''||searchstr||''') OR';
           end
        SQL=trim(',' from SQL);
        WSQL=trim('OR' from WSQL);
        SQL='SELECT '||SQL||' FROM '||trim(object_name)||' WHERE '||WSQL;
        suspend;
     end
end

execute block (searchstr varchar(100)=?searchstr)
returns (SQL varchar(2048), WSQL varchar(2048), aresult varchar(10))
as
declare variable object_name varchar(32);
declare variable field_name varchar(32);
declare variable fn varchar(32);
declare variable longfield varchar(1024);
begin
  -- select all tables
  for select rdb$relations.rdb$relation_name
      from rdb$relations
      where rdb$relations.rdb$system_flag=0 and
            rdb$relations.rdb$view_blr is null
      into :object_name
  do begin
       SQL=''; WSQL='';
       for select trim(rdb$relation_fields.rdb$field_name)
           from rdb$relation_fields
           join rdb$fields on (rdb$fields.rdb$field_name=rdb$relation_fields.rdb$field_source and
                               rdb$fields.rdb$field_type in (14,37))
           where rdb$relation_fields.rdb$relation_name=:object_name
           into :field_name
        do begin
             SQL=SQL||field_name||',';
             fn=field_name;
             WSQL=WSQL||'('||field_name||' containing '''||searchstr||''') OR';
           end
        SQL=trim(',' from SQL);
        WSQL=trim('OR' from WSQL);
        if (WSQL<>'') then  -- skip tables without char/varchar field
           begin
             SQL='SELECT '||SQL||' FROM '||trim(object_name)||' WHERE '||WSQL;
             WSQL='SELECT FIRST 1 '||fn||' FROM '||trim(object_name)||' WHERE '||WSQL;
             longfield=NULL;
             execute statement WSQL into :longfield;
             if (longfield is not null) then ARESULT='OK'; else ARESULT='';
             suspend;
           end
     end
end