调用存诸过程将返回值打印出来

最新推荐文章于 2023-02-10 14:43:50 发布

thinktotings

最新推荐文章于 2023-02-10 14:43:50 发布

阅读量151

点赞数

CC 4.0 BY-SA版权

分类专栏： Oracle SQL 文章标签：数据库

本文链接：https://blog.youkuaiyun.com/thinktotings/article/details/83953036

Oracle SQL 专栏收录该内容

68 篇文章

订阅专栏

本文介绍了一个使用 Oracle PL/SQL 编写的函数 cfun_cusellratedetail_prefix，该函数接收一个编号作为参数，并返回与该编号相关的区域代码前缀字符串。通过对数据进行遍历和条件判断，实现将连续的区域代码通过特定符号连接起来，以减少返回字符串的长度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

111111111111

declare 
Result varchar2(4000):='';
begin
  Result:= cfun_cusellratedetail_prefix(1009388);
  dbms_output.put_line(Result);
end;

create or replace
function cfun_cusellratedetail_prefix(p_numcusellratedmsguid in number) return varchar2 is
  Result varchar2(4000):='';
  l_lastprefix varchar2(100) :='0';
  l_sign varchar2(10);
  l_begin number;
  l_end number;

begin

  for cur_rec in (  select trim(vc2areacode) vc2areacode from ct_cusellratedetail_prefix where numcusellratedmsguid = p_numcusellratedmsguid
  AND NUMVALIDFLAG=1 order by vc2areacode  ) loop
        if length(Result) > 3950 then
         --dbms_output.put_line(p_numdmsguid||'aaaaaaaaaaaaaaaaaaaaaaaaaaaaa');
        -- dbms_output.put_line(Resultc);
         exit ;
      end if;

      if  to_char(to_number(l_lastprefix) +1) = cur_rec.vc2areacode  then
          if l_sign is null then
             l_sign := '-';
             Result :=substr(result,1,length(result)-1 )||l_sign;

          end if;
      else
          if l_sign = '-' then

              Result :=Result|| l_lastprefix||';'||cur_rec.vc2areacode||';';
          else
              Result :=Result||cur_rec.vc2areacode||';';
          end if;
           l_sign := '';
      end if;
      l_lastprefix := cur_rec.vc2areacode;
  end loop;
  if l_sign = '-' then
     Result :=Result|| l_lastprefix;
     return  Result;

  else
      return(case when length( Result) > 0 then substr(result,1,length(result)-1 ) else '' end );
  end if;

end cfun_cusellratedetail_prefix;