DBMS_OUTPUT_problem

DBMS_OUTPUT_problem

DECLARE tb_lines DBMS_OUTPUT.CHARARR; ln_no_lines INTEGER := 200;
PROCEDURE fill_buffer IS BEGIN DBMS_OUTPUT.ENABLE(100000);
FOR i IN 1..100 LOOP DBMS_OUTPUT.PUT_LINE('The current iterator is: 'i); END LOOP; END fill_buffer;
BEGIN fill_buffer;
DBMS_OUTPUT.GET_LINES(tb_lines, ln_no_lines); DBMS_OUTPUT.PUT_LINE('No. of Lines returned 'ln_no_lines);
FOR i IN tb_lines.FIRST..tb_lines.LAST LOOP DBMS_OUTPUT.PUT_LINE('Line is: 'tb_lines(i)); END LOOP;END;
/