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 ;
PROCEDURE inicjujTablice(VT_Osr IN OUT NOCOPY NT_Osrodki) IS
BEGIN
FOR v_Rec_Osr IN c_Osrodki LOOP
i := c_Osrodki%ROWCOUNT ;
VT_Osrodki.EXTEND ;
VT_Osr(i) := v_rec_Osr ;
DBMS_OUTPUT.Put_Line(VT_Osr(i).Id || ' ' || VT_Osr(i).Nazwa) ;
END LOOP ;
END;
PROCEDURE kasujNiepotrzebne(VT_Osr IN OUT NOCOPY NT_Osrodki) IS
l PLS_INTEGER;
BEGIN
FOR i IN VT_Osr.FIRST .. VT_Osr.LAST LOOP
SELECT COUNT(1) INTO l FROM egzaminy WHERE VT_Osr(i).Id = id_osrodek;
IF l = 0 THEN
VT_Osr.DELETE(i);
END IF;
END LOOP ;
END;
BEGIN
inicjujTablice(VT_Osrodki);
DBMS_OUTPUT.put_line('Tabela zagnieżdżona zawiera ' || VT_Osrodki.COUNT || ' elementów a inteks jej ostatniego elementu to ' || VT_Osrodki.COUNT);
kasujNiepotrzebne(VT_Osrodki);
DBMS_OUTPUT.put_line('Tabela zagnieżdżona zawiera ' || VT_Osrodki.COUNT || ' elementów a inteks jej ostatniego elementu to ' || VT_Osrodki.COUNT);
END;