672: l_str12 := '
673: l_str13 := '
674: l_str14 := '
675: l_str15 := '
676: dbms_lob.createtemporary (l_xfdf_string, FALSE , dbms_lob.CALL);
677: dbms_lob.OPEN (l_xfdf_string, dbms_lob.lob_readwrite);
678: current_index := 0;
679:
680: IF xml_tab.count > 0 THEN
673: l_str13 := '';
674: l_str14 := '
675: l_str15 := '
676: dbms_lob.createtemporary (l_xfdf_string, FALSE , dbms_lob.CALL);
677: dbms_lob.OPEN (l_xfdf_string, dbms_lob.lob_readwrite);
678: current_index := 0;
679:
680: IF xml_tab.count > 0 THEN
681: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
677: dbms_lob.OPEN (l_xfdf_string, dbms_lob.lob_readwrite);
678: current_index := 0;
679:
680: IF xml_tab.count > 0 THEN
681: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
682: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str12), l_str12);
683:
684: FOR table_counter IN xml_tab.FIRST .. xml_tab.LAST
685: LOOP
678: current_index := 0;
679:
680: IF xml_tab.count > 0 THEN
681: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
682: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str12), l_str12);
683:
684: FOR table_counter IN xml_tab.FIRST .. xml_tab.LAST
685: LOOP
686: l_str8 := xml_tab (table_counter).tagname;
686: l_str8 := xml_tab (table_counter).tagname;
687: l_str9 := xml_tab (table_counter).tagvalue;
688:
689: IF l_str8 = 'ORG_NAME' THEN
690: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str14), l_str14);
691: END IF;
692:
693: IF l_str9 IS NOT NULL THEN
694: l_str9 := '';
691: END IF;
692:
693: IF l_str9 IS NOT NULL THEN
694: l_str9 := '';
695: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
696: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
697: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
698: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
699: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
692:
693: IF l_str9 IS NOT NULL THEN
694: l_str9 := '';
695: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
696: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
697: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
698: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
699: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
700: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
693: IF l_str9 IS NOT NULL THEN
694: l_str9 := '';
695: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
696: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
697: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
698: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
699: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
700: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
701: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
694: l_str9 := '';
695: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
696: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
697: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
698: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
699: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
700: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
701: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
702: ELSE
695: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
696: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
697: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
698: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
699: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
700: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
701: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
702: ELSE
703: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
696: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
697: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
698: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
699: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
700: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
701: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
702: ELSE
703: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
704: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
697: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
698: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
699: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
700: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
701: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
702: ELSE
703: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
704: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
705: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
699: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
700: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
701: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
702: ELSE
703: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
704: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
705: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
706: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
707: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
700: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
701: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
702: ELSE
703: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
704: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
705: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
706: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
707: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
708: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
701: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
702: ELSE
703: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
704: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
705: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
706: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
707: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
708: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
709: END IF;
702: ELSE
703: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
704: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
705: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
706: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
707: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
708: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
709: END IF;
710:
703: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
704: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
705: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
706: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
707: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
708: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
709: END IF;
710:
711: IF xml_tab.LAST = table_counter THEN
704: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
705: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
706: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
707: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
708: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
709: END IF;
710:
711: IF xml_tab.LAST = table_counter THEN
712: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
708: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
709: END IF;
710:
711: IF xml_tab.LAST = table_counter THEN
712: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
713: ELSIF xml_tab (table_counter + 1).tagname = 'ORG_NAME' AND l_str8 <> 'REPORT_DATE' THEN
714: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
715: END IF;
716: END LOOP;
710:
711: IF xml_tab.LAST = table_counter THEN
712: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
713: ELSIF xml_tab (table_counter + 1).tagname = 'ORG_NAME' AND l_str8 <> 'REPORT_DATE' THEN
714: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
715: END IF;
716: END LOOP;
717:
718: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str13), l_str13);
714: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
715: END IF;
716: END LOOP;
717:
718: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str13), l_str13);
719: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
720: ELSE
721: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
722: END IF;
715: END IF;
716: END LOOP;
717:
718: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str13), l_str13);
719: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
720: ELSE
721: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
722: END IF;
723:
717:
718: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str13), l_str13);
719: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
720: ELSE
721: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
722: END IF;
723:
724: p_xfdf_clob := l_xfdf_string;
725: hr_utility.set_location ('Leaving WritetoCLOB ', 20);