oracle 11g plsql解析json数据示例

以下代码仅作plsql解析json格式数据示例：

 

CREATE OR REPLACE PROCEDURE test_proc(p1 VARCHAR2) AS

    v_json_varchar2 VARCHAR2(4000);
    injson          json;
    paramlist       json_list;
    onejson         json;

    --第一层  
    v_marketcode VARCHAR2(8);
    v_marketname VARCHAR2(64);
    v_address    VARCHAR2(64);
    v_tel        VARCHAR2(11);
    --第二层  
    v_name      VARCHAR2(64);
    v_fruitcode VARCHAR2(8);

BEGIN
    v_json_varchar2 := '{  
    "marketcode": "123456",  
    "marketname": "好吃的水果店",  
    "address": "一个好地方",  
    "tel": "12345678901",  
    "fruitlist": {  
        "name": "apple",  
        "fruitcode": "223344",  
        "applelist": [  
            {  
                "applename": "redapple