PL SQL Program For to store odd date and even date records on the separate table.

PL SQL Program For to store odd date and even date records on the separate table. 


declare 
ID INVOICE.INVNO%TYPE;
MOVIENO INVOICE.MVNO%TYPE;
CID INVOICE.CUSID%TYPE;
DAT1 INVOICE.ISSDATE%TYPE;
DAT2 INVOICE.RETDATE%TYPE; 
t integer; 
CURSOR C IS SELECT * FROM INVOICE; 
BEGIN
OPEN C;
delete from odd;
delete from even;
LOOP
FETCH C INTO ID,MOVIENO,CID,DAT1,DAT2;
exit when c%notfound;
t:=to_char(DAT1,'dd');
IF t MOD 2=0 THEN
INSERT INTO even(ID,MVNUM,CID,ISSUE,RETURN)
VALUES(ID,MOVIENO,CID,DAT1,DAT2);
ELSE 
INSERT INTO ODD(ID,MVNUM,CID,ISSUE,RETURN)
VALUES(ID,MOVIENO,CID,DAT1,DAT2);
end if;
end loop;
close c;
end;