json - 将json解析为具有小写字段名称的数据结构

Question

我正在将 JSON 解析为 ABAP 结构，它的工作原理是:

DATA cl_oops TYPE REF TO cx_dynamic_check.
DATA(text) = `{"TEXT":"Hello ABAP, I'm JSON!","CODE":"123"}`.
TYPES: BEGIN OF ty_structure,
         text TYPE string,
         code TYPE char3,
       END OF ty_structure.
DATA : wa_structure TYPE ty_structure.
TRY.
    text = |\{"DATA":{ text }\}|.
    CALL TRANSFORMATION id OPTIONS clear = 'all' 
         SOURCE XML text 
         RESULT data = wa_structure.
    WRITE: wa_structure-text , wa_structure-code.
  CATCH cx_transformation_error INTO cl_oops.
    WRITE cl_oops->get_longtext( ).
ENDTRY.

有趣的部分是 CODE 和 TEXT 区分大小写。对于大多数外部系统，拥有所有大写标识符是丑陋的，所以我一直试图解析 {"text":"Hello ABAP, I'm JSON!","code":"123"}没有任何成功。我查看了选项，我查看了 id 的副本是否已更改可能会做到这一点，我用谷歌搜索，不知道如何做到这一点。

Answer 1

原来，SAP 有一个 sample program on how to do this.
基本上有一个开箱即用的转换可以为您执行此操作，称为 demo_json_xml_to_upper .这个名字有点不幸，所以我建议重命名这个转换并将它添加到客户命名空间。

我有点沮丧，这只能通过 xstrings 工作，所以调试它变得很痛苦。但是，它完美地工作并解决了我的问题。