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;
/