Oracle EBS json

JSON:  JavaScript 对象表示法 JavaScript Object Notation

JSON 是存储和交换文本信息的语法。类似XML。

JSON 比 XML更小、更快，更易解析。

使用中，JSON有以下3种结构：

1. 对象：{"name":"Jenrry","age":19}

2.数组： 比如  [{"name":"Jenrry","age":19},{"name":"Jerry","age":25}]

3. 值：{“name”:"Jenrry","birthday":{"month":8,"day":2}},类似于对象嵌套对象

大括号{} 用来描述一组“不同类型的无序键值对集合”，每个键值对可以理解为OPP的属性描述，方括号[] 用来描述一组“相同类型的有序数据组合”。

摘自: https://www.cnblogs.com/xiaochongchong/p/5284441.html

如上，JSON是一种数据形式。

Oracle EBS中在REST接口中使用JSON数据，其实也是将XML格式转化而已。REST接口还是基于HTTP转发，使用HTTP协议里的POST方法，因此调用底层的 uttl_http函数。

l_exp_json json;
    l_exp_clob CLOB;

 l_exp_json := json();
  
    l_exp_json.put('COMPANY_CODE',
                   p_company_code);
    l_exp_json.put('REQUEST_STATUS',
                   1);
    l_exp_json.put('ERROR_MESSAGE',
                   p_exception_msg);
  
    l_exp_clob := empty_clob();
    dbms_lob.createtemporary(l_exp_clob,
                             TRUE);
    l_exp_json.to_clob(l_exp_clob,
                       TRUE);
    RETURN l_exp_clob;

　　

    l_all_json       json;
    l_single_json    json;
    l_json_list      json_list;
    l_batch_id       NUMBER;

    l_all_json := json();
    l_all_json.put('COMPANY_CODE',
                   g_company_code);
    l_all_json.put('REQUEST_STATUS',
                   0);
    l_all_json.put('ERROR_MESSAGE',
                   '');
    l_json_list := json_list();
  
    FOR rec_records IN cur_payment_data
    LOOP
      l_single_json := json();
      l_single_json.put('EXPENSE_NUMBER',
                        rec_records.expense_number);   
 l_single_json.put('EXPENSE_NUMBER2',
                        rec_records.expense_number2);    
  l_json_list.add_elem(l_single_json.to_json_value);
    END LOOP;
  
    l_all_json.put('RECORDS',
                   l_json_list);
    l_return_clob := empty_clob();
    dbms_lob.createtemporary(l_return_clob,
                             TRUE);
    l_all_json.to_clob(l_return_clob,
                       TRUE);
  
    x_rtn_clob := l_return_clob;
    dbms_lob.freetemporary(l_return_clob);

　 

FUNCTION invoke_webservice(p_wsdl         IN VARCHAR2,
                             p_soap_request IN VARCHAR2) RETURN xmltype IS
    http_req     utl_http.req;
    http_resp    utl_http.resp;
    soap_respond VARCHAR2(30000);
    resp         xmltype;
  BEGIN
  
    http_req := utl_http.begin_request(p_wsdl, 'POST', 'HTTP/1.1');
    utl_http.set_header(http_req, 'Content-Type', 'text/xml;charset=utf-8'); -- charset=utf-8 如多参数有中文必须加
    utl_http.set_header(http_req,
                        'Content-Length',
                        lengthb(p_soap_request)); --lengthb 不能用 length 如果用length 则碰见中文会报错
    utl_http.set_header(http_req, 'SOAPAction', '');
    utl_http.write_text(http_req, p_soap_request);
    http_resp := utl_http.get_response(http_req);
    utl_http.read_text(http_resp, soap_respond);
    utl_http.end_response(http_resp);
    resp := xmltype.createxml(soap_respond);
    RETURN resp;
  END;

　　

l_request  utl_http.req;
    l_response utl_http.resp;
l_resp_xml    xmltype;
    resp_json     json;
    l_resp_json   json_list;
    json_v        json_value;

l_req_data := 'page=' || p_page || '&size=10&startDate=' ||
                  to_char(nvl(p_start_date, SYSDATE - 1), 'YYYY-MM-DD') ||
                  '&endDate=' ||
                  to_char(nvl(p_end_date, SYSDATE + 1), 'YYYY-MM-DD');

l_url := l_url || l_req_data;

l_request := utl_http.begin_request(l_url,
                                        'POST',
                                        utl_http.http_version_1_1);
 utl_http.set_header(l_request,
                        'Content-Type',
                        'text/html; charset=utf-8');
    utl_http.set_header(l_request,
                        'Content-Length',
                        to_char(lengthb(l_url)));
utl_http.write_text(l_request, l_url);
    l_response := utl_http.get_response(l_request);
  
    utl_http.read_text(l_response, l_resp_data);
utl_http.end_response(l_response);
--插入数据
    resp_json     := json(l_resp_data);
    l_message     := get_string(json_ext.pp(obj    => resp_json,
                                            v_path => 'message'));
    l_status      := get_string(json_ext.pp(obj    => resp_json,
                                            v_path => 'status'));
    l_error_code  := get_string(json_ext.pp(obj    => resp_json,
                                            v_path => 'errorCode'));
    l_total_count := nvl(json_ext.pp(obj    => resp_json,
                                     v_path => 'totleCount'),
                         0);

--获取需要循环次数
      g_page      := ceil(l_total_count / 10);
      l_resp_json := json_list(json_ext.pp(obj    => resp_json,
                                           v_path => 'data')); --个数