dgsoft/alexandria-plsql-utils
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bugfix add1xml

Browse Source 
When the length of p_xml would be an exact multitude of 4000 the loop
over chunks would execute one time too much, causing "ORA-06502: PLSQL:
numeric of value error: invalid LOB locator specified: ORA-22275",
because the second part of dbms_lob.append would be NULL. A check is
added on the length of the clob and if if the mod of 4000 is zero, we
decrease the amount of loops by one.
This commit is contained in:
tompetrus 2016-05-20 16:29:56 +02:00
parent a7d8f9e34e
commit ae8f2d2058
1 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
ora/xlsx_builder_pkg.pkb
View File

@ -774,22 +774,29 @@ as
workbook.sheets( t_sheet ).autofilters( t_ind ).row_end := p_row_end; workbook.sheets( t_sheet ).autofilters( t_ind ).row_end := p_row_end;
end; end;
-- --
procedure add1xml procedure add1xml
( p_excel in out nocopy blob ( p_excel in out nocopy blob
, p_filename varchar2 , p_filename varchar2
, p_xml clob , p_xml clob
) )
is is
t_tmp blob; t_tmp blob;
begin l_count binary_integer;
begin
dbms_lob.createtemporary( t_tmp, true ); dbms_lob.createtemporary( t_tmp, true );
for i in 0 .. trunc( length( p_xml ) / 4000 ) l_count := trunc( length( p_xml ) / 4000 );
loop
dbms_lob.append( t_tmp, utl_i18n.string_to_raw( substr( p_xml, i * 4000 + 1, 4000 ), 'AL32UTF8' ) ); if mod( length( p_xml ), 4000 ) = 0 then
end loop; l_count := greatest(l_count - 1, 0);
add1file( p_excel, p_filename, t_tmp ); end if;
dbms_lob.freetemporary( t_tmp );
end; for i in 0 .. l_count
loop
dbms_lob.append( t_tmp, utl_i18n.string_to_raw( substr( p_xml, i * 4000 + 1, 4000 ), 'AL32UTF8') );
end loop;
add1file( p_excel, p_filename, t_tmp );
dbms_lob.freetemporary( t_tmp );
end;
-- --
function finish function finish
return blob return blob