440: l_str4 := '';
441: l_str5 := '';
442: l_IANA_charset :=PAY_DK_GENERAL.get_IANA_charset ;
443:
444: dbms_lob.createtemporary(p_xml,false,dbms_lob.call);
445:
446: /*Setting the Character Set Dynamically*/
447: --p_xml := '';
448: p_xml := '';
446: /*Setting the Character Set Dynamically*/
447: --p_xml := '';
448: p_xml := '';
449: p_xml := p_xml || '
450: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
451: if xml_tab.count > 0 then
452: for xml_ctr in xml_tab.first .. xml_tab.last LOOP
453: dbms_lob.writeappend( p_xml, length(l_str1),l_str1 );
454: dbms_lob.writeappend( p_xml, length(xml_tab(xml_ctr).tagname), xml_tab(xml_ctr).tagname);
449: p_xml := p_xml || '
450: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
451: if xml_tab.count > 0 then
452: for xml_ctr in xml_tab.first .. xml_tab.last LOOP
453: dbms_lob.writeappend( p_xml, length(l_str1),l_str1 );
454: dbms_lob.writeappend( p_xml, length(xml_tab(xml_ctr).tagname), xml_tab(xml_ctr).tagname);
455: dbms_lob.writeappend( p_xml, length(l_str2),l_str2 );
456: dbms_lob.writeappend( p_xml, length(l_str3),l_str3 );
457: dbms_lob.writeappend( p_xml, length(nvl(xml_tab(xml_ctr).tagvalue,' ')),nvl(xml_tab(xml_ctr).tagvalue,' '));
450: dbms_lob.open(p_xml,dbms_lob.lob_readwrite);
451: if xml_tab.count > 0 then
452: for xml_ctr in xml_tab.first .. xml_tab.last LOOP
453: dbms_lob.writeappend( p_xml, length(l_str1),l_str1 );
454: dbms_lob.writeappend( p_xml, length(xml_tab(xml_ctr).tagname), xml_tab(xml_ctr).tagname);
455: dbms_lob.writeappend( p_xml, length(l_str2),l_str2 );
456: dbms_lob.writeappend( p_xml, length(l_str3),l_str3 );
457: dbms_lob.writeappend( p_xml, length(nvl(xml_tab(xml_ctr).tagvalue,' ')),nvl(xml_tab(xml_ctr).tagvalue,' '));
458: dbms_lob.writeappend( p_xml, length(l_str4),l_str4 );
451: if xml_tab.count > 0 then
452: for xml_ctr in xml_tab.first .. xml_tab.last LOOP
453: dbms_lob.writeappend( p_xml, length(l_str1),l_str1 );
454: dbms_lob.writeappend( p_xml, length(xml_tab(xml_ctr).tagname), xml_tab(xml_ctr).tagname);
455: dbms_lob.writeappend( p_xml, length(l_str2),l_str2 );
456: dbms_lob.writeappend( p_xml, length(l_str3),l_str3 );
457: dbms_lob.writeappend( p_xml, length(nvl(xml_tab(xml_ctr).tagvalue,' ')),nvl(xml_tab(xml_ctr).tagvalue,' '));
458: dbms_lob.writeappend( p_xml, length(l_str4),l_str4 );
459: end loop;
452: for xml_ctr in xml_tab.first .. xml_tab.last LOOP
453: dbms_lob.writeappend( p_xml, length(l_str1),l_str1 );
454: dbms_lob.writeappend( p_xml, length(xml_tab(xml_ctr).tagname), xml_tab(xml_ctr).tagname);
455: dbms_lob.writeappend( p_xml, length(l_str2),l_str2 );
456: dbms_lob.writeappend( p_xml, length(l_str3),l_str3 );
457: dbms_lob.writeappend( p_xml, length(nvl(xml_tab(xml_ctr).tagvalue,' ')),nvl(xml_tab(xml_ctr).tagvalue,' '));
458: dbms_lob.writeappend( p_xml, length(l_str4),l_str4 );
459: end loop;
460: end if;
453: dbms_lob.writeappend( p_xml, length(l_str1),l_str1 );
454: dbms_lob.writeappend( p_xml, length(xml_tab(xml_ctr).tagname), xml_tab(xml_ctr).tagname);
455: dbms_lob.writeappend( p_xml, length(l_str2),l_str2 );
456: dbms_lob.writeappend( p_xml, length(l_str3),l_str3 );
457: dbms_lob.writeappend( p_xml, length(nvl(xml_tab(xml_ctr).tagvalue,' ')),nvl(xml_tab(xml_ctr).tagvalue,' '));
458: dbms_lob.writeappend( p_xml, length(l_str4),l_str4 );
459: end loop;
460: end if;
461: dbms_lob.writeappend( p_xml, length(l_str5),l_str5 );
454: dbms_lob.writeappend( p_xml, length(xml_tab(xml_ctr).tagname), xml_tab(xml_ctr).tagname);
455: dbms_lob.writeappend( p_xml, length(l_str2),l_str2 );
456: dbms_lob.writeappend( p_xml, length(l_str3),l_str3 );
457: dbms_lob.writeappend( p_xml, length(nvl(xml_tab(xml_ctr).tagvalue,' ')),nvl(xml_tab(xml_ctr).tagvalue,' '));
458: dbms_lob.writeappend( p_xml, length(l_str4),l_str4 );
459: end loop;
460: end if;
461: dbms_lob.writeappend( p_xml, length(l_str5),l_str5 );
462: --dbms_lob.createtemporary(p_xml,true);
457: dbms_lob.writeappend( p_xml, length(nvl(xml_tab(xml_ctr).tagvalue,' ')),nvl(xml_tab(xml_ctr).tagvalue,' '));
458: dbms_lob.writeappend( p_xml, length(l_str4),l_str4 );
459: end loop;
460: end if;
461: dbms_lob.writeappend( p_xml, length(l_str5),l_str5 );
462: --dbms_lob.createtemporary(p_xml,true);
463: --clob_to_blob(l_xfdf_string,p_xml);
464: exception
465: when others then
458: dbms_lob.writeappend( p_xml, length(l_str4),l_str4 );
459: end loop;
460: end if;
461: dbms_lob.writeappend( p_xml, length(l_str5),l_str5 );
462: --dbms_lob.createtemporary(p_xml,true);
463: --clob_to_blob(l_xfdf_string,p_xml);
464: exception
465: when others then
466: hr_utility.trace('sqleerm ' || sqlerrm);