BanditJolly,

спасибо, пригодилось.

Несколько модифицированная функция

B_DIGITS: 1 вытаскивает только цифры, 0 только нецифры


create or alter procedure RSP11_EXTRACT_DIGITS (
STRING varchar(32),
B_DIGITS integer)
returns (
CH_RESULT varchar(32))
AS
declare variable CH char(1);
declare variable L integer;
declare variable I integer;
begin
CH_RESULT = '';
L = CHAR_LENGTH(string);
I = 1;
while (I <= L) do begin
CH = substring(STRING from I for 1);
if
(
((CH between '0' and '9') AND (B_DIGITS=1))
or
(not (CH between '0' and '9') AND (B_DIGITS=0))
)
then
CH_RESULT = CH_RESULT || CH;
I = I + 1;
end
suspend;
end