fb d
DECLARE
v_recno testloop.rec_no%TYPE :=6;
v_ctr testloop.ctr%TYPE :=100;
BEGIN
LOOP
INSERT INTO testloop(rec_no, ctr)
VALUES(v_recno, v_ctr);
v_recno :=v_recno + 1;
v_ctr := v_ctr + 10;
EXIT WHEN v_recno > 5;
END LOOP;
END;
/