关于函数的使用。。。大家帮忙啊

本人初学。所以还请大家帮忙解答下，谢谢了


自定义一个函数实现以下功能。对于一个输入的学号（XH）值，查询该值在XS表中是否存在，若存在返回0，否则返回-1。



写出程序段调用上面的函数。当向xs_kc表录入成绩时，首先调用该函数检查欲录入的同学是否存在。若存在，则录入成绩，否则不能录入。

create or replace function checkStudentNumber
(
  v_studenNUM in number
) return number
is

  i_count number;
  i_stNum number;
 
begin

  i_stNum := v_studenNUM;

  if i_stNum is null then
  return -1;
  end if;
 
  select t.XH into i_stNum from XS t where t.XH = i_stNum ;

  if (i_stNum = 1) then
  return 0;
  else
  return -1;
  end if;  

end;