DECLARE
  CURSOR pracownicy IS SELECT * FROM emp;
  rekord emp%ROWTYPE;
  zarobki REAL := 0;
BEGIN
  OPEN pracownicy;
  LOOP
    FETCH pracownicy INTO rekord;
    EXIT WHEN pracownicy%NOTFOUND;
    zarobki := zarobki + NVL(rekord.sal,0);
  END LOOP;
  DBMS_OUTPUT.Put_Line('W sumie: '||zarobki);
  CLOSE pracownicy;
END;
/
