初级游标问题

我直接查询这段：select  b.课程名  from course  b,student  a  where b.学号=a.学号 and b.学号='001'
在我的数据库中是有数据的
——————————————————————————————————————————————————
用游标来练习，没有报错，但是总是没有显示数据，哪里错的呢？大家帮忙看一下啊：declare 
my_message course.课程名%type;
cursor  c_message  is  select  b.课程名  from course  b,student  a  where b.学号=a.学号 and b.学号='001';
begin 
open  c_message;
   loop 
   fetch c_message  into my_message;   
   dbms_output.put_line(my_message);
   exit   when   c_message%notfound;
   end  loop; 
close  c_message;end ;