Zadanie domowe (Antczak)

SET SERVEROUTPUT ON

DECLARE
  z_imie              osoby.imie1%TYPE;
  z_nazwisko          osoby.nazwisko%TYPE;
  z_id                osoby.id_os%TYPE;
  z_nazwa             wydzialy.nazwa%TYPE;
  z_liczba_osob       NUMBER;
  z_liczba_wydzialow  NUMBER;

BEGIN

  SELECT COUNT(id_w)
    INTO z_liczba_wydzialow
    FROM wydzialy;

    <<e_wydzial>>
    FOR licznik_wydzialow IN 1..z_liczba_wydzialow LOOP
      SELECT COUNT(z.id_os), INITCAP(w.nazwa)
        INTO z_liczba_osob, z_nazwa
        FROM zatrudnienia z JOIN wydzialy w ON z.id_w=w.id_w
        WHERE z.DO IS NULL AND w.id_w=licznik_wydzialow
        GROUP BY INITCAP(w.nazwa);
      DBMS_OUTPUT.PUT_LINE('Lista osób na wydziale '||z_nazwa||':');

      <<e_osoby>>
      FOR licznik_osob IN 1..z_liczba_osob LOOP
        SELECT INITCAP(imie1), INITCAP(nazwisko)
          INTO z_imie, z_nazwisko
          FROM osoby
          WHERE id_os=licznik_osob;
        DBMS_OUTPUT.PUT_LINE(licznik_osob||'. '||z_imie||' '||z_nazwisko);
      END LOOP e_osoby;
    END LOOP e_wydzial;
END;