510: l_xfdf_string clob;
511: l_str1 varchar2(6000);
512: begin
513: hr_utility.set_location('Entered Procedure Write to clob ',100);
514: dbms_lob.createtemporary(p_xml,FALSE,DBMS_LOB.CALL);
515: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
516: if vXMLTable.count > 0 then
517: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
518: -- Bug 4705094
511: l_str1 varchar2(6000);
512: begin
513: hr_utility.set_location('Entered Procedure Write to clob ',100);
514: dbms_lob.createtemporary(p_xml,FALSE,DBMS_LOB.CALL);
515: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
516: if vXMLTable.count > 0 then
517: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
518: -- Bug 4705094
519: l_str1 := TO_UTF8(vXMLTable(ctr_table).xmlString);
516: if vXMLTable.count > 0 then
517: FOR ctr_table IN vXMLTable.FIRST .. vXMLTable.LAST LOOP
518: -- Bug 4705094
519: l_str1 := TO_UTF8(vXMLTable(ctr_table).xmlString);
520: dbms_lob.writeAppend( p_xml, length(l_str1), l_str1 );
521: END LOOP;
522: end if;
523: --DBMS_LOB.CREATETEMPORARY(p_xml,TRUE);
524: --clob_to_blob(l_xfdf_string,p_xml);
519: l_str1 := TO_UTF8(vXMLTable(ctr_table).xmlString);
520: dbms_lob.writeAppend( p_xml, length(l_str1), l_str1 );
521: END LOOP;
522: end if;
523: --DBMS_LOB.CREATETEMPORARY(p_xml,TRUE);
524: --clob_to_blob(l_xfdf_string,p_xml);
525: hr_utility.set_location('Finished Procedure Write to CLOB ,Before clob to blob ',110);
526: EXCEPTION
527: WHEN OTHERS then
540: l_chunk_len number;
541: l_blob blob;
542: begin
543: hr_utility.set_location('Entered Procedure clob to blob',120);
544: l_length_clob := dbms_lob.getlength(p_clob);
545: l_offset := 1;
546: while l_length_clob > 0 loop
547: hr_utility.trace('l_length_clob '|| l_length_clob);
548: if l_length_clob < l_buffer_len then
549: l_chunk_len := l_length_clob;
550: else
551: l_chunk_len := l_buffer_len;
552: end if;
553: DBMS_LOB.READ(p_clob,l_chunk_len,l_offset,l_varchar_buffer);
554: l_raw_buffer := utl_raw.cast_to_raw(l_varchar_buffer);
555: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
556: dbms_lob.writeappend(p_blob,l_chunk_len,l_raw_buffer);
557: l_offset := l_offset + l_chunk_len;
552: end if;
553: DBMS_LOB.READ(p_clob,l_chunk_len,l_offset,l_varchar_buffer);
554: l_raw_buffer := utl_raw.cast_to_raw(l_varchar_buffer);
555: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
556: dbms_lob.writeappend(p_blob,l_chunk_len,l_raw_buffer);
557: l_offset := l_offset + l_chunk_len;
558: l_length_clob := l_length_clob - l_chunk_len;
559: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
560: end loop;
555: hr_utility.trace('l_varchar_buffer '|| l_varchar_buffer);
556: dbms_lob.writeappend(p_blob,l_chunk_len,l_raw_buffer);
557: l_offset := l_offset + l_chunk_len;
558: l_length_clob := l_length_clob - l_chunk_len;
559: hr_utility.trace('l_length_blob '|| dbms_lob.getlength(p_blob));
560: end loop;
561: hr_utility.set_location('Finished Procedure clob to blob ',130);
562: end clob_to_blob;
563: