create table student (id  number(5,0) not null ,name  varchar2(15) not null ,dob  date ,gender  varchar2(2) default ''男'' ,classyr  number(4,0) default 2002 not null ,major  varchar2(25) ,email  varchar2(50) ,photo  varchar2(100) );alter session set nls_date_format = ''dd-mon-yyyy'';alter session set nls_date_language = ''american'';insert into student values ( 1001,''赵鹏'',''14-jul-1975'',''男'',2001,''history'',''1001@netuniversity.org'',''u1001.gif'')/insert into student values ( 1002,''刘宇'',''08-oct-1975'',''女'',2001,''science'',''1002@netuniversity.org'',''u1002.gif'')/…………

create or replace procedure show_student(p_id         in out student.id%type,p_name          out student.name%type,p_dob           out student.dob%type,p_gender        out student.gender%type,p_classyr       out student.classyr%type,p_major         out student.major%type,p_email         out student.email%type,p_photo         out student.photo%type)iscursor get_student(p_id in student.id%type default 1001) is    select * from student    where id = nvl(p_id,1001);student_row student%rowtype;begin    if p_id<1001 then       p_id:=1001;        end if;    if p_id>1007 then       p_id:=1007;    end if;    open  get_student(p_id);    fetch get_student into student_row;    close get_student;    p_name          := student_row.name;    p_dob           := student_row.dob;    p_gender        := student_row.gender;    p_classyr       := student_row.classyr;    p_major         := student_row.major;    p_email         := student_row.email;    p_photo         := student_row.photo;end;/