142: l_str12 := '
143: l_str13 := '
144: l_str14 := '
145: l_str15 := '
146: dbms_lob.createtemporary (l_xfdf_string, FALSE , dbms_lob.CALL);
147: dbms_lob.OPEN (l_xfdf_string, dbms_lob.lob_readwrite);
148: current_index := 0;
149:
150: IF xml_tab.count > 0 THEN
143: l_str13 := '';
144: l_str14 := '
145: l_str15 := '
146: dbms_lob.createtemporary (l_xfdf_string, FALSE , dbms_lob.CALL);
147: dbms_lob.OPEN (l_xfdf_string, dbms_lob.lob_readwrite);
148: current_index := 0;
149:
150: IF xml_tab.count > 0 THEN
151: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
147: dbms_lob.OPEN (l_xfdf_string, dbms_lob.lob_readwrite);
148: current_index := 0;
149:
150: IF xml_tab.count > 0 THEN
151: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
152: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str12), l_str12);
153:
154: FOR table_counter IN xml_tab.FIRST .. xml_tab.LAST
155: LOOP
148: current_index := 0;
149:
150: IF xml_tab.count > 0 THEN
151: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
152: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str12), l_str12);
153:
154: FOR table_counter IN xml_tab.FIRST .. xml_tab.LAST
155: LOOP
156: l_str8 := xml_tab (table_counter).tagname;
156: l_str8 := xml_tab (table_counter).tagname;
157: l_str9 := xml_tab (table_counter).tagvalue;
158:
159: IF l_str8 = 'ORG_NAME' THEN
160: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str14), l_str14);
161: END IF;
162:
163: IF l_str9 IS NOT NULL THEN
164: l_str9 := '';
161: END IF;
162:
163: IF l_str9 IS NOT NULL THEN
164: l_str9 := '';
165: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
166: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
167: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
168: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
169: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
162:
163: IF l_str9 IS NOT NULL THEN
164: l_str9 := '';
165: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
166: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
167: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
168: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
169: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
170: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
163: IF l_str9 IS NOT NULL THEN
164: l_str9 := '';
165: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
166: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
167: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
168: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
169: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
170: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
164: l_str9 := '';
165: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
166: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
167: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
168: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
169: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
170: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
172: ELSE
165: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
166: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
167: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
168: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
169: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
170: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
172: ELSE
173: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
166: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
167: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
168: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
169: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
170: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
172: ELSE
173: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
174: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
167: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
168: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
169: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
170: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
172: ELSE
173: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
174: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
169: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
170: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
172: ELSE
173: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
174: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
176: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
177: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
170: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
172: ELSE
173: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
174: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
176: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
177: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
178: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
171: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
172: ELSE
173: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
174: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
176: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
177: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
178: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
179: END IF;
172: ELSE
173: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
174: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
176: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
177: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
178: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
179: END IF;
180:
173: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
174: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
176: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
177: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
178: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
179: END IF;
180:
181: IF xml_tab.LAST = table_counter THEN
174: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
176: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
177: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
178: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
179: END IF;
180:
181: IF xml_tab.LAST = table_counter THEN
182: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
178: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
179: END IF;
180:
181: IF xml_tab.LAST = table_counter THEN
182: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
183: ELSIF xml_tab (table_counter + 1).tagname = 'ORG_NAME' AND l_str8 <> 'REPORT_DATE' THEN
184: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
185: END IF;
186: END LOOP;
180:
181: IF xml_tab.LAST = table_counter THEN
182: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
183: ELSIF xml_tab (table_counter + 1).tagname = 'ORG_NAME' AND l_str8 <> 'REPORT_DATE' THEN
184: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
185: END IF;
186: END LOOP;
187:
188: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str13), l_str13);
184: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str15), l_str15);
185: END IF;
186: END LOOP;
187:
188: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str13), l_str13);
189: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
190: ELSE
191: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
192: END IF;
185: END IF;
186: END LOOP;
187:
188: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str13), l_str13);
189: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
190: ELSE
191: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
192: END IF;
193:
187:
188: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str13), l_str13);
189: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
190: ELSE
191: dbms_lob.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
192: END IF;
193:
194: p_xfdf_clob := l_xfdf_string;
195: hr_utility.set_location ('Leaving WritetoCLOB ', 20);