declare

je number := 1000000000100000.01;

snum varchar2(30) := to_char(round(abs(je * 100)));

len pls_integer := length(snum);

sch varchar2(30) := '壹贰叁肆伍陆柒捌玖';

sjin varchar2(80) := '分角圆拾佰仟万拾佰仟亿拾佰仟万拾佰仟';

srmb varchar2(100) := '';

num pls_integer;

flage boolean := true;

begin

for i in 1 .. len

loop

num := to_number(substr(snum, len - i + 1, 1));

if i = 11 and substr(srmb, 1, 1) = '万' then

srmb := case when substr(srmb, 2, 1) not in ('零', '圆') then '零' end || substr(srmb, 2);

end if;

if num > 0 then

srmb := substr(sch, num, 1) || substr(sjin, i, 1) || srmb;

flage := true;

elsif i in (3, 7, 11, 15) then

srmb := substr(sjin, i, 1) || srmb;

flage := false;

elsif flage then

srmb := case when i = 1 then '整' else '零' || srmb end;

flage := false;

end if;

end loop;

if je < 0 then

srmb := '负' || srmb;

end if;

dbms_output.put_line(srmb);

end;