DECLARE
CURSOR c_bilar
IS SELECT b.pnr, b.fnamn, b.enamn, f.regnr, f.tillverkare, f.modell
FROM bilägare b, fordon f
WHERE f.hk >200
AND b.pnr = f.pnr;
v_test fartdåre%rowtype;
BEGIN
IF NOT c_bilar%isopen THEN
OPEN c_bilar;
END IF;
LOOP
FETCH c_bilar INTO v_test;
EXIT
WHEN c_bilar%notfound;
INSERT INTO fartdåre (pnr,fnamn,enamn,regnr,tillverkare,modell)
VALUES(v_test);
END LOOP;
CLOSE c_bilar;
COMMIT;
dbms_output.put_line('Kopieringen är klar!');
END;