XML-ABAP处理

 

XML-ABAP处理

侯志宇

2011/11/7

一、将ABAP数据生成XML文件且生成到本地

二、将XML文件解析到SAP中

三、将XML数据生成字符串

四、用XSLT的方式解析、生成XML，自定义XSLT的事务代码是strans

五、下面是具体实现代码

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   = 'E:\flights.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.