ABAP DATA 和 JSON之间的转换

最近在需要使用ECC直接调用HTTP服务的第三方服务，ABAP需要对JSON进行序列化和反序列化。
   最开始我找到了cl_trex_json_serializer和cl_trex_json_deserializer，进行序列化和反序列化。cl_trex_json_serializer很好的支持了内表到JSON,转换很简单，但是如果需要传输的JSON结构很复杂，在序列化的时候需要费很多周折。在使用cl_trex_json_deserializer的时候，也有一些小问题，KEY不能带双引号，还必须是大写。这2个类对于处理固定结构的JSON会很简单，但是我需要一个通用的方法。
   后面找到了一个牛人写的自定义类zcl_mdp_json*，它包含deserializer，node,serializer一共三个类。可以很方便的根据参数进行JOSN的序列化和反序列化，它的处理逻辑就是把JSON作为一个对象进行处理，整个JSON是一个ROOT NODE,不停的获取CHILD NODE,直到到最底层。
   下面是我的DEMO:

REPORT YMM00_ZWY04.

DATA json_response TYPE string.
DATA json_response2 TYPE string.
DATA json_response3 TYPE string.

json_response2 = {"ErrorNo":"1","UIMessage":"ok","ErrorMessage":"","ErrorType":"0","parameters":{"log_session_id":"20170330102407397_162"},.
json_response3 = "sap_test":{"row1":{"func_id":"HG9300008","datetime":"20170330 102407"}}}.

CONCATENATE json_response2 json_response3 INTO  json_response SEPARATED BY cl_abap_char_utilities=>cr_lf .

DATA: l_json_root_object TYPE REF TO zcl_mdp_json_node.
DATA: l_ErrorType_object TYPE REF TO zcl_mdp_json_node.
DATA: l_sap_test_object TYPE REF TO zcl_mdp_json_node.
DATA: l_ErrorNo_object TYPE REF TO zcl_mdp_json_node.
DATA: l_sap_test_ROW1_object TYPE REF TO zcl_mdp_json_node.
DATA: l_sap_test_func_id_object TYPE REF TO zcl_mdp_json_node.

l_json_root_object = zcl_mdp_json_node=>deserialize( json = json_response ).
DATA: l_string TYPE STRING.
l_ErrorType_object = l_json_root_object->object_get_child_node( KEY = ErrorType).
l_sap_test_object  = l_json_root_object->object_get_child_node( KEY = sap_test).


l_sap_test_ROW1_object = l_sap_test_object->object_get_child_node( KEY = row1).
l_sap_test_func_id_object = l_sap_test_ROW1_object->object_get_child_node( KEY = func_id).

WRITE: / l_sap_test_func_id_object->VALUE.

牛人的地址： 代码地址： GitHub上面的有代码的安装提示，还要需要注意里面的Issues，代码里面有点BUG的，在Issues里面 有提到了。 另外个地址： 这是另外一个DEMO。

PS:发现了一个,里面有个，配合之前的zcl_mdp_json*，我们可以很好的序列化和反序列化各种各样的JSON了。 另外之前提到的cl_trex_json*，SAP已经不支持了，只能内部使用。所以使用的时候需要谨慎。 zJSON的安装需要ZSAPLINK,这个百度下就OK了。