Listing 2: Parts of the Nicknames Package
CREATE OR REPLACE PACKAGE nicknames
IS
french CONSTANT PLS_INTEGER := 1005;
american_english CONSTANT PLS_INTEGER := 1013;
german CONSTANT PLS_INTEGER := 2005;
arabic CONSTANT PLS_INTEGER := 3107;
from_family CONSTANT PLS_INTEGER := 88;
from_friends CONSTANT PLS_INTEGER := 99;
from_colleagues CONSTANT PLS_INTEGER := 111;
TYPE strings_t IS TABLE OF VARCHAR2 (30)
INDEX BY BINARY_INTEGER;
TYPE nickname_set_t IS TABLE OF strings_t
INDEX BY BINARY_INTEGER;
TYPE multiple_sets_t IS TABLE OF nickname_set_t
INDEX BY BINARY_INTEGER;
FUNCTION to_french (nicknames_in IN lots_of_strings_t)
RETURN lots_of_strings_t;
FUNCTION to_german (nicknames_in IN lots_of_strings_t)
RETURN lots_of_strings_t;
FUNCTION to_arabic (nicknames_in IN lots_of_strings_t)
RETURN lots_of_strings_t;
END nicknames;
/
|