PLSQL编写函数--例子

该函数的功能是给定参数 gjid ，返回与之关联的一个或多个CYQK（采用情况）

create or replace function GETCYQK(gjid in varchar2) return varchar2 is

  Result varchar2(200);                  --定义返回结果
  --var_lsh varchar2(200);
  v_sql varchar2(1000);
  type curtype is ref cursor;
  mycur curtype;
  cyqk varchar2(2000);
begin                                                   --函数主体开始
     if gjid is not null then
        v_sql := 'select t2.jslx from t_sqmy_gjjfgc t,t_sqmy_jfgc t2 where t.jslxid=t2.id and t.czbz!=''D'' and t.gjid='''||gjid||''' ';
        select v.jf from v_gj_
        open mycur for v_sql;
        loop fetch mycur into cyqk;           --循环
          exit when mycur%notfound;        
          if Result is null then
             Result:=cyqk;
          else
              Result:=Result||','||cyqk;         -- 多个CYQK用','分隔
          end if;
        end loop;                                         --循环结束
     else
        --v_sql := 'select name from t_dept_info where pid='''||deptid||'''';
        --open mycur for v_sql;
        --loop fetch mycur into deptname;
        --  exit when mycur%notfound;
        --  Result:=deptname;
        --end loop;
        null;
     end if;
  return(Result);       --返回结果
end GETCYQK;      --函数主体结束