Mine

alter type student_t add member procedure add_pruefung( p pruefung_t, note number ) cascade;  CREATE OR REPLACE type body student_t as     member procedure add_pruefung( p pruefung_t, note number )     as         p_ref ref pruefung_t;         n_note note_t;     begin         select ref(x) into p_ref from pruefung_tab x where x.PRUEFUNGSNUMMER = p.PRUEFUNGSNUMMER;         n_note := note_t(sysdate, note, p_ref);               self.ERBRACHTE_PRUEFUNGSLEISTUNGEN.extend();         self.ERBRACHTE_PRUEFUNGSLEISTUNGEN(self.ERBRACHTE_PRUEFUNGSLEISTUNGEN.count()) := n_note;               update student_tab x             set x.ERBRACHTE_PRUEFUNGSLEISTUNGEN = self.ERBRACHTE_PRUEFUNGSLEISTUNGEN          where x.MATRIKELNUMMER = self.MATRIKELNUMMER;     end; end; /