SET SERVEROUTPUT ON

/* 2. feladat */

DECLARE
        TYPE sor IS RECORD (
                azon  ugyfel.azon%TYPE,
                nev           ugyfel.nev%TYPE,
                osszeg        tranzakcio.osszeg%TYPE);
        CURSOR kereso (ossz NUMBER, dat DATE) IS
                SELECT u.azon, u.nev, t.osszeg
                FROM ugyfel u, tranzakcio t
                WHERE dat = t.datum AND osszeg = ABS(t.osszeg) AND u.azon = t.ugyf_azon;
        hibas_adat             EXCEPTION;
        s                              sor;

BEGIN
        OPEN kereso(1000, DATE '2007-04-21');
        LOOP
                FETCH kereso INTO s;
                        IF kereso%NOTFOUND AND NOT kereso%ROWCOUNT > 0 THEN RAISE hibas_adat;
                        END IF;
                        EXIT WHEN kereso%NOTFOUND;
                        DBMS_OUTPUT.PUT_LINE (s.azon || ' ,' || s.nev || ' ,' || s.osszeg);
        END LOOP;
                        
EXCEPTION
        WHEN hibas_adat THEN
                DBMS_OUTPUT.PUT_LINE ('Hibas adat!');
END;