SAP ABAP JSON格式转ABAP内表

最新推荐文章于 2024-11-18 15:19:53 发布

原创最新推荐文章于 2024-11-18 15:19:53 发布 · 500 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#json

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

该文展示了在ABAP编程中如何使用/UI2/CL_JSON类进行JSON反序列化，将JSON字符串转换为数据表，并通过LOOPAT循环遍历处理记录，包括两种不同的JSON结构示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

实例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.

实例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.