matinal：SAP ABAP 生成XML的例子

最新推荐文章于 2023-09-27 15:05:57 发布
SAPmatinal
最新推荐文章于 2023-09-27 15:05:57 发布
阅读量231
点赞数
分类专栏： ABAP技术文章标签： xml 前端 javascript 服务器算法数据库运维
本文链接：https://blog.csdn.net/SAPmatinal/article/details/133040695
版权
ABAP技术专栏收录该内容
1023 篇文章 132 订阅
订阅专栏
REPORT ZXML_A.

SET EXTENDED CHECK OFF.

TYPE-POOLS: IXML.

*&---------------------------------------------------------------------*
*& Report  T_DOM_MANIPULATE
*&
*&---------------------------------------------------------------------*
*& shows how to manipulate a dom tree
*&---------------------------------------------------------------------*
***********************************************************
* macros

DEFINE XML.

  WRITE: / 'XML:', &1 COLOR COL_POSITIVE INVERSE.

END-OF-DEFINITION.

*************************************************************
* global data
*
DATA: DOCUMENT  TYPE REF TO IF_IXML_DOCUMENT,

      RET       TYPE I.
*************************************************************
* building a DOM tree from scratch
*

START-OF-SELECTION.

* create the tree
  PERFORM CREATE_DOM CHANGING DOCUMENT.

* print the tree
  ULINE. WRITE: / 'DOCUMENT BEFOR MANIPULATION'.

  PERFORM PRINT_DOM USING DOCUMENT.

* render the tree
  PERFORM MANIP_DOM CHANGING DOCUMENT.

* print the tree
  ULINE. WRITE: / 'DOCUMENT AFTER MANIPULATION'.

  PERFORM PRINT_DOM USING DOCUMENT.

* render the tree
  PERFORM RENDER_DOM CHANGING DOCUMENT.

*&---------------------------------------------------------------------*
*&      Form  create_dom
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_DOCUMENT  text
*----------------------------------------------------------------------*

FORM CREATE_DOM CHANGING DOCUMENT TYPE REF TO IF_IXML_DOCUMENT.

*------------------------------
* document to create
*------------------------------

* <?xml version="1.0"?>

* <order number="4711">

*    <head>

*      <status>confirmed</status>

*      <date format="mm/dd/yyyy">08/15/1999</date>

*    </head>

*    <body>

*      <item pos="10" units="2" price="17">abap-book  </item>

*      <item pos="20" units="1" price="10">sapr3-cdrom</item>

*      <item pos="30" units="5" price="12">coffee     </item>

*    </body>

* </order>

*------------------------------

  DATA:  IXML      TYPE REF TO IF_IXML,

         PARENT    TYPE REF TO IF_IXML_NODE,

         ELEMENT   TYPE REF TO IF_IXML_ELEMENT,

         NODE      TYPE REF TO IF_IXML_NODE,

         RET       TYPE I.

* create the ixml main factory

  IXML = CL_IXML=>CREATE( ).

* create a empty document

  DOCUMENT = IXML->CREATE_DOCUMENT( ).

* create root node <order>                   "根节点！！！！！！！！！！

  ELEMENT = DOCUMENT->CREATE_ELEMENT( NAME = 'order' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'number' VALUE = '4711' ).

  RET = DOCUMENT->APPEND_CHILD( NEW_CHILD = ELEMENT ).

* remember <order> node

  PARENT = ELEMENT.

* create node <head>

  ELEMENT = DOCUMENT->CREATE_ELEMENT( NAME = 'head' ).

  RET = PARENT->APPEND_CHILD( NEW_CHILD = ELEMENT ).

* create node <body>

  ELEMENT = DOCUMENT->CREATE_ELEMENT( NAME = 'body' ).

  RET = PARENT->APPEND_CHILD( NEW_CHILD = ELEMENT ).

* find <head> node

  PARENT  = DOCUMENT->FIND_FROM_NAME( NAME = 'head' ).

* create <status>confirmed</status>

  ELEMENT = DOCUMENT->CREATE_ELEMENT( NAME = 'status' ).

  RET = ELEMENT->SET_VALUE( VALUE = 'confirmed' ).

  RET = PARENT->APPEND_CHILD( NEW_CHILD = ELEMENT ).

* create <date format="mm/dd/yyyy">08/15/2001</date>

  ELEMENT = DOCUMENT->CREATE_ELEMENT( NAME = 'date' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'format' VALUE = 'mm/dd/yyyy' ).

  RET = ELEMENT->SET_VALUE( VALUE = '08/15/2001' ).

  RET = PARENT->APPEND_CHILD( NEW_CHILD = ELEMENT ).

* find <body> node

  PARENT = DOCUMENT->FIND_FROM_NAME( NAME = 'body' ).

* create <item pos="10" units="2" price="17">abap-book</item>

  ELEMENT = DOCUMENT->CREATE_ELEMENT( NAME = 'item' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'pos'   VALUE = '10' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'units' VALUE = '2'  ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'price' VALUE = '17' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'st'    VALUE = '1' ).

  RET = ELEMENT->SET_VALUE( VALUE = 'abap-book' ).

  RET = PARENT->APPEND_CHILD( NEW_CHILD = ELEMENT ).

* create <item pos="20" units="1" price="10">sapr3-cdrom</item>

  ELEMENT = DOCUMENT->CREATE_ELEMENT( NAME = 'item' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'pos'   VALUE = '20' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'units' VALUE = '1'  ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'price' VALUE = '10' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'st'    VALUE = '2' ).

  RET = ELEMENT->SET_VALUE( VALUE = 'sapr3-cdrom' ).

  RET = PARENT->APPEND_CHILD( NEW_CHILD = ELEMENT ).

* create <item pos="30" units="5" price="12">coffee</item>

  ELEMENT = DOCUMENT->CREATE_ELEMENT( NAME = 'item' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'pos'   VALUE = '30' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'units' VALUE = '5'  ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'price' VALUE = '10' ).

  RET = ELEMENT->SET_ATTRIBUTE( NAME = 'st'    VALUE = '3' ).

  RET = ELEMENT->SET_VALUE( VALUE = 'coffee' ).

  RET = PARENT->APPEND_CHILD( NEW_CHILD = ELEMENT ).

ENDFORM.                    " create_dom

*&---------------------------------------------------------------------*
*&      Form  render_dom
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_DOCUMENT  text
*----------------------------------------------------------------------*

FORM RENDER_DOM CHANGING P_DOCUMENT.

*

* render DOM into a string

*

  TYPES: C_LINE(50)    TYPE C.

  DATA:  IXML          TYPE REF TO IF_IXML,

         RENDERER      TYPE REF TO IF_IXML_RENDERER,

         STREAMFACTORY TYPE REF TO IF_IXML_STREAM_FACTORY,

         OSTREAM       TYPE REF TO IF_IXML_OSTREAM,

         ENCODING      TYPE REF TO IF_IXML_ENCODING,

         XMLLINE       TYPE C_LINE,

         XMLTAB        TYPE STANDARD TABLE OF C_LINE,

         CHARSET       TYPE STRING,

         SUCCESS       TYPE C.

* create the ixml main factory

  IXML = CL_IXML=>CREATE( ).

* create a streamFactory

  STREAMFACTORY = IXML->CREATE_STREAM_FACTORY( ).

* create a output stream

  OSTREAM = STREAMFACTORY->CREATE_OSTREAM_ITABLE( TABLE = XMLTAB ).

* set an document encoding (optional)

  " charsets: utf-8, utf-16, sap*

  IF NOT CHARSET IS INITIAL.

    ENCODING = IXML->CREATE_ENCODING( CHARACTER_SET = CHARSET

                                      BYTE_ORDER = 0 ).

    SUCCESS  = OSTREAM->SET_ENCODING( ENCODING = ENCODING ).

  ENDIF.

* create a xml renderer

  RENDERER = IXML->CREATE_RENDERER( DOCUMENT = DOCUMENT

                                    OSTREAM  = OSTREAM ).

* render document into output-stream

  IF RENDERER->RENDER( ) <> 0.

*  error

    WRITE: / 'ERROR: document rendering'.

    EXIT.

  ENDIF.

* dump xml table

  ULINE.

  WRITE: /.

  WRITE: / ' RENDERED XML-DATA'.

  WRITE: /.

  LOOP AT XMLTAB INTO XMLLINE.

    XML XMLLINE.

  ENDLOOP.

ENDFORM.                    " render_dom

*---------------------------------------------------------------------*
*       ORM print_tree                                               *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*

FORM PRINT_DOM USING DOCUMENT TYPE REF TO IF_IXML_DOCUMENT.

  DATA: NODE      TYPE REF TO IF_IXML_NODE,

        ITERATOR  TYPE REF TO IF_IXML_NODE_ITERATOR,

        NODEMAP   TYPE REF TO IF_IXML_NAMED_NODE_MAP,

        ATTR      TYPE REF TO IF_IXML_NODE,

        NAME      TYPE STRING,

        PREFIX    TYPE STRING,

        VALUE     TYPE STRING,

        INDENT    TYPE I,

        COUNT     TYPE I,

        INDEX     TYPE I.

  CHECK NOT DOCUMENT IS INITIAL.

  NODE = DOCUMENT.

  ULINE.

  WRITE: /.

  WRITE: /' DOM-TREE'.

  WRITE: /.

  IF NODE IS INITIAL. EXIT. ENDIF.

* create a node iterator

  ITERATOR  = NODE->CREATE_ITERATOR( ).

* get current node

  NODE = ITERATOR->GET_NEXT( ).

* loop over all nodes

  WHILE NOT NODE IS INITIAL.

    INDENT = NODE->GET_HEIGHT( ) * 2.

    INDENT = INDENT + 20.

    CASE NODE->GET_TYPE( ).

      WHEN IF_IXML_NODE=>CO_NODE_ELEMENT.

*       element node

        NAME    = NODE->GET_NAME( ).

        NODEMAP = NODE->GET_ATTRIBUTES( ).

        WRITE: / 'ELEMENT  :'.

        WRITE: AT INDENT NAME COLOR COL_POSITIVE INVERSE.

        IF NOT NODEMAP IS INITIAL.

*         attributes

          COUNT = NODEMAP->GET_LENGTH( ).

          DO COUNT TIMES.

            INDEX  = SY-INDEX - 1.

            ATTR   = NODEMAP->GET_ITEM( INDEX ).

            NAME   = ATTR->GET_NAME( ).

            PREFIX = ATTR->GET_NAMESPACE( ).

            VALUE  = ATTR->GET_VALUE( ).

            WRITE: / 'ATTRIBUTE:'.

            WRITE: AT INDENT NAME  COLOR COL_HEADING INVERSE, '=',

                             VALUE COLOR COL_TOTAL   INVERSE.

          ENDDO.

        ENDIF.

      WHEN IF_IXML_NODE=>CO_NODE_TEXT OR

           IF_IXML_NODE=>CO_NODE_CDATA_SECTION.

*       text node

        VALUE  = NODE->GET_VALUE( ).

        WRITE: / 'TEXT     :'.

        WRITE: AT INDENT VALUE COLOR COL_GROUP INVERSE.

    ENDCASE.

*   advance to next node

    NODE = ITERATOR->GET_NEXT( ).

  ENDWHILE.

ENDFORM.                    "traverse_dom

*&---------------------------------------------------------------------*
*&      Form  display_dom
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_DOCUMENT  text
*----------------------------------------------------------------------*

FORM DISPLAY_DOM USING DOCUMENT  TYPE REF TO IF_IXML_DOCUMENT

                       TITEL     LIKE SY-TITLE.

* display document

  CALL FUNCTION 'SDIXML_DOM_TO_SCREEN'
    EXPORTING
      DOCUMENT = DOCUMENT
      TITLE    = TITEL.

ENDFORM.                    " display_dom

*&---------------------------------------------------------------------*
*&      Form  manip_dom
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_DOCUMENT  text
*----------------------------------------------------------------------*

FORM MANIP_DOM CHANGING DOCUMENT TYPE REF TO IF_IXML_DOCUMENT.

*------------------------------

* document now looks like

*------------------------------

* <?xml version="1.0"?>

* <order number="4711">

*    <head>

*      <status>confirmed</status>

*      <date format="mm/dd/yyyy">08/15/1999</date>

*    </head>

*    <body>

*      <item pos="10" units="2" price="17">abap-book  </item>

*      <item pos="20" units="1" price="10">sapr3-cdrom</item>

*      <item pos="30" units="5" price="12">coffee     </item>

*    </body>

* </order>

*------------------------------

  DATA: ORDER  TYPE REF TO IF_IXML_ELEMENT,

        HEAD   TYPE REF TO IF_IXML_ELEMENT,

        BODY   TYPE REF TO IF_IXML_ELEMENT,

        STATUS TYPE REF TO IF_IXML_ELEMENT,

        DATE   TYPE REF TO IF_IXML_ELEMENT.

* using the method find_from_name

  ORDER  = DOCUMENT->FIND_FROM_NAME( NAME = 'order' ).

  HEAD   = DOCUMENT->FIND_FROM_NAME( NAME = 'head' ).

  BODY   = DOCUMENT->FIND_FROM_NAME( NAME = 'body' ).

  STATUS = DOCUMENT->FIND_FROM_NAME( NAME = 'status' ).

  DATE   = DOCUMENT->FIND_FROM_NAME( NAME = 'date' ).

* update <order>

  DATA: OLD TYPE STRING.

  OLD = ORDER->GET_ATTRIBUTE( NAME = 'number' )."old = 4711

  RET = ORDER->SET_ATTRIBUTE( NAME = '赵博良' VALUE = '001' ). " ret = 0

* update <date>

  RET = DATE->SET_ATTRIBUTE( NAME = 'format' VALUE = 'mm-dd-yyyy' ).

  RET = DATE->SET_VALUE( VALUE = '12-01-2000' ).

* update <item>

  DATA: ITEMS  TYPE REF TO IF_IXML_NODE_COLLECTION,

        ITEM   TYPE REF TO IF_IXML_ELEMENT,

        NODE   TYPE REF TO IF_IXML_NODE,

        VAL    TYPE STRING,

        IDX    TYPE I,

        LEN    TYPE I.

  ITEMS = BODY->GET_ELEMENTS_BY_TAG_NAME( NAME = 'item' ).

  LEN = ITEMS->GET_LENGTH( ).

  DO LEN TIMES.

*   get item

    IDX = SY-INDEX - 1.

    IF SY-SAPRL >= '610'."gui 的版本？？？？？？？

*     REL >= 6.10: we use simple cast

      ITEM ?= ITEMS->GET_ITEM( INDEX = IDX ).

    ELSE.

*     REL < 6.10: explicit query_interface is required

      NODE  = ITEMS->GET_ITEM( INDEX = IDX ).

      ITEM ?= NODE->QUERY_INTERFACE( IID = IXML_IID_ELEMENT ).

    ENDIF.

*   change pos

    VAL = SY-INDEX.

    RET = ITEM->SET_ATTRIBUTE( NAME = 'pos' VALUE = VAL ).

*   remove attr st='X'

    RET = ITEM->REMOVE_ATTRIBUTE( NAME = 'st' ).  "删除了st 节点

*   add attr ln='X'

    RET = ITEM->SET_ATTRIBUTE( NAME = 'idx' VALUE = VAL ).

  ENDDO.

*------------------------------

* document now looks like

*------------------------------

* <?xml version="1.0" ?>

* <order number="4711" type="001">

*   <head>

*     <status>confirmed</status>

*     <date format="mm-dd-yyyy">12-01-2000</date>

*   </head>

*   <body>

*     <item pos="1" units="2" price="17" idx="1">abap-book</item>

*     <item pos="2" units="1" price="10" idx="2">sapr3-cdrom</item>

*     <item pos="3" units="5" price="10" idx="3">coffee</item>

*   </body>

* </order>

*------------------------------

ENDFORM.                    " manip_dom