SAP XML 到 内表

biduw

　　report ztest2.



type-pools: IXML,ABAP.
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_FLIGHTS type ref to IF_IXML_ELEMENT,
      L_ELEMENT_AIRLINE type ref to IF_IXML_ELEMENT,
      L_ELEMENT_FLIGHT  type ref to IF_IXML_ELEMENT,
      L_ELEMENT_DUMMY   type ref to IF_IXML_ELEMENT,
      L_VALUE           type STRING.
data: L_XML_TABLE       type table of XML_LINE,
      L_XML_SIZE        type I,
      L_RC              type I.
data: LT_SPFLI          type table of SPFLI.
data: L_SPFLI           type SPFLI.

start-of-selection.
*   Fill the internal table
  select * from SPFLI into table LT_SPFLI.

*   Sort internal table
  sort LT_SPFLI by CARRID.

* 生成XML数据
  loop at LT_SPFLI into L_SPFLI.

    at first.
*       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 flow
      L_ELEMENT_FLIGHTS  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT(
                  NAME = 'flow'
                  PARENT = L_DOCUMENT ).


      L_RC = L_ELEMENT_FLIGHTS->SET_ATTRIBUTE( NAME = 'KEY' VALUE = 'gsgs-cgdd' ).
      L_RC = L_ELEMENT_FLIGHTS->SET_ATTRIBUTE( NAME = 'DES' VALUE = '广深公司-采购订单').
      L_RC = L_ELEMENT_FLIGHTS->SET_ATTRIBUTE( NAME = 'BAPI' VALUE ='ZBAPI_MM_RK_AFTER_APP' ).

      L_ELEMENT_AIRLINE  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT(
                  NAME = 'customform'
                  PARENT = L_ELEMENT_FLIGHTS  ).
    endat.

    at new CONNID.

      L_ELEMENT_FLIGHT  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT(
                  NAME = 'fd'
                  PARENT = L_ELEMENT_AIRLINE  ).

      L_VALUE = L_SPFLI-CONNID.
      L_RC = L_ELEMENT_FLIGHT->SET_ATTRIBUTE( NAME = 'n' VALUE =
'flight' ).
    endat.

    L_VALUE = L_SPFLI-DEPTIME.
    L_ELEMENT_DUMMY  = L_DOCUMENT->CREATE_SIMPLE_ELEMENT(
                NAME = 'V'
                VALUE = L_VALUE
                PARENT = L_ELEMENT_FLIGHT ).
  endloop.
*   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( ).

*************************************************************
*   将xml数据导出到本地
*   取得XML数据大小
  L_XML_SIZE = L_OSTREAM->GET_NUM_WRITTEN_RAW( ).
*   将xml数据导出到本地
*  call method CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD
*    exporting
*      BIN_FILESIZE = L_XML_SIZE
*      FILENAME     = 'E:\flights.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.
************************************************************

****************************************************
*--将XML数据导入到内表
  data XMLDATA type XSTRING .
  data: RESULT_XML type standard table of SMUM_XMLTB .
  data: RETURN type standard table of BAPIRET2 .
  data: WA_XML type SMUM_XMLTB.

*如果需要上载XML可以用一下方法
  call function 'GUI_UPLOAD'
    exporting
      FILENAME   = 'C:\Documents and Settings\Administrator\桌面\SAP.XML'
      FILETYPE   = 'BIN'
    importing
      FILELENGTH = L_XML_SIZE
    tables
      DATA_TAB   = L_XML_TABLE.

*--将XML数据导入到内表
  call function 'SCMS_BINARY_TO_XSTRING'
    exporting
      INPUT_LENGTH = L_XML_SIZE
    importing
      BUFFER       = XMLDATA
    tables
      BINARY_TAB   = L_XML_TABLE
    exceptions
      FAILED       = 1
      others       = 2.

  call function 'SMUM_XML_PARSE'
    exporting
      XML_INPUT = XMLDATA
    tables
      XML_TABLE = RESULT_XML
      RETURN    = RETURN.

  loop at RESULT_XML into WA_XML .
  endloop.



************************************************

**************************************************
*将XML转换成字符串
  data: W_STRING type XSTRING.
  data LS_XML type STRING.

*将XML转换成字符串
  call function 'SDIXML_DOM_TO_XML'
    exporting
      DOCUMENT      = L_DOCUMENT
    importing
      XML_AS_STRING = W_STRING
      SIZE          = L_XML_SIZE
    tables
      XML_AS_TABLE  = L_XML_TABLE
    exceptions
      NO_DOCUMENT   = 1
      others        = 2.
  if SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.

* 将Xstring转换成二进制
*  call function 'SCMS_XSTRING_TO_BINARY'
*    exporting
*      BUFFER        = W_STRING
*    importing
*      OUTPUT_LENGTH = L_XML_SIZE
*    tables
*      BINARY_TAB    = L_XML_TABLE.

  call function 'SCMS_BINARY_TO_STRING'
    exporting
      INPUT_LENGTH = L_XML_SIZE
    importing
      TEXT_BUFFER  = LS_XML
    tables
      BINARY_TAB   = L_XML_TABLE
    exceptions
      FAILED       = 1
      others       = 2.

  if SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
****************************************************************

*******************************************************************
** 用XSLT的方式解析、生成XML
*  data LT_TABLE type standard table of CHAR2048.
*  data: GT_RESULT_XML type ABAP_TRANS_RESBIND_TAB,
*        GS_RESULT_XML type ABAP_TRANS_RESBIND.
*data   lo_oref   TYPE REF TO cx_root.
*  try.
*      call transformation ID "此ID是transformation，也可以用事务代码strans自定义一个transformation
*        source xml LT_TABLE
*        result (GT_RESULT_XML) .
*
*    catch CX_ST_ERROR into LO_OREF.
**      LS_MSG-MSGTYP = 'E'.
**      LS_MSG-MSGNO  = '000'.
**      LS_MSG-MSGTXT = LO_OREF->GET_TEXT( ).
**      append LS_MSG to C_MSGOUT.
*  endtry.