اخوانبي الاعزاء اين الخطأ لو تكرمتم

declare
x1 date;
x2 date;
cursor c1 is select to_char(sysdate,x2,' day') from dual where to_char(sysdate,x2) between '1-jan-2010' and '31-dec-2010';
begin
--	open c1;
--	fetch c1 into x1;
for x1 in c1 loop
:BLOCK2.X1:= to_char(sysdate,' x2') ;
next_record;
end loop;
close c1;

end; 

السلام عليكم
أخي الكريم
ممكن توضح ماذا تريد ان تفعل ؟؟

السلام عليكم
اذا لم اكن مخطىء ربما كان هذا هو القصد:

set serveroutput on
declare
     type rec is record(
    x1 date,
    x2 varchar2(30):='dd.mm.yy'
   );

       myRec  rec;
cursor c1 is select to_date(sysdate,myRec.x2) from dual 
where to_date(sysdate,myRec.x2) between to_date('01.01-10',myRec.x2) 
and to_date('01-12-2010',myRec.x2);
begin
  open c1;
   fetch c1 into myRec.x1;
   dbms_output.put_line(to_date(myRec.x1,myRec.x2));  
   close c1;
end;

با التوفيق
دعواتكم لي با التوفيق وربنا يوفق الجميع