Эта библиотека называется inv.pll. Дайте мне ваш электронный адрес в личном сообщении, и я отправлю вам этот файл. Вот вам тело этой функции, если этого достаточно:
GET_PRECISION procedure get_precision (id IN NUMBER) is
begin
srw.attr.mask := SRW.FORMATMASK_ATTR;
--Bug 1403394 Earlier Characters are hard coded now changed.
if id = 0 then srw.attr.formatmask := '-NNNGNNNGNNNGNN0';
else
if id = 1 then srw.attr.formatmask := '-NNNGNNNGNNNGNN0D0';
else
if id = 3 then srw.attr.formatmask := '-NNGNNNGNNNGNN0D000';
else
if id = 4 then srw.attr.formatmask := '-NGNNNGNNNGNN0D0000';
else
if id = 5 then srw.attr.formatmask := '-NNNGNNNGNN0D00000';
else
if id = 6 then srw.attr.formatmask := '-NNGNNNGNN0D000000';
else
if id = 7 then srw.attr.formatmask := '-NNNNNNNNNNN0';
else
if id = 8 then srw.attr.formatmask := '-NNNNNNNNNNN0D0';
else
if id = 9 then srw.attr.formatmask := '-NNNNNNNNNN0D00';
else
if id = 10 then srw.attr.formatmask := '-NNNNNNNNNN0D000';
else
if id = 11 then srw.attr.formatmask := '-NNNNNNNNN0D0000';
else
if id = 12 then srw.attr.formatmask := '-NNNNNNNN0D00000';
else
if id = 13 then srw.attr.formatmask := '-NNNNNNN0D000000';
else srw.attr.formatmask := '-NNNGNNNGNNNGNN0D00';
end if; end if; end if; end if; end if; end if;
end if; end if; end if; end if; end if; end if; end if;
srw.set_attr(0,srw.attr);
end;