Mod function

Question

hi,
i am trying to commit for every 1000 records.
how to use mod function in following script?
DECLARE
v NUMBER;
counter NUMBER;
CURSOR r1 IS SELECT * FROM TAB1;
BEGIN
FOR c1 IN r1 LOOP
v:=c1.ssn_id;
counter := counter + 1;
IF MOD(counter,1000 ) = 0 THEN
dbms_output.put_line(v);
commit;
dbms_output.put_line(counter);
counter := 0;
END IF;
END LOOP;
END;
could anyone help me for commiting every 1000th record.
thanks in Advance.

Answer 1

The only problem I see, is you did not initialize COUNTER.
if you have counter := counter + 1; without initializing COUNTER, it is like adding NULL + 1 and this will always result in NULL
declare
cursor c1 is select ssn from TAB ;
v_cnt number:=0;  -- NOTE YOU MUST INITIALIZE TO SOME NUMBER
begin
  for c_rec in c1 loop
     v_cnt := v_cnt + 1;
     if mod(v_cnt,1000) = 0 then
        dbms_output.put_line('SSN: '||C_REC.SSN) ;
        dbms_output.put_line('v_cnt: '||v_cnt||' time to commit');
     end if;
  end loop;
end;
/