System Packages Oracle PLSQL Tutorial

SQL>
SQL> CREATE OR REPLACE PACKAGE xbuff
  2  IS
  3     contents DBMS_OUTPUT.CHARARR;
  4     PROCEDURE dumpit;
  5  END;
  6  /
Package created.
SQL> CREATE OR REPLACE PACKAGE BODY xbuff
  2  IS
  3     PROCEDURE dumpit
  4     IS
  5        tempbuff DBMS_OUTPUT.CHARARR;
  6        linenum PLS_INTEGER := 1000;
  7     BEGIN
  8        DBMS_OUTPUT.GET_LINES (tempbuff, linenum);
  9        IF linenum > 0
 10        THEN
 11           linenum := tempbuff.FIRST;
 12           LOOP
 13              EXIT WHEN linenum IS NULL;
 14              contents (NVL (contents.LAST, 0) + 1) := tempbuff(linenum);
 15              linenum := tempbuff.NEXT (linenum);
 16           END LOOP;
 17        END IF;
 18     END;
 19  END;
 20  /
Package body created.
SQL>