Oracle EBS json

2022-03-05 13:10:18

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')); --个数

码农公寓

相关文章