اريد وضع السنوات من تاريخ التعيين وحتى هذه السنة
يعني مثلا سنة التعيين 2007
يكون في الليست
2007
2008
2009

وضعت الكود التالي ولكن ما زبط

declare
v_YEAR number;
v_this_year number;

cursor YERAS is
select  (TO_CHAR(hire_date,'YYYY'))   
from employees WHERE EMP_ID=:GLOBAL.G_EMPID;
ind number:=0;
begin select to_char(sysdate,'yyyy') into v_this_year from dual;
clear_list('YEAR');
open YERAS;
while  v_YEAR   != v_this_year 
loop
fetch YERAS into v_YEAR; ind :=ind+1;
v_YEAR:=v_YEAR+1;
add_list_element('YEAR',ind,v_YEAR,v_YEAR);

exit when YERAS%notfound;


end loop;
end;

ما الخطأ ماهر ؟؟

ما بعرف ما بيعطيني خطأ .؟؟؟
بيعطيني انو compiled successfully
ولكن اين النتيجة لا اعرف

تم تعديل 29 سبتمبر 200916 سنة بواسطة maher534510

السلام عليكم
يمكنك تجربة الاتي

declare
x number;
z number;
ind number;
begin ind:=1;
select to_char(hiredate,'yyyy') into x from emp where empno=:empno;
select to_char(sysdate,'yyyy') into z from dual;
clear_list('years');
for i  in x ..z loop
add_list_element('years',ind,i,i);
ind:=ind+1;
end loop;
end;

على اساس ان الليست اسمها yesr ويوجد ايتم هتتدخل به رقم الموظف
دي على اسكيمة سكوت
موفق

مشكور اخوي مصطفى جزاك الله كل خير
انتا دايما مخجلني بمشاركاتك الطيبة
ربنا يفتحها عليك من اوسع الابواب
صدقا احس حالي الا اعرف شي باوراكل مقابل خبرتك
تسلم يا غالي