【ABAP】Json格式转ABAP内表
Demo 1:
TYPES: BEGIN OF T_RECORD1,
NUMNO TYPE CHAR10,
PRODNAME TYPE CHAR50,
END OF T_RECORD1.
DATA: JSON1 TYPE STRING.
DATA : RECORD1 TYPE TABLE OF T_RECORD1 WITH HEADER LINE .
JSON1 = '[{"NumNo":"001","ProdName":"Fert01"},{"NumNo":"002","ProdName":"Fert02"}]'.
/UI2/CL_JSON=>DESERIALIZE( EXPORTING JSON = JSON1
PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-CAMEL_CASE
CHANGING DATA = RECORD1[] ).
LOOP AT RECORD1.
WRITE : / RECORD1-NUMNO,RECORD1-PRODNAME.
ENDLOOP.
Demo 2:
DATA : BEGIN OF LS_RECORD,
DATALIST TYPE TABLE OF ZDATALIST_DETAIL,
END OF LS_RECORD.
DATA: JSON TYPE STRING.
DATA : RECORD2 TYPE ZDATALIST WITH HEADER LINE.
JSON = '{"dataList":[{"NumNo":"001","ProdName":"Fert01"},{"NumNo":"002","ProdName":"Fert02"}]}'.
/UI2/CL_JSON=>DESERIALIZE( EXPORTING JSON = JSON
PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-CAMEL_CASE
CHANGING DATA = LS_RECORD ).
IF LS_RECORD-DATALIST IS NOT INITIAL.
RECORD2[] = LS_RECORD-DATALIST.
ENDIF.
LOOP AT RECORD2.
WRITE : / RECORD2-NUMNO,RECORD2-PRODNAME.
ENDLOOP.
post SAP-Garson
原文链接:https://blog.csdn.net/zhongguomao/article/details/123882854文章来自于网络,如果侵犯了您的权益,请联系站长删除!