用ABAP读取XML文件的内容.docxVIP

XML文件中的内容：?xml version = 1.0 encoding = iso-8859-1 ?CUSTOMERS PERSON customer_id 1 /customer_id first_name Jan /first_name last_name Krohn /last_name /PERSON PERSON customer_id 2 /customer_id first_name James /first_name last_name Kirk /last_name /PERSON /CUSTOMERS ABAP代码：*保存XML文件的路径CONSTANTS?GS_FILE?TYPE?STRING?VALUE?C:\customers.xml. *?This?is?the?structure?for?the?data?from?the?XML?fileTYPES:?BEGIN?OF?TS_PERSON,??CUST_ID(4)????TYPE?N,??FIRSTNAME(20)?TYPE?C,??LASTNAME(20)??TYPE?C,??END?OF?TS_PERSON.*?Table?for?the?XML?contentDATA:?GT_ITAB???????TYPE?STANDARD?TABLE?OF?CHAR2048.*?Table?and?work?ares?for?the?data?from?the?XML?fileDATA:?GT_PERSON?????TYPE?STANDARD?TABLE?OF?TS_PERSON,??????GS_PERSON?????TYPE?TS_PERSON.*?Result?table?that?contains?references??of?the?internal?tables?to?be?filledDATA:?GT_RESULT_XML?TYPE?ABAP_TRANS_RESBIND_TAB,??????GS_RESULT_XML?TYPE?ABAP_TRANS_RESBIND.*?For?error?handlingDATA:?GS_RIF_EX?????TYPE?REF?TO?CX_ROOT,??????GS_VAR_TEXT???TYPE?STRING.*?Get?the?XML?file?from?your?clientCALL?METHOD?CL_GUI_FRONTEND_SERVICES=GUI_UPLOAD?????????EXPORTING???????????????FILENAME????????????????=?GS_FILE?????????CHANGING???????????????DATA_TAB????????????????=?GT_ITAB?????????EXCEPTIONS???????????????FILE_OPEN_ERROR???????????????=?1???????????????FILE_READ_ERROR???????????????=?2???????????????NO_BATCH??????????????????????=?3???????????????GUI_REFUSE_FILETRANSFER???????=?4???????????????INVALID_TYPE??????????????????=?5???????????????NO_AUTHORITY??????????????????=?6???????????????UNKNOWN_ERROR?????????????????=?7???????????????BAD_DATA_FORMAT???????????????=?8???????????????HEADER_NOT_ALLOWED????????????=?9???????????????SEPARATOR_NOT_ALLOWED?????????=?10???????????????HEADER_TOO_LONG???????????????=?11???????????????UNKNOWN_DP_ERROR??????????????=?12???????????????ACCESS_DENIED?????????????????=?13???????????????DP_OUT_OF_MEMORY??????????????=?14???????????????DISK_FULL?????????????????????=?15???????????????DP_TIMEOUT