怎么在一个过程中把日期赋给变量

如何在一个过程中把日期赋给变量
定义了一个number变量   cur_year,如何把当前年赋给它呢
select   to_number(to_char(sysdate, 'yyyy '))   into   cur_year   from   dual这样做不行，为什么呢
请教了

------解决方案--------------------
Declare
cur_year number;
Begin
select to_number(to_char(sysdate, 'yyyy '))
into cur_year
from dual;

dbms_output.put_line(cur_year );
end;

可以啊