create function VFP.STRFILTER
(cExpressionSearched varchar( 4000 ), cSearchExpression varchar( 256 ))
returns varchar( 4000 )
specific  STRFILTER
deterministic no external action contains sql
-- STRFILTER() User-Defined Function
-- Removes all characters from a string except those specified.
-- STRFILTER( cExpressionSearched,  cSearchExpression)
-- Return Values  varchar(4000)
-- Parameters
--  cExpressionSearched  Specifies the character string to search.
--  cSearchExpression Specifies the characters to search for and retain in  cExpressionSearched.
-- Remarks
-- STRFILTER( ) removes all the characters from  cExpressionSearched that are not in  cSearchExpression, then returns the characters that remain.
-- Example
-- values VFP.STRFILTER('asdfghh5hh1jk6f3b7mn8m3m0m6','0123456789');  -- Displays 516378306
-- values VFP.STRFILTER('ABCDABCDABCD', 'AB');  -- Displays ABABAB
-- See Also CHRTRAN()  
begin atomic
   declare i smallint default  255  ;
     while i >=  0  and locate(chr(i), cSearchExpression) >  0   do
        set i =  i  -   1 ;
     end while;
  return case when i >=  0  then replace(translate(cExpressionSearched, cSearchExpression, cast(cSearchExpression concat cExpressionSearched as varchar( 4256 )), chr(i)), chr(i), '') else cExpressionSearched end;  
end             
@

declare i smallint default  255  ;
     while i >=  0  and locate(chr(i), cSearchExpression) >  0   do
        set i =  i  -   1 ;
     end while;

--  баг встроенной функции locate
values locate('','string', 100 );  -- возвращает 100, вообще, можно указать любое число в качестве третьего аргумента и функция возвратит его (если первый аргумент пустая строка). Хотя должна была бы возвращать всегда 0.

--  баг встроенной функции insert
values insert(repeat('a', 4000 ),  4000 ,  1 , 'b');   -- вызывает ошибку со следующим сообщением

SQL0443N  Подпрограмма "SYSFUN.INSERT" (с уникальным именем "INSERT1") вернула 
код ошибки в SQLSTATE и диагностическое сообщение "SYSFUN:01".  SQLSTATE= 38552 
SQL0443N  Подпрограмма "SYSFUN.INSERT" (с уникальным именем "INSERT1") вернула код ошибки в SQLSTATE и диагностическое сообщение "SYSFUN:01                                       ".

Хотя правильный результат  должен быть repeat('a', 3999 ) || ‘b’.

--  баг встроенной функции ascii 
values ascii(chr( 0 ));  -- возвращает  32 ,  правильный результат    0 

select locate('','string', 100 ) from sysibm.sysdummy1;  -- возвращает  1  правильный результат  0