Konvertierung XML zu interne Tabelle

Parameter der Methode

IV_XML_AS_UPLOAD	TYPE CHAR01 OPTIONAL	X = XML als Upload
IV_XML_FROM_APPLSERVER	TYPE LOCALFILE OPTIONAL	Pfad zur XML-Datei in AL11
value( ET_ITAB )	TYPE TT_TAB_XML

Codeschnipsel

TYPES tyt_tab_xml TYPE TABLE OF smum_xmltb.

  DATA: lv_xml_xstring  TYPE          xstring,
        lt_xml_tab      TYPE TABLE OF smum_xmltb,
        lv_filename     TYPE          localfile,
        lo_xml_document TYPE REF TO   cl_xml_document,
        lv_subrc        TYPE          sy-subrc,
        lv_size         TYPE          sy-tabix.

  CHECK iv_xml_as_upload = abap_true AND iv_xml_from_applserver IS INITIAL OR
        iv_xml_as_upload = abap_false AND iv_xml_from_applserver IS NOT INITIAL.

*== create the object
  CREATE OBJECT lo_xml_document.

*== XML from Upload
  IF iv_xml_as_upload = abap_true.
    DATA: lt_filetable     TYPE filetable,
          lv_anz_dat       TYPE i,
          lv_windows_title TYPE string.
    lv_windows_title = TEXT-001.

    cl_gui_frontend_services=>file_open_dialog(
      EXPORTING
        window_title            =     lv_windows_title
        default_filename        =     'C:\test.xml'
        initial_directory       =     'C:\'
    CHANGING
        file_table              = lt_filetable
        rc                      = lv_anz_dat
    EXCEPTIONS
      OTHERS                  = 5 ).

    READ TABLE lt_filetable INTO lv_filename INDEX 1.

*== Upload xml file
    lo_xml_document->import_from_file(
    EXPORTING
      filename = lv_filename
      RECEIVING
      retcode = lv_subrc  ).

    CHECK lv_subrc = 0.

*== Convert to xstring
    CALL METHOD lo_xml_document->render_2_xstring
      IMPORTING
        retcode = lv_subrc
        stream  = lv_xml_xstring
        size    = lv_size.

    CHECK lv_subrc = 0.

  ELSEIF iv_xml_from_applserver IS NOT INITIAL.

*== Read XML from applserver

    OPEN DATASET iv_xml_from_applserver FOR INPUT IN BINARY MODE.
    READ DATASET iv_xml_from_applserver INTO lv_xml_xstring.
    CLOSE DATASET iv_xml_from_applserver.

    CALL METHOD lo_xml_document->parse_xstring
      EXPORTING
        stream  = lv_xml_xstring
      RECEIVING
        retcode = lv_subrc.

    CHECK lv_subrc = 0.

  ENDIF.

*== Convert XML to itab

  DATA: lt_return TYPE TABLE OF bapiret2.

  CALL FUNCTION 'SMUM_XML_PARSE'
    EXPORTING
      xml_input = lv_xml_xstring
    TABLES
      xml_table = lt_xml_tab
      return    = lt_return.
  CHECK sy-subrc = 0.

  et_itab = lt_xml_tab.