DECLARE

    l_json_str VARCHAR2(4000);

    l_json     json;

    l_year     VARCHAR2(10);

    l_month    VARCHAR2(10);

    TYPE arrays_data_rec IS RECORD(

         id   NUMBER

        ,code VARCHAR2(30)

        ,NAME VARCHAR2(100));

    TYPE arrays_data_tab IS TABLE OF arrays_data_rec INDEX BY BINARY_INTEGER;

    l_arrays_tab  arrays_data_tab;

    l_bodylist    json_list; --json列表

    l_arrays_json json; --用于解析每一个数组信息 

BEGIN

    l_arrays_tab.delete;

    l_json_str := '{ 

  "year": "2019", 

  "month":"05",

  "strArray": [{

    "id": 1,

    "code": "CODE1",

    "name": "NAME1" 

   },{

     "id": 2,

    "code": "CODE2",

    "name": "NAME2" 

   },{

     "id": 3,

    "code": "CODE3",

    "name": "NAME3" 

   }] }';

    BEGIN

        --将字符串转化为json格式

        l_json := json(l_json_str);

        --获取json的值

        l_year  := json_ext.get_string(l_json

                                      ,'year');

        l_month := json_ext.get_string(l_json

                                      ,'month');

        dbms_output.put_line('year:' || l_year || '--month:' || l_month);

        --json数组初始化

        l_arrays_json := json();

        --将strArray数组存至l_bodylist对象中

        l_bodylist := json_ext.get_json_list(l_json

                                            ,'strArray');

        IF l_bodylist IS NOT NULL THEN

            --循环数组，将值写入内存表中

            FOR idx IN 1 .. l_bodylist.count LOOP

                l_arrays_json := json(l_bodylist.get(idx));

                --注意：根据传入的值的数据类型进行对应的转换，不然会取不到值

                l_arrays_tab(idx).id := json_ext.get_number(l_arrays_json

                                                           ,'id');

                l_arrays_tab(idx).code := json_ext.get_string(l_arrays_json

                                                             ,'code');

                l_arrays_tab(idx).name := json_ext.get_string(l_arrays_json

                                                             ,'name');

                dbms_output.put_line(l_arrays_tab(idx).id || '--' || l_arrays_tab(idx).code || '--' || l_arrays_tab(idx).name);

            END LOOP;

        END IF;

    EXCEPTION

        WHEN OTHERS THEN

            dbms_output.put_line('JSON格式转换异常!');

    END;

EXCEPTION

    WHEN fnd_api.g_exc_error THEN

        dbms_output.put_line('error:' || SQLCODE || '--' || SQLERRM);

    WHEN fnd_api.g_exc_unexpected_error THEN

        dbms_output.put_line('Unexpected_error.' || SQLCODE || '--' || SQLERRM);

    WHEN OTHERS THEN

        dbms_output.put_line('Other error:' || SQLCODE || '--' || SQLERRM);

END;