Что то не удалось этот код использовать, взял другой из инета.
Ниже готовая функция.
SQL код:
create or replace function pdf_to_alccode( p_in in varchar2) return varchar2
is
p_str varchar2 (200) := upper (substr(p_in,4,16));
l_num number default 0;
l_hex varchar2(50) default '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
if (p_str is NULL) then
return NULL;
end if;
for i in 1 .. length(p_str) loop
l_num := l_num * 36 + instr(l_hex,upper(substr(p_str,i,1)))-1;
end loop;
return lpad(l_num,19,'0');
end pdf_to_alccode;
/
commit;