multilevel_collections.sql

OReilly Oracle PL SQL Programming第4版源代码

@@pet.ot

DECLARE
   TYPE bunch_of_pets_t IS TABLE OF pet_t
      INDEX BY BINARY_INTEGER;

   my_pets   bunch_of_pets_t;
BEGIN
   my_pets (1) :=
         pet_t (
            100,
            'Mercury',
			   'African Grey Parrot',
            vet_visits_t (
               vet_visit_t (
                  '01-Jan-2001',
                  'Clip wings'
               ),
               vet_visit_t (
                  '01-Apr-2002',
                  'Check cholesterol'
               )
            )
         );
   DBMS_OUTPUT.put_line (my_pets (1).NAME);
   DBMS_OUTPUT.put_line (
      my_pets (1).petcare (my_pets(1).petcare.LAST).reason
   );
   DBMS_OUTPUT.put_line (my_pets.COUNT);
   DBMS_OUTPUT.put_line (my_pets(1).petcare.FIRST);
END;
/