SAP ABAP 中驼峰字段名转 JSON 的实现方案

有人问：SAP中驼峰字段名的集成接口，转Json时，abap要如何处理呢？

在 SAP 系统开发中，当通过接口与外部系统交互时，JSON 格式因其轻量、易解析的特性被广泛使用。而外部系统常采用驼峰式（Camel Case）字段命名规范（如 customerId），但 ABAP 数据字典中的字段通常遵循大写字母加下划线的命名规则（如 CUSTOMER_ID）。如何在 ABAP 中将驼峰字段名正确转换为 JSON 格式？本文将介绍一种借助 CL_JSON 类与字段描述（Short Text）的实现方法。

一、实现原理

ABAP 的 CL_JSON 类提供了 serialize 方法用于数据到 JSON 的序列化。当设置 pretty_name = 'X' 时，该方法会使用字段的 短文本（Short Text） 作为 JSON 键名。因此，只需将数据字典中字段的短文本配置为驼峰格式，即可在序列化时生成符合要求的 JSON 字段名。

二、操作步骤

1. 配置数据字典字段描述

在 SAP 数据字典（SE11）中，打开目标结构体（或表），为每个需转换为驼峰的字段设置 短文本（Short Text）。例如：

• ABAP 字段名：CUSTOMER_ID，短文本设置为 customerId；
• ABAP 字段名：CUSTOMER_NAME，短文本设置为 customerName。

2. ABAP 代码实现

以下代码演示了如何将包含驼峰字段的内表序列化为 JSON：

REPORT z_demo_json_camel_case." 假设数据字典中已定义结构体 ZTS_CUSTOMER（字段短文本为驼峰）
TYPES: BEGIN OF zts_customer,customer_id   TYPE int4,     " ABAP 规范字段名（实际开发中对应数据字典字段）customer_name TYPE string,   " ABAP 规范字段名（实际开发中对应数据字典字段）END OF zts_customer.DATA: it_data TYPE STANDARD TABLE OF zts_customer,  " 定义内表lv_json TYPE string.                          " 存储 JSON 结果" 填充测试数据
it_data = VALUE #( ( customer_id = 1001 customer_name = '张三' ) ).TRY." 调用 CL_JSON 序列化，设置 pretty_name = 'X' 启用字段描述作为键名cl_json=>serialize(EXPORTINGdata          = it_data    " 传入内表（若为单个结构体，直接传入结构体变量）compress      = 'X'        " 压缩 JSON（可选，减少字符串长度）pretty_name   = 'X'        " 关键参数：使用字段短文本作为 JSON 键名CHANGINGjson_text     = lv_json).WRITE: / 'JSON 结果：', lv_json. " 输出示例：[{"customerId":1001,"customerName":"张三"}]CATCH cx_json INTO DATA(lo_exc).WRITE: / '错误：', lo_exc->get_text( ).
ENDTRY.

3. 代码解析

• cl_json=>serialize：ABAP 中用于 JSON 序列化的核心方法。
  • data：传入待转换的内表或结构体。
  • compress = 'X'：可选参数，压缩生成的 JSON 字符串（去除空格等）。
  • pretty_name = 'X'：核心参数，使能使用字段短文本作为 JSON 键名。
• 通过此配置，CL_JSON 会自动读取字段短文本（驼峰格式），生成符合要求的 JSON 输出。

三、注意事项

• 字段描述准确性：确保数据字典中字段短文本与目标驼峰格式完全一致，否则 JSON 键名会出错。
• 兼容性：此方法适用于 ABAP 7.40 及以上版本（CL_JSON 类在这些版本中功能稳定）。
• 复杂场景处理：若需动态调整字段名（如非数据字典标准结构），可结合 DESCRIBE FIELD 动态获取字段信息，再手动处理键名，但代码复杂度会增加。