CREATE TABLE DEBUG_SQL (seq number, timestamp date, comments varchar2(200));

CREATE OR REPLACE PROCEDURE put_debug_sql (i_seq IN INTEGER, i_msg VARCHAR)
IS
   PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
   INSERT INTO debug_sql VALUES (i_seq, SYSDATE, i_msg);
   COMMIT;
END;
/

----------------------------------------------------------------
DELETE debug_sql;

SET serveroutput off;
SET feedback on

BEGIN
   DBMS_OUTPUT.enable;
   DBMS_OUTPUT.put_line ('hello world');
   DBMS_OUTPUT.put ('HELLO ');
   DBMS_OUTPUT.put_line ('USA');
END;
/

DECLARE
   v_line     VARCHAR2 (200);
   v_status   NUMBER;
   n          NUMBER         := 1;
BEGIN
   LOOP
      DBMS_OUTPUT.get_line (v_line, v_status);

      IF v_status = 0
      THEN
         put_debug_sql (n, v_line);
         n := n + 1;
      ELSE
         EXIT;
      END IF;
   END LOOP;
END;
/

BEGIN
   DBMS_OUTPUT.disable;
END;
/

COLUMN Comments format a30;
SELECT * FROM debug_sql ORDER BY seq;

sql>set serveroutput on
sql>declare 
  2    txtArray  dbms_output.chararr;
  3    numLines  integer := 2 ;
  4  begin
  5    dbms_output.put_line('First line');
  6    dbms_output.put_line('Second line');
  7    dbms_output.get_lines(txtarray, numlines);
  8    for i in 1..txtarray.count loop
  9      dbms_output.put_line( 'From get_lines: ' || txtarray(i) );
 10    end loop;
 11  end;
 12  /
From get_lines: First line
From get_lines: Second line
 
PL/SQL procedure successfully completed.