175: l_str6 := '';
176: l_str7 := '
177: l_str10 := '
178: l_str11 := '
179: DBMS_LOB.createtemporary (l_xfdf_string, FALSE, DBMS_LOB.CALL);
180: DBMS_LOB.OPEN (l_xfdf_string, DBMS_LOB.lob_readwrite);
181: current_index := 0;
182: IF gplsqltable.COUNT > 0
183: THEN
176: l_str7 := '
177: l_str10 := '
178: l_str11 := '
179: DBMS_LOB.createtemporary (l_xfdf_string, FALSE, DBMS_LOB.CALL);
180: DBMS_LOB.OPEN (l_xfdf_string, DBMS_LOB.lob_readwrite);
181: current_index := 0;
182: IF gplsqltable.COUNT > 0
183: THEN
184: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
180: DBMS_LOB.OPEN (l_xfdf_string, DBMS_LOB.lob_readwrite);
181: current_index := 0;
182: IF gplsqltable.COUNT > 0
183: THEN
184: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
185: FOR table_counter IN gplsqltable.FIRST .. gplsqltable.LAST
186: LOOP
187: l_str8 := gplsqltable (table_counter).tagname;
188: l_str9 := gplsqltable (table_counter).tagvalue;
187: l_str8 := gplsqltable (table_counter).tagname;
188: l_str9 := gplsqltable (table_counter).tagvalue;
189: IF l_str9 = 'END'
190: THEN
191: DBMS_LOB.writeappend (
192: l_xfdf_string,
193: LENGTH (l_str11),
194: l_str11
195: );
194: l_str11
195: );
196: ELSIF l_str9 = 'START'
197: THEN
198: DBMS_LOB.writeappend (
199: l_xfdf_string,
200: LENGTH (l_str10),
201: l_str10
202: );
201: l_str10
202: );
203: ELSIF l_str9 IS NOT NULL
204: THEN
205: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
206: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
207: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
208: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
209: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
202: );
203: ELSIF l_str9 IS NOT NULL
204: THEN
205: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
206: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
207: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
208: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
209: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
210: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
203: ELSIF l_str9 IS NOT NULL
204: THEN
205: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
206: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
207: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
208: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
209: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
210: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
211: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
204: THEN
205: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
206: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
207: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
208: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
209: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
210: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
211: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
212: ELSE
205: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
206: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
207: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
208: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
209: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
210: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
211: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
212: ELSE
213: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
206: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
207: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
208: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
209: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
210: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
211: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
212: ELSE
213: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
214: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
207: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
208: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
209: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
210: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
211: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
212: ELSE
213: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
214: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
215: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
209: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
210: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
211: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
212: ELSE
213: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
214: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
215: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
216: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
217: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
210: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
211: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
212: ELSE
213: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
214: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
215: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
216: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
217: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
218: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
211: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
212: ELSE
213: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
214: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
215: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
216: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
217: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
218: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
219: END IF;
212: ELSE
213: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
214: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
215: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
216: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
217: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
218: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
219: END IF;
220: END LOOP;
213: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
214: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
215: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
216: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
217: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
218: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
219: END IF;
220: END LOOP;
221: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
214: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
215: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
216: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
217: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
218: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
219: END IF;
220: END LOOP;
221: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
222: ELSE
217: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
218: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
219: END IF;
220: END LOOP;
221: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
222: ELSE
223: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
224: END IF;
225: p_xfdf_clob := l_xfdf_string;
219: END IF;
220: END LOOP;
221: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
222: ELSE
223: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
224: END IF;
225: p_xfdf_clob := l_xfdf_string;
226: COMMIT;
227: EXCEPTION