ABAP写一个内表转成 JSON

下面是一个简单的 ABAP 程序将内表转换为 JSON 格式：

REPORT z_convert_table_to_json.

TYPES: BEGIN OF ty_data,
         col1 TYPE string,
         col2 TYPE string,
       END OF ty_data.

DATA: lt_data TYPE STANDARD TABLE OF ty_data,
      ls_data TYPE ty_data,
      lv_json TYPE string.

* 填充测试数据
ls_data-col1 = 'A'.
ls_data-col2 = 'B'.
APPEND ls_data TO lt_data.

ls_data-col1 = 'C'.
ls_data-col2 = 'D'.
APPEND ls_data TO lt_data.

* 转换内表为 JSON
CALL TRANSFORMATION id SOURCE lt_data = lt_data
                        RESULT XML lv_json.

* 输出 JSON
WRITE: / lv_json.

在上面的代码中，我们首先定义了一个内表 `lt_data`，其中包含两个字符串类型的字段。然后，我们向该表中添加了两行测试数据。接下来，我们使用 `CALL TRANSFORMATION` 语句将内表 `lt_data` 转换为 JSON 格式，并将结果存储在字符串变量 `lv_json` 中。最后，我们使用 `WRITE` 语句将 JSON 字符串输出到控制台。