DECLARE
  CURSOR pracownicy(stanowisko VARCHAR2) IS SELECT * FROM emp WHERE job = stanowisko;
  zarobki REAL := 0;
BEGIN
  FOR rekord IN pracownicy('MANAGER') LOOP
    zarobki := zarobki + NVL(rekord.sal,0);
  END LOOP;
  DBMS_OUTPUT.Put_Line('W sumie menadzerowie: '||zarobki);
  zarobki := 0;
  FOR rekord IN pracownicy('SALESMAN') LOOP
    zarobki := zarobki + NVL(rekord.sal,0);
  END LOOP;
  DBMS_OUTPUT.Put_Line('W sumie sprzedawcy: '||zarobki);
END;
/
