Date---------Day
1-jan-2009-Thursday 
2-jan-2009-Friday
3-jan-2009-Saturday 

DECLARE
	Dt_Date DATE;
BEGIN
	GO_BLOCK ('block3');
	CLEAR_BLOCK(NO_VALIDATE);
	FIRST_RECORD;
	Dt_Date := TO_DATE('01-JAN-2009');
	LOOP
		:block3.ok := TO_CHAR(Dt_Date, 'DD-MON-YYYY');
		:block3.DAY  := TO_CHAR(Dt_Date, 'DAY');
		EXIT WHEN TO_CHAR(Dt_Date, 'YYYY') <> TO_CHAR(dt_date + 1, 'YYYY');   -- If next year reaches, exit from the loop.
		Dt_Date := Dt_Date + 1;
		NEXT_RECORD;
	END LOOP;
END;