Improving performance of output buffer processing.

jgebal · jgebal · commit 99447ed877c9 · 2023-02-10T12:35:52.000+02:00
diff --git a/source/core/output_buffers/ut_output_buffer_base.tpb b/source/core/output_buffers/ut_output_buffer_base.tpb
@@ -179,10 +179,14 @@ create or replace type body ut_output_buffer_base is
     loop
       fetch l_data into l_clob, l_item_type;
       exit when l_data%notfound;
-      l_lines := ut_utils.clob_to_table(l_clob);
-      for i in 1 .. l_lines.count loop
-        dbms_output.put_line(l_lines(i));
-      end loop;
+      if dbms_lob.getlength(l_clob) > 32767 then
+        l_lines := ut_utils.clob_to_table(l_clob);
+        for i in 1 .. l_lines.count loop
+          dbms_output.put_line(l_lines(i));
+        end loop;
+      else
+        dbms_output.put_line(l_clob);
+      end if;
     end loop;
     close l_data;
   end;
diff --git a/source/core/output_buffers/ut_output_table_buffer.tpb b/source/core/output_buffers/ut_output_table_buffer.tpb
@@ -73,6 +73,20 @@ create or replace type body ut_output_table_buffer is
     end if;
   end;
 
+  overriding member procedure lines_to_dbms_output(self in ut_output_table_buffer, a_initial_timeout number := null, a_timeout_sec number := null) is
+    l_data      sys_refcursor;
+    l_text      varchar2(32767);
+    l_item_type varchar2(32767);
+  begin
+    l_data := self.get_lines_cursor(a_initial_timeout, a_timeout_sec);
+    loop
+      fetch l_data into l_text, l_item_type;
+      exit when l_data%notfound;
+      dbms_output.put_line(l_text);
+    end loop;
+    close l_data;
+  end;
+
   overriding member procedure get_data_from_buffer_table(
     self in ut_output_table_buffer,
     a_last_read_message_id in out nocopy integer,
diff --git a/source/core/output_buffers/ut_output_table_buffer.tps b/source/core/output_buffers/ut_output_table_buffer.tps
@@ -20,6 +20,7 @@ create or replace type ut_output_table_buffer under ut_output_buffer_base (
   overriding member procedure send_line(self in out nocopy ut_output_table_buffer, a_text varchar2, a_item_type varchar2 := null),
   overriding member procedure send_lines(self in out nocopy ut_output_table_buffer, a_text_list ut_varchar2_rows, a_item_type varchar2 := null),
   overriding member procedure send_clob(self in out nocopy ut_output_table_buffer, a_text clob, a_item_type varchar2 := null),
+  overriding member procedure lines_to_dbms_output(self in ut_output_table_buffer, a_initial_timeout number := null, a_timeout_sec number := null),
   overriding member procedure get_data_from_buffer_table(
       self in ut_output_table_buffer,
       a_last_read_message_id in out nocopy integer,
