Chinaunix首页 | 论坛 | 博客
  • 博客访问: 149300
  • 博文数量: 26
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 219
  • 用 户 组: 普通用户
  • 注册时间: 2015-02-15 19:14
文章分类

全部博文(26)

文章存档

2017年(1)

2016年(1)

2015年(24)

我的朋友

分类: IT职场

2015-07-15 17:07:01

原文地址:如何解析XML到ABAP内表里 作者:SAP大兵

DATA :RESPONSE    TYPE STRING VALUE
'

false

90

null

'.


DATA XMLDATA TYPE XSTRING .
DATARESULT_XML TYPE STANDARD TABLE OF SMUM_XMLTB .
DATARETURN TYPE STANDARD TABLE OF BAPIRET2 .
DATAWA_XML TYPE SMUM_XMLTB.

CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
  TEXT   RESPONSE
IMPORTING
  BUFFER XMLDATA.

CALL FUNCTION 'SMUM_XML_PARSE'
EXPORTING
  XML_INPUT       XMLDATA
TABLES
  XML_TABLE       RESULT_XML
  RETURN          RETURN.


  DELETE result_xml WHERE type  NE 'A' OR hier NE '3'.
  DESCRIBE TABLE result_xml LINES line.
  IF result_xml IS NOT INITIAL.
    CLEAR lv_index.
    CLEAR ls_table.
    REFRESH lt_table.
    LOOP AT result_xml INTO wa_xml.
      lv_index lv_index + 1.
      CLEAR line.
      line lv_index MOD 8.
      CASE line.
        WHEN 1.
          ls_table-partner wa_xml-cvalue.
        WHEN 2.
          ls_table-partner_name wa_xml-cvalue.
        WHEN 3.
          ls_table-product_id wa_xml-cvalue.
        WHEN 4.
          ls_table-product_id_t wa_xml-cvalue.
        WHEN 5.
*          ls_table-zdate = wa_xml-cvalue.
          ls_table-zdate lv_date.
        WHEN 6.
          ls_table-cangku wa_xml-cvalue.
        WHEN 7.
          ls_table-cangku_t wa_xml-cvalue.
        WHEN 0.
          ls_table-quantity wa_xml-cvalue.
          APPEND ls_table TO lt_table.
          CLEAR ls_table.
      ENDCASE.
    ENDLOOP.

阅读(2034) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~