create or replace procedure APP_BUSSINESS_CARD_LIST(p_in_str in varchar2,p_out_str out varchar2) is /*******************************************************************************
out varchar2我本地oracle显示最长不能超过2000个字符 -- 函数名称 APP_BUSSINESS_CARD_LIST -- 功能描述 商通卡列表 -- 2019年8月7日10:40:09 ********************************************************************************/ -- Private exception declarations scanner_exception exception; pragma exception_init(scanner_exception, -20100); parser_exception exception; pragma exception_init(parser_exception, -20101); -- Private variable declarations
-- 变量定义最长长度为4000（和oracle版本有关系，可以用str :=rpad("*",4000,"*")；
DBMS_OUTPUT.put_line(\'str: \' ||length(str));
进行测试） type card_no_tab is table of varchar2(4000) index by BINARY_INTEGER; v_card_no_tab_info card_no_tab; v_single_info varchar2(4000);-- 存放整个分页list j_param json; iCount number; vv_count number; v_count number; v_user_id number; v_page number; v_page_size number; v_total_count number; v_total_page number; v_begin_rownum number; v_end_rownum number; jl_card json_list;-- 返回结果的list集合 j_return json; v_ret varchar2(2); v_des varchar2(32); begin -- 创建json对象 j_param := json(p_in_str); -- 获取用户ID v_user_id := json_ext.get_number(j_param, \'userId\'); -- 获取页码 v_page := json_ext.get_number(j_param, \'page\'); if (v_page is null) then p_out_str := \'{"resultCode":"31", "resultMsg":"page类型错误"}\'; return; end if; -- 校验页码数据是否有效(页码不能小于1) if (v_page < 1) then p_out_str := \'{"resultCode":"36", "resultMsg":"page数据无效"}\'; return; end if; -- 获取页大小 v_page_size := json_ext.get_number(j_param, \'pageSize\'); if (v_page_size is null) then p_out_str := \'{"resultCode":"31", "resultMsg":"pageSize类型错误"}\'; return; end if; -- 校验页大小数据是否有效(页大小不能小于1并且不能大于7,可能会超出out长度) if (v_page_size < 1 or v_page_size > 7) then p_out_str := \'{"resultCode":"38", "resultMsg":"pageSize数据无效"}\'; return; end if; -- 校验用户ID是否存在 select count(1) into v_count from web_user_info where user_id = v_user_id; if (v_count <> 1) then p_out_str := \'{"resultCode":"32", "resultMsg":"userId数据无效"}\'; return; end if; -- 获取卡列表总数量 select count(1) into v_total_count from web_user_bussiness_card_view where userid = v_user_id; -- 计算总页数 if (mod(v_total_count, v_page_size) = 0) then v_total_page := trunc(v_total_count / v_page_size); else v_total_page := trunc(v_total_count / v_page_size) + 1; end if; -- 如果总页数是0, 则直接返回结果; 否则查询交易记录并返回结果. if (v_total_page = 0) then -- 返回的josn数据 j_return := json(\'{"resultCode":"00", "resultMsg":"成功"}\'); j_return.put(\'page\', v_page); j_return.put(\'pageSize\', v_page_size); j_return.put(\'totalPage\', v_total_page); j_return.put(\'totalCount\', v_total_count); j_return.put(\'cardList\', jl_card); -- 返回结果 p_out_str := j_return.to_char(false); return; end if; -- 如果当前页数大于总页数, 那么当前页数赋值为总页数. if (v_page > v_total_page) then v_page := v_total_page; end if; -- 计算开始行数和结束行数 v_begin_rownum := (v_page - 1) * v_page_size; v_end_rownum := v_begin_rownum + v_page_size; iCount := 0; vv_count := 0; for r in (select * from web_user_bussiness_card_view where userid = v_user_id order by ismain desc, bindId asc) loop -- 修改条数限制位置 iCount := iCount + 1; if iCount <= v_begin_rownum then --当不是我们需要的那页的数据，则取下一条数据 continue ; elsif iCount > v_end_rownum then exit; else null; end if; vv_count := vv_count + 1; v_card_no_tab_info(vv_count) := \'{"cardNo":"\' || r.cardNo || \'","background":"\' ||r.background || \'","publicType":\' || r.publicType || \',"cardAreaType":"\' || r.cardAreaType || \'","isInMainCard":\' || r.isInMainCard || \',"isSetMainCard":"\' || r.isSetMainCard || \'","isTrade":"\' || r.isTrade || \'","isSend":"\' || r.isSend || \'","facePrice":"\' || r.facePrice || \'","isActive":"\' || r.isActive || \'","isMain":"\' || r.isMain || \'"}\'; end loop; --组合jl_card -- "cardList":" v_single_info := \'"cardList":[\'; 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; v_single_info := v_single_info || \']\'; v_ret :=\'00\'; v_des :=\'成功\'; DBMS_OUTPUT.put_line(\'v_single_info : \' || LENGTH(v_single_info)); 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 || \'}\'; return; exception when scanner_exception then p_out_str := \'{"resultCode":"94", "resultMsg":"Json扫描器异常"}\'; when parser_exception then p_out_str := \'{"resultCode":"95", "resultMsg":"Json解析器异常"}\'; when others then DBMS_OUTPUT.put_line(\'sqlcode : \' ||sqlcode); DBMS_OUTPUT.put_line(\'sqlerrm : \' ||sqlerrm); p_out_str := \'{"resultCode":"96", "resultMsg":"运行时异常"}\'; end APP_BUSSINESS_CARD_LIST;
另外一种分页方法：
-- SQL语句
v_sqltext := \'select tradeMonth as "tradeMonth",
debitAmount as "debitAmount",
loanAmount as "loanAmount"
from (select d.*, rownum as rn
from (select to_char(tradedate, \'\'yyyy.mm\'\') as tradeMonth,
sum(debitamount) as debitAmount,
sum(loanamount) as loanAmount
from xsh_trade_view
where cardno = \'\'\' || v_card_no || \'\'\'
group by to_char(tradedate, \'\'yyyy.mm\'\')
order by to_char(tradedate, \'\'yyyy.mm\'\') desc) d
where rownum <= \' || v_end_rownum || \')
where rn > \' || v_begin_rownum;
end if;
-- 执行SQL语句并返回josn_list数据
jl_trade := json_dyn.executeList(v_sqltext);