serialpkg.sql

OReilly Oracle PL SQL Programming第4版源代码

/* Formatted on 2002/04/06 08:41 (Formatter Plus v4.5.2) */
CREATE OR REPLACE PACKAGE book_info
IS
   PRAGMA SERIALLY_REUSABLE;

   PROCEDURE fill_list;

   PROCEDURE show_list;
END;
/

CREATE OR REPLACE PACKAGE BODY book_info
IS
   PRAGMA SERIALLY_REUSABLE;

   TYPE book_list_t IS TABLE OF books%ROWTYPE
      INDEX BY BINARY_INTEGER;

   my_books   book_list_t;

   PROCEDURE fill_list
   IS
   BEGIN
      FOR rec IN (SELECT * FROM books WHERE AUTHOR LIKE '%FEUERSTEIN%')
      LOOP
         my_books (NVL (my_books.LAST, 0) + 1) := rec;
      END LOOP;
   END fill_list;

   PROCEDURE show_list
   IS
   BEGIN
      IF my_books.COUNT = 0
      THEN
         DBMS_OUTPUT.put_line ('** No books to show you...');
      ELSE
         FOR indx IN my_books.FIRST .. my_books.LAST
         LOOP
            DBMS_OUTPUT.put_line (my_books (indx).title);
         END LOOP;
      END IF;
   END show_list;
END;
/



/*======================================================================
| Supplement to the third edition of Oracle PL/SQL Programming by Steven
| Feuerstein with Bill Pribyl, Copyright (c) 1997-2002 O'Reilly &
| Associates, Inc. To submit corrections or find more code samples visit
| http://www.oreilly.com/catalog/oraclep3/
*/