ABAP 内表与XML转换

最新推荐文章于 2024-07-30 11:43:50 发布
最新推荐文章于 2024-07-30 11:43:50 发布
阅读量1.4k 收藏 14
点赞数 2
CC 4.0 BY-SA版权
分类专栏： ABAP 文章标签： ABAP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/BinGeneral/article/details/127117901
这篇博客详细介绍了如何在SAP系统中通过事务代码STRANS创建转换编辑器，将SAP内表转换为XML文件，并将接收到的XML文件还原为内表。过程中涉及了表类型的创建、图形化编辑转换及错误处理。示例代码展示了内表到XML以及XML到内表的转换过程。

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

1需求说明

在系统交互中需要将SAP内表转换为XML文件，发送给其他系统，并且将其他系统返回的XML文件转换为SAP内表。

2创建转换编辑器

事务代码：STRANS

选择简单转换

以图形方式编辑

右键插入新行

选择参考的类型。此处的TYPE类型是SE11中创建的表类型

SE11表类型如下

结构为嵌套结构，其中包含详细信息的表类型

详细信息表类型

其中包含两个详细信息字段

插入行后整个结构如下

在源代码中将会看到如下信息

完成XML格式

3代码实现

3.1内表与XML转换

定义变量

头行内表赋值

将内表转换为XML，并将返回的二进制字符串转为XML字符串

将XML转换为内表

3.2源代码

"-----------------------------------------@斌将军--------------------------------------------
DATA:LT_EKKO     TYPE ZTXML001,
     GT_EKKO     TYPE ZTXML001,
     GS_EKKO     TYPE ZSXML001,
     GT_EKPO     TYPE ZTDETAIL,
     GS_EKPO     TYPE ZSDETAIL,
     XML_XSTRING TYPE XSTRING,
     XML_STRING  TYPE STRING,
     LO_OREF     TYPE REF TO CX_ST_ERROR,
     LV_MESSAGE  TYPE CHAR200.       "输出参数

"行结构
GS_EKPO-EBELP = '00010'.
GS_EKPO-LOEKZ = 'X'.
APPEND GS_EKPO TO GT_EKPO.

"头结构
GS_EKKO-ID = '111'.
GS_EKKO-EBELN = '4100000011'.
GS_EKKO-BUKRS = '2000'.
GS_EKKO-DETAIL = GT_EKPO.
APPEND GS_EKKO TO GT_EKKO.

"将内表转换为XML
TRY .
    CALL TRANSFORMATION ZXMLTEST001
                  SOURCE POHEADER = GT_EKKO
                  RESULT XML XML_XSTRING.
    "2进制转换XML字符串不乱码
    CALL FUNCTION 'ECATT_CONV_XSTRING_TO_STRING'
      EXPORTING
        IM_XSTRING  = XML_XSTRING "二进制字符串
        IM_ENCODING = 'UTF-8'
      IMPORTING
        EX_STRING   = XML_STRING. "返回的xml字符串
  CATCH CX_ST_ERROR INTO LO_OREF.
    "传输XML转换错误
    LV_MESSAGE  = LO_OREF->GET_TEXT( ) .
    "报错日志保存
ENDTRY.
WRITE /:XML_STRING.

"将XML转换为内表
TRY.

    CALL TRANSFORMATION ZXMLTEST001
    SOURCE XML XML_STRING
    RESULT POHEADER = LT_EKKO.
  CATCH CX_ST_ERROR INTO LO_OREF.
    "返回XML解析错误
    LV_MESSAGE = LO_OREF->GET_TEXT( ).
ENDTRY.
WRITE /:LV_MESSAGE.
"-----------------------------------------@斌将军--------------------------------------------
ABAP 和 XML 数据格式互相转换的两种方式
2007 年 ~ 2025 年，深耕 SAP 技术 18 年
09-13 1万+
ABAP和XML数据格式互相转换是广大开发人员经常遇到的需求。本文介绍两种方式。 1. ABAP提供了一个工具类cl_proxy_xml_transform，通过它的两个方法abap_to_xml_xstring和xml_xstring_to_abap实现两种格式的互换。 看具体例子： REPORT zxm. DATA: ls_abap TYPE zzcrmost__pro001dot...
133. 九行代码学习使用 Transformation 的方式把 ABAP 数据序列化成 XML
2007 年 ~ 2025 年，深耕 SAP 技术 18 年
02-01 420
可以看到，我们在 ABAP 代码里，关键字 CALL TRANSFORMATION 指定的 xmldat 和 xmltim, 出现在了生成的 XML 字符串里，只不过这些 XML 里包裹在尖括号。至此我们完成了将 ABAP 数据转换成 XML 字符串的任务，但是这个 XML 字符串里有一些节点，是我们不太感兴趣的，比如。本文介绍一种通过 Transformation 的方式，把 ABAP 数据，转换成 XML 字符串的技术实现。我们首先执行上面的程序，看看转换好的 XML 字符串，包含在变量。
Sap ABAP内表转Xml
NeLoveFy的博客
09-27 547
abap内表转Xml，替换Item标签
ABAP内表与XML格式互转
SAP ABAP开发技能记录分享
08-16 867
在系统交互中需要将SAP内表转换为XML文件，发送给其他系统，并且将其他系统返回的XML文件转换为SAP内表。此处的TYPE类型是SE11中创建的表类型。将内表转换为XML，并将返回的二进制字符串转为XML字符串。结构为嵌套结构，其中包含详细信息的表类型。在源代码中将会看到如下信息。其中包含两个详细信息字段。事务代码：STRANS。3.1内表与XML转换。插入行后整个结构如下。
SAP ABAP一个可以直接把内表转换成xml文件的函数
SAP 学习
01-25 9537
项目中很经常需要把sap的内表内容放入xml文件然后传输给其他系统，因此写了一个函数，可以把内表直接放入xml文件中，比使用CALL span { background: rgb(255, 255, 255) none repeat scroll 0% 0%; font-family: "新宋体"; font-size: 11pt; color: rgb(0, 0, 0); -moz-background-clip: border; -moz-background-origin: padding; -m
ABAP: 内表到xml，以excel形式发送邮件 - 分段解析
初心者
11-06 2447
内表拼成xml文件，并以excel形式作为邮件附件发送
sap strans解析json_事务代码STRANS的使用（XML与ABAP内表相互转换）
weixin_39710396的博客
12-21 1445
ABAP ---> XML and XML --->ABAP要求的XML格式如下：4500524641订单抬头数据更新成功哦！S4500524641订单抬头数据更新成功哦！S450052464200010行项目新增成功哟!S4500524641行项目更新成功哟!S4500524641行项目更新成功哟!S事务代码Strans创建转换ZQBTEST_SAMPLE3SE38创建测试的报表程...
SAP WORD<->XML转换输出
12-11
在进行Word与XML转换时，需要注意以下几点： - 在Word中制作表格确保数据对齐。 - 使用Office 2003格式的XML文件，以保证与SAP系统的兼容性。 - 在ABAP编程中，正确配置和使用STRANS的自定义转换对象。 - 确保传递给...
ABAP 怎样将XML和JSON格式转换为HTML格式显示
weixin_42459695的博客
03-11 832
ABAP 将XML和JSON格式转换为HTML格式显示
SAP解析xml abap解析xml
10-27
sap解析xml报文并将报文内容提取到内表中，附件带有详细的源代码和操作步骤。有注释！
ABAP解析XML
04-20
ABAP解析XML实例 用到了if_ixml_document等对象
生成XML文件ABAP程序
07-09
生成XML文件ABAP程序 REPORT zams_xml_dom_create . TYPE-POOLS: ixml. CLASS cl_ixml DEFINITION LOAD. TYPES: BEGIN OF xml_line, data(256) TYPE x, END OF xml_line. DATA: l_ixml TYPE REF TO if_ixml, l_streamfactory TYPE REF TO if_ixml_stream_factory, l_ostream TYPE REF TO if_ixml_ostream, l_renderer TYPE REF TO if_ixml_renderer, l_document TYPE REF TO if_ixml_document. DATA:l_element_ArchiveBatch TYPE REF TO if_ixml_element, l_element_BatchNumber TYPE REF TO if_ixml_element, l_element_TotalFiles TYPE REF TO if_ixml_element, l_element_TotalVolumes TYPE REF TO if_ixml_element, l_element_TotalPieces TYPE REF TO if_ixml_element, l_element_Entries TYPE REF TO if_ixml_element, l_element_Entry TYPE REF TO if_ixml_element, l_element_RecordsCombiningType TYPE REF TO if_ixml_element, l_element_FilePath TYPE REF TO if_ixml_element, l_element_SourceFileName TYPE REF TO if_ixml_element, l_element_ClassificationCode TYPE REF TO if_ixml_element, l_element_ElectronicRecordCode TYPE REF TO if_ixml_element, l_value TYPE string, l_name type string. DATA: l_xml_table TYPE TABLE OF xml_line, l_xml_size TYPE i, l_rc TYPE i. START-OF-SELECTION. *Creating a ixml factory l_ixml = cl_ixml=>create( ). *Creating the dom object model l_document = l_ixml->create_document( ). *Fill root node with value ArchiveBatch l_element_ArchiveBatch = l_document->create_simple_element( name = 'ArchiveBatch' parent = l_document ). * clear l_value. * l_value = '"http://www.w3.org/2001/XMLSchema-instance"'. * l_rc = l_element_ArchiveBatch->set_attribute( name = 'xmlns: *xsi' * value = l_value ). * * clear l_value. * concatenate '"D:\dev\vs\projects\AMS\DotNet\Sinopec.Ams.' * 'Integration\bin\Debug\config\AmsIntegration.xsd"' * into l_value. * l_name = 'xsi:noNamespaceSchemaLocation'. * l_rc = l_element_ArchiveBatch->set_attribute( name = l_name *value = l_value ). *BatchNumber l_element_BatchNumber = l_document->create_simple_element( name = 'BatchNumber' value = '20100609001' parent = l_element_ArchiveBatch ). *TotalFiles l_element_TotalFiles = l_document->create_simple_element( name = 'TotalFiles' value = '5' parent = l_element_ArchiveBatch ). *TotalVolumes l_element_TotalVolumes = l_document->create_simple_element( name = 'TotalVolumes' value = '3' parent = l_element_ArchiveBatch ). *TotalPieces l_element_TotalPieces = l_document->create_simple_element( name = 'TotalPieces' value = '5' parent = l_element_ArchiveBatch ). *Entries l_element_Entries = l_document->create_simple_element( name = 'Entries' parent = l_element_ArchiveBatch ). *Entry1 l_element_Entry = l_document->create_simple_element( name = 'Entry' parent = l_element_Entries ). *Entry1下面的子项 *RecordsCombiningType l_element_RecordsCombiningType = l_document->create_simple_element( name = 'RecordsCombiningType' value = 'Volume' parent = l_element_Entry ). *FilePath l_element_FilePath = l_document->create_simple_element( name = 'FilePath' value = '全宗001/目录001/案卷001/档案一.docx' parent = l_element_Entry ). *SourceFileName l_element_SourceFileName = l_document->create_simple_element( name = 'SourceFileName' value = '档案一' parent = l_element_Entry ). *ClassificationCode l_element_ClassificationCode = l_document->create_simple_element( name = 'ClassificationCode' value = 'wenshu' parent = l_element_Entry ). *ElectronicRecordCode l_element_ElectronicRecordCode = l_document->create_simple_element( name = 'ElectronicRecordCode' value = 'BJSH-001' parent = l_element_Entry ). *Entry1 * Creating a stream factory l_streamfactory = l_ixml->create_stream_factory( ). * Connect internal XML table to stream factory l_ostream = l_streamfactory->create_ostream_itable( table = l_xml_table ). * Rendering the document l_renderer = l_ixml->create_renderer( ostream = l_ostream document = l_document ). l_rc = l_renderer->render( ). * Saving the XML document l_xml_size = l_ostream->get_num_written_raw( ). CALL METHOD cl_gui_frontend_services=>gui_download EXPORTING bin_filesize = l_xml_size filename = 'c:\temp\metas.xml' filetype = 'BIN' CHANGING data_tab = l_xml_table EXCEPTIONS OTHERS = 24. IF sy-subrc 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF.
SAP ABAP 内表转换XML记录
matinal 當冬夜漸暖 。公众号：matinal
05-04 414
【代码】SAP ABAP 内表转换XML记录。
ABAP 内表与XML的相互转换
weixin_42459695的博客
02-28 3189
ABAP 内表与XML转换 1、需求说明 ​ 在系统交互中需要将SAP内表转换为XML文件，发送给其他系统，并且将其他系统返回的XML文件转换为SAP内表。 2、创建转换编辑器 首先在SE11建立后面需要使用的结构和表结构 结构ZSDETAIL： 表类型ZTDETAIL： 结构ZSXML001： 表类型ZTXML001： 事务码STRANS建立转换器。 选择简单转换 以图形方式编辑 右键插入新行 选择参考的类型，此处的TYPE类型是SE11中创建的表类型 插入行后整
ABAP将XML解析为内表
Joker's blog
02-09 1418
背景 最近在弄Fiori 的新闻磁贴，然后了解了一下新闻磁贴的原理(RSS),其中RSS常用是XML的格式，所以需要使用ABAP对RSS订阅进行解析后然后odata(或者restful)输出 解析后的内表 demo code ABAP REPORT Y_PERSON_XML. DATA lv_url TYPE string VALUE 'https://blog.youkuaiyun.com/huanglin6/rss/list?spm=1001.2014.3001.5494'. DATA l
SAP Abap复杂Xml处理 - 关于Xml转Abap内表
NeLoveFy的博客
09-15 1323
Xml转ABAP内表
SAP[ABAP] XML跟内表互相转换
qq_39313859的博客
07-30 1626
1.1 SE37创建一个ZFM_614_SEND_POXML函数。转换2： ZSTRANS_KF614_RETXML1。转换1：ZSTRANS_KF614_XML1。2.1 TCODE:STRANS创建转换。
SAP 内表转XML文件 老白的文章
weixin_34267123的博客
09-06 343
输出XML文件 ...
abap内表转换为json代码
最新发布
03-14
<think>好的，我现在需要帮助用户找到将ABAP内表转换为JSON的代码示例或实现方法。首先，用户提到了两个引用，其中一个是关于将内表导出为Excel的方法，另一个提到了事务代码STRANS用于XML和内表的转换。不过用户现在需要的是转JSON的方法，所以可能需要考虑不同的方法。 首先，我应该回忆ABAP中处理JSON的常见方法。记得ABAP中有类CL_TREX_JSON_SERIALIZER和CL_TREX_JSON_DESERIALIZER，可能可以用来序列化和反序列化JSON。另外，可能还有其他方法，比如使用第三方库或自定义转换。 然后，检查用户提供的引用。引用[2]提到了STRANS事务代码处理XML和内表转换，但用户需要的是JSON。不过，可能用户提供的引用中没有直接相关的JSON方法，所以可能需要提供新的示例。 接下来，我需要确认正确的类和方法。比如，CL_TREX_JSON_SERIALIZER的SERIALIZE方法可以将ABAP数据转换为JSON字符串。需要确保用户的内表结构是扁平的，因为复杂的结构可能需要额外处理。 另外，SAP在较新的版本中可能引入了其他类，比如CL_SXML_STRING_WRITER或CL_SXML_STRING_READER，支持JSON的读写。但需要确认版本兼容性。 用户可能需要一个具体的例子。例如，定义内表结构，填充数据，然后使用序列化类生成JSON。同时，需要注意Unicode的问题，确保转换正确，避免出现错误，如引用[1]中提到的函数的问题。 此外，可能还需要处理字段名称的转换，比如将ABAP字段名转换为小写的JSON键。这时候可能需要使用字段符号或动态结构来调整字段名称。 最后，需要提醒用户可能遇到的问题，比如嵌套结构需要递归处理，或者性能问题处理大数据量时的优化方法。</think>### ABAP内表转换为JSON的实现方法 在ABAP中实现内表到JSON的转换，可通过以下两种主要方法： --- #### 方法1: 使用标准类`CL_TREX_JSON_SERIALIZER` **步骤说明**： 1. **定义内表结构**：需确保内表字段类型与JSON数据类型兼容（如字符串、数字）。 2. **序列化操作**：调用`CL_TREX_JSON_SERIALIZER`的`SERIALIZE`方法，将内表转换为JSON字符串。 **示例代码**： ```abap DATA: lt_data TYPE TABLE OF zst_struct, " 假设zst_struct为自定义结构 lo_serializer TYPE REF TO cl_trex_json_serializer, lv_json TYPE string. " 填充内表数据（示例） APPEND VALUE #( field1 = 'value1' field2 = 100 ) TO lt_data. " 创建序列化对象并转换 CREATE OBJECT lo_serializer EXPORTING data = lt_data. lo_serializer->serialize( ). lv_json = lo_serializer->get_data( ). WRITE lv_json. " 输出JSON字符串 ``` **注意**： - 此方法要求内表字段名与JSON键名一致，若需自定义键名，需通过动态调整字段映射[^1]。 - 复杂嵌套结构可能需要递归处理[^2]。 --- #### 方法2: 使用事务代码`STRANS`与XSLT转换 若需更灵活控制JSON格式，可结合`STRANS`事务代码将内表先转为XML，再通过XSLT转换为JSON。 **步骤说明**： 1. **内表转XML**：使用`CALL TRANSFORMATION`生成XML。 2. **XSLT转换**：编写XSLT样式表将XML转换为JSON格式。 **示例代码片段**： ```abap DATA: lt_data TYPE TABLE OF zst_struct, lv_xml TYPE string, lv_json TYPE string. " 内表转XML CALL TRANSFORMATION id SOURCE data = lt_data RESULT XML lv_xml. " 调用XSLT转换（需自定义XSLT） CALL TRANSFORMATION z_json_converter SOURCE XML lv_xml RESULT XML lv_json. ``` **注意**： - 需提前在SE80中定义XSLT样式表`z_json_converter`，实现XML到JSON的映射逻辑。 - 此方法适合处理复杂数据结构，但需额外维护XSLT文件。 --- ### 相关问题 1. **如何避免JSON转换时的Unicode错误？** 确保序列化类支持UTF-8编码，避免使用旧函数如`EXCEL_OLE_STANDARD_DAT`。 2. **如何处理内表中的深层嵌套结构？** 需递归遍历内表字段，或使用动态编程技术生成层级化JSON[^2]。 3. **是否有现成的第三方库支持JSON转换？** 可考虑使用开源库如`ZCL_JSON`（需自行导入），或SAP Cloud SDK中的JSON工具类。 --- **引用说明** : 使用标准函数时需注意Unicode兼容性，避免旧函数导致的转换错误。 [^2]: 复杂结构转换需结合动态字段映射或XSLT扩展逻辑。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值