PROCEDURE PRC_GET_MARKETORDERS_DATA(IN_MARKET_NAME IN VARCHAR2,
                                      IN_ORDERS_LIST IN CLOB) AS
    CDATA  CLOB;
    VAR_1  CLOB := IN_ORDERS_LIST;
    v_json json;
    --  v_array         json_list;
    v_array_1       json_list;
    v_array_2       json_list;
    v_array_element json;
  BEGIN
    execute immediate 'truncate table BIT_MARKETORDERS_TBL';
    DBMS_LOB.CREATETEMPORARY(CDATA, FALSE);
    CDATA := VAR_1;
  
    v_json := json(CDATA);
  
    --v_array := json_list(v_json.get('result'));
  
    v_array_1 := json_list(v_json.get('buy'));
    v_array_2 := json_list(v_json.get('sell'));
  
    for v_i in 1 .. v_array_1.count loop
      v_array_element := json(v_array_1.get(v_i));
      begin
        INSERT INTO BIT_MARKETORDERS_TBL
          (MARKETNAME, ORDERTYPE, QUANTITY, RATE)
        VALUES
          (IN_MARKET_NAME,
           1,
           v_array_element.get('Quantity').get_number(),
           v_array_element.get('Rate').get_number());
      exception
        when others then
          raise_application_error(-20001,
                                  'Ошибка сохранения JSON. Проверьте данные по покупке');
      end;
    end loop;
  
    for v_i in 1 .. v_array_2.count loop
      v_array_element := json(v_array_2.get(v_i));
      begin
        INSERT INTO BIT_MARKETORDERS_TBL
          (MARKETNAME, ORDERTYPE, QUANTITY, RATE)
        VALUES
          (IN_MARKET_NAME,
           2,
           v_array_element.get('Quantity').get_number(),
           v_array_element.get('Rate').get_number());
      exception
        when others then
          raise_application_error(-20001,
                                  'Ошибка сохранения JSON. Проверьте данные по продаже');
      end;
    end loop;
  
    DBMS_LOB.freetemporary(CDATA);
    COMMIT;
  END PRC_GET_MARKETORDERS_DATA;