Konvertierung IDoc zu XML

Parameter der Methode

IV_IDOC_NUMBER	TYPE EDI_DOCNUM	Nummer des IDocs
IV_SAVE_TO_DESKTOP	TYPE CHAR01 OPTIONAL	X = True
IV_SAVE_TO_APPLSERVER	TYPE STRING OPTIONAL	Pfad + Dateiname.Dateityp
Returnin gvalue( RT_IDOCDATA_AS_XML )	TYPE STRINGTAB	IDoc Daten als XML

Codeschnipsel

     "Check IDoc No exists
     SELECT SINGLE docnum FROM EDIDC INTO @DATA(lv_idoc_exists) WHERE docnum = @iv_idoc_number.
     IF sy-subrc <> 0.
      RAISE EXCEPTION TYPE zcx_conv_utilities MESSAGE e008(zmc_conv_utilities) WITH iv_idoc_number.
     ENDIF.

     DATA(lo_idoc_xml) = NEW cl_idoc_xml1( docnum = iv_idoc_number ).
     DATA lv_xml TYPE string.
     lo_idoc_xml->get_xmldata_as_string( IMPORTING data_string = lv_xml ).
     DATA(lt_xml) = VALUE stringtab( ( |{ lv_xml }| ) ).

     rt_idocdata_as_xml = lt_xml.

     IF iv_save_to_desktop = abap_true.
       DATA: lv_temp_dir TYPE string.
       cl_gui_frontend_services=>get_desktop_directory( CHANGING desktop_directory = lv_temp_dir ).
       cl_gui_cfw=>flush( ).
       DATA(lv_filename) = |{ lv_temp_dir }\\my_xml.xml|.
       cl_gui_frontend_services=>gui_download( EXPORTING
                                                 filename = lv_filename
                                                 filetype = 'ASC'
                                               CHANGING
                                                 data_tab = lt_xml ).

     ELSEIF iv_save_to_applserver IS NOT INITIAL.
       "Write file to application server
       cl_rsan_ut_appserv_file_writer=>appserver_file_write( EXPORTING i_filename = iv_save_to_applserver "max 255 char in AL11
                                                                       i_data_tab = lt_xml
                                                                       i_overwrite = abap_true
                                                             IMPORTING e_lines_written = DATA(lt_lines_written) ).
     ENDIF.