oracle的一个简单函数

create or replace function fun_tz_getXianYiRenXM(v_anjianid varchar2)--获取嫌疑人姓名
return varchar2
is
  v_XianYiRen varchar2(300);
  v_Count number(4,0):=0;
  v_hasMore number(2):=0;
begin
     for rec in (select x.xingming from xz_xianyiren x where x.anjianid=v_anjianid)
     loop
         begin
              v_hasMore:=1;
              exit when v_Count>=3;
              if rec.xingming is not null then
                 v_XianYiRen:=v_XianYiRen||rec.xingming||' ';
                 v_Count:=v_Count+1;
                 v_hasMore:=0;
              end if;
         end;
     end loop;
     if v_hasMore=1 and v_Count>=3 and v_XianYiRen is not null then
        v_XianYiRen:=substring(v_XianYiRen,1,length(v_XianYiRen)-1)||'等';
     elsif v_hasMore=0 then
          v_XianYiRen:=substring(v_XianYiRen,1,length(v_XianYiRen)-1)  ;
     end if;
     return v_XianYiRen;
end;