SAP ABAP JSON格式转ABAP内表

最新推荐文章于 2025-09-11 17:08:08 发布

最新推荐文章于 2025-09-11 17:08:08 发布 · 561 阅读

文章标签：

#json

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

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

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