CREATE OR REPLACE Procedure cfdd
is
t1 date;
t2 date;
t3 date;
t date;
begin
t :=sysdate;
while t<TO_DATE(20301231,'YYYYMMDD') LOOP
t1 :=trunc(t,'dd');
t2 :=trunc(t,'mm');
t3 :=trunc(last_day(t),'dd');
t :=T+1;
insert into CD_DDATE(DDATE,MONSTART,MONEND) values(T1,T2,T3);
commit;
end LOOP;
END;