
WHEN '&IC1'.
READ TABLE lt_log INTO ls_log INDEX rs_selfield-tabindex.
IF sy-subrc = 0.
CASE rs_selfield-fieldname.
WHEN 'XMLDATA2'.
CALL FUNCTION 'CRM_IC_XML_STRING2XSTRING'
EXPORTING
instring = ls_log-xmldata2
IMPORTING
outxstring = lv_xstring.
WHEN OTHERS.
CALL FUNCTION 'CRM_IC_XML_STRING2XSTRING'
EXPORTING
instring = ls_log-xmldata
IMPORTING
outxstring = lv_xstring.
ENDCASE.
CALL FUNCTION 'DISPLAY_XML_STRING'
EXPORTING
xml_string = lv_xstring
title = '接口XML'
starting_x = 5
starting_y = 5
EXCEPTIONS
no_xml_document = 1
OTHERS = 2.
IF sy-subrc <> 0.
REFRESH: lt_text, lt_text_tab.
CALL FUNCTION 'CONVERT_STRING_TO_TABLE'
EXPORTING
i_string = ls_log-xmldata
i_tabline_length = 120
TABLES
et_table = lt_text.
LOOP AT lt_text.
ls_text_tab-tdline = lt_text-line.
APPEND: ls_text_tab TO lt_text_tab.
ENDLOOP.
CALL FUNCTION 'COPO_POPUP_TO_DISPLAY_TEXTLIST'
EXPORTING
* TASK = 'DISPLAY'
titel = '内容'
* IMPORTING
* FUNCTION =
TABLES
text_table = lt_text_tab .
ENDIF.
ENDIF.
XML序列化弹窗
最新推荐文章于 2024-10-06 19:12:53 发布
博客涉及xml序列相关信息,但具体内容未给出。xml序列在信息技术领域有一定应用,可用于数据存储、传输等。

18

被折叠的 条评论
为什么被折叠?



