DECLARE
TYPE Typ_Rec_Osr IS RECORD
(Id Osrodki.Id_osrodek%TYPE,
Nazwa Osrodki.Nazwa_o%TYPE) ;
TYPE NT_Osrodki IS TABLE OF Typ_Rec_Osr ;
VT_Osrodki NT_Osrodki := NT_Osrodki();
i NUMBER := 0 ;
CURSOR c_Osrodki IS SELECT Id_osrodek, Nazwa_o FROM Osrodki ;
BEGIN
FOR v_Rec_Osr IN c_Osrodki LOOP
i := c_Osrodki%ROWCOUNT ;
VT_Osrodki.EXTEND ;
VT_Osrodki(i) := v_rec_Osr ;
DBMS_OUTPUT.Put_Line(VT_Osrodki(i).Id || ' ' || VT_Osrodki(i).Nazwa) ;
END LOOP ;
DBMS_OUTPUT.put_line('Tabela zagnieżdżona zawiera ' || VT_Osrodki.LAST || ' elementów');
EXCEPTION
WHEN SUBSCRIPT_BEYOND_COUNT THEN
DBMS_OUTPUT.Put_Line ('Licznik poza zakresem') ;
END;