DECLARE
  TYPE slaby_typ_kursorowy IS
  REF CURSOR;
  kursor1 slaby_typ_kursorowy;

  --TYPE silny_typ_kursurowy IS
  --REF CURSOR RETURN typ_wiersza;
  --kursor2 silny_typ_kursurowy;

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