with A(ID) as
(
select cast(x'CBE0E1EEF0E0F2EEF0EDFBE5' as varchar(1024) character set WIN1251) from rdb$database
 union all
select cast(x'E7E0E4E0EDE8FF' as varchar(1024) character set WIN1251) from rdb$database
 union all
select cast(x'E4E5EBE0E9' as varchar(1024) character set WIN1251) from rdb$database
 union all
select cast(x'F1E0ECEEF1F2EEFFF2E5EBFCEDEE21' as varchar(1024) character set WIN1251) from rdb$database
)
select list(ID, ' ') from A

create exception ex_trololo 'trololo! invalid passport!';
commit;

execute block
as
    declare s varchar(10) = '0103001000';
    declare n bigint;
begin
  if (char_length(trim(s))<>10) then exception ex_trololo;
  n = cast('1' || s as bigint);
  when any do exception ex_trololo;
end

  n = cast('1' || s as bigint);

n = cast(s as bigint);

IF (s NOT LIKE '__\___\_______' ESCAPE '\') THEN
   EXCEPTION ex_trololo;

select iif('ти-па-фигняс' not like '__-__-______' escape '\', 'bad','ok')
from rdb$database;