139: l_str6 := '';
140: l_str7 := '
141: l_str10 := '
142: l_str11 := '
143: DBMS_LOB.createtemporary (l_xfdf_string, FALSE, DBMS_LOB.CALL);
144: DBMS_LOB.OPEN (l_xfdf_string, DBMS_LOB.lob_readwrite);
145: current_index := 0;
146: IF gplsqltable.COUNT > 0
147: THEN
140: l_str7 := '
141: l_str10 := '
142: l_str11 := '
143: DBMS_LOB.createtemporary (l_xfdf_string, FALSE, DBMS_LOB.CALL);
144: DBMS_LOB.OPEN (l_xfdf_string, DBMS_LOB.lob_readwrite);
145: current_index := 0;
146: IF gplsqltable.COUNT > 0
147: THEN
148: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
144: DBMS_LOB.OPEN (l_xfdf_string, DBMS_LOB.lob_readwrite);
145: current_index := 0;
146: IF gplsqltable.COUNT > 0
147: THEN
148: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str1), l_str1);
149: FOR table_counter IN gplsqltable.FIRST .. gplsqltable.LAST
150: LOOP
151: l_str8 := gplsqltable (table_counter).tagname;
152: l_str9 := gplsqltable (table_counter).tagvalue;
151: l_str8 := gplsqltable (table_counter).tagname;
152: l_str9 := gplsqltable (table_counter).tagvalue;
153: IF l_str9 = 'END'
154: THEN
155: DBMS_LOB.writeappend (
156: l_xfdf_string,
157: LENGTH (l_str11),
158: l_str11
159: );
158: l_str11
159: );
160: ELSIF l_str9 = 'START'
161: THEN
162: DBMS_LOB.writeappend (
163: l_xfdf_string,
164: LENGTH (l_str10),
165: l_str10
166: );
165: l_str10
166: );
167: ELSIF l_str9 IS NOT NULL
168: THEN
169: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
170: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
172: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
173: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
166: );
167: ELSIF l_str9 IS NOT NULL
168: THEN
169: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
170: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
172: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
173: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
174: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
167: ELSIF l_str9 IS NOT NULL
168: THEN
169: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
170: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
172: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
173: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
174: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
168: THEN
169: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
170: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
172: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
173: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
174: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
176: ELSE
169: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
170: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
172: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
173: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
174: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
176: ELSE
177: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
170: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
172: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
173: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
174: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
176: ELSE
177: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
178: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
171: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
172: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str9), l_str9);
173: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
174: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
176: ELSE
177: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
178: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
179: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
173: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
174: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
176: ELSE
177: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
178: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
179: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
180: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
181: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
174: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
175: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
176: ELSE
177: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
178: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
179: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
180: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
181: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
182: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
175: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
176: ELSE
177: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
178: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
179: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
180: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
181: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
182: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
183: END IF;
176: ELSE
177: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
178: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
179: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
180: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
181: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
182: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
183: END IF;
184: END LOOP;
177: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str2), l_str2);
178: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
179: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
180: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
181: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
182: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
183: END IF;
184: END LOOP;
185: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
178: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
179: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str3), l_str3);
180: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str4), l_str4);
181: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
182: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
183: END IF;
184: END LOOP;
185: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
186: ELSE
181: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str8), l_str8);
182: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str5), l_str5);
183: END IF;
184: END LOOP;
185: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
186: ELSE
187: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
188: END IF;
189: p_xfdf_clob := l_xfdf_string;
183: END IF;
184: END LOOP;
185: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str6), l_str6);
186: ELSE
187: DBMS_LOB.writeappend (l_xfdf_string, LENGTH (l_str7), l_str7);
188: END IF;
189: p_xfdf_clob := l_xfdf_string;
190:
191: EXCEPTION