oracle 常用工具类及函数

 j_param                     json;
  jl_keys                     json_list;

 -- 创建json对象j_param
  j_param := json(p_in_str);
-- 校验param域是否缺少必填参数
  jl_keys := json_list(\'["userId","queryId", "tCardNo","cardNo","cardPwd"]\');
if false = json_util_extra.containKeys(j_param, jl_keys) then
    p_out_str := \'{"resultCode":"30", "resultMsg":"param域Json缺少必填参数"}\';
    return;
  end if;

创建package

create or replace package json_util_extra is
  function containKeys(p_v1  json,
                       p_v2  json_list,
                       exact boolean default false) return boolean;

  function containEmptyValues(p_v1  json,
                              p_v2  json_list,
                              exact boolean default false) return boolean;
end json_util_extra;

创建 package body

create or replace package body json_util_extra is
  function containKeys(p_v1 json, p_v2 json_list, exact boolean)
    return boolean as
  begin
  
    for i in 1 .. p_v2.count loop
      if (not p_v1.exist(p_v2.get(i).get_string)) then
        return false;
      end if;
    end loop;
  
    return true;
  end;

  function containEmptyValues(p_v1 json, p_v2 json_list, exact boolean)
    return boolean as
    v_key varchar2(1024);
  begin
  
    for i in 1 .. p_v2.count loop
      v_key := p_v2.get(i).get_string;
    
      if (not p_v1.exist(v_key)) then
        return false;
      end if;
    
      if (p_v1.get(v_key).value_of is null) then
        return false;
      end if;
    end loop;
  
    return true;
  end;

begin
  -- Initialization
  null;
end json_util_extra;

-- 获取字符串类型
 json_ext.get_string(j_param, \'queryId\');
-- 获取数字类型
 json_ext.get_number(j_param, \'userId\');　　　　

-- 生成标准md5
CREATE OR REPLACE FUNCTION MD5(V_INPUT_STRING IN VARCHAR2) RETURN VARCHAR2 IS
  BEGIN
    RETURN LOWER(UTL_RAW.CAST_TO_RAW(DBMS_OBFUSCATION_TOOLKIT.MD5(INPUT_STRING => V_INPUT_STRING)));
  END MD5;
-- select md5(1) from dual

v_sqltext := \'select e.card_type as "cardType",
                        case
                          when e.card_type=to_char(\'\'100\'\') then to_char(\'\'获得卡片\'\')  
                          when e.card_type=to_char(\'\'101\'\') then to_char(\'\'购买\'\')
                          when e.card_type=to_char(\'\'102\'\') then to_char(\'\'查看卡密\'\') 
                          when e.card_type=to_char(\'\'103\'\') then to_char(\'\'解绑\'\') 
                          when e.card_type=to_char(\'\'104\'\') then to_char(\'\'送出\'\') 
                          when e.card_type=to_char(\'\'105\'\') then to_char(\'\'取消赠送\'\') 
                          when e.card_type=to_char(\'\'106\'\') then to_char(\'\'赠送退回\'\') 
                          when e.card_type=to_char(\'\'107\'\') then to_char(\'\'获赠\'\') 
                          when e.card_type=to_char(\'\'108\'\') then to_char(\'\'解绑找回\'\')
                          when e.card_type=to_char(\'\'109\'\') then to_char(\'\'提货申请\'\') 
                          else to_char(\'\'其它\'\') end "cardTypeName",
                          e.mark as "mark",
                        to_char(e.opt_date,\'\'yyyy-mm-dd hh24:mi:ss\'\') as "optDate"
                from (select d.*, rownum as rn
                      from (select ubcl.card_type,ubcl.mark,ubcl.opt_date
                            from xshe_user_band_card_log ubcl
                            where ubcl.user_id =\' || v_user_id || \'
                                 and ubcl.card_no =\'\'\' ||v_card_no ||\'\'\' 
                                 and ubcl.status = 1 order by ubcl.opt_date asc,ubcl.id asc
                            ) d
                      where rownum <= \' || v_end_rownum || \') e
                 where rn > \' || v_begin_rownum;
                   -- update  huzhiyang 2019-10-14 10:38:47 ，卡号为字符串
   -- 执行SQL语句并返回josn_list数据
  jl_card_list := json_dyn.executeList(v_sqltext);
-- 拼接字符串时注意引号数量

-- 拼接json
p_out_str := \'{"resultCode":"\' || v_ret ||
                \'", "resultMsg":"\' || v_des || 
                \'","page":"\' || v_page ||
               \'","pageSize":"\' || v_page_size || 
               \'","totalPage":"\' ||v_total_page ||
               \'","totalCount":"\' ||v_total_count ||
               \'",\' || v_single_info || \'}\'; 

-- 打印输出错误信息
 DBMS_OUTPUT.put_line(\'sqlcode : \' ||sqlcode);
 DBMS_OUTPUT.put_line(\'sqlerrm : \' ||sqlerrm);

-- 创建数组
type card_no_tab is table of varchar2(2000) index by BINARY_INTEGER;
  v_card_no_tab_info card_no_tab;

 v_card_no_tab_info(vv_count) := \'{"cardNo":"\' || r.cardNo ||
                                    \'","background":"\' ||r.background || \'"}\';
for k in 1 .. vv_count loop
    if k < vv_count then
      v_single_info := v_single_info || v_card_no_tab_info(k) || \',\';
    else
      v_single_info := v_single_info || v_card_no_tab_info(k);
    end if;
  end loop;