SAP ABAP DATA_TO_DO and DOM_TO_DATA. Transform Internal table into XML files and vice versa.

If you ever had to move data between environments or use the test environment data quality always found trouble doing this. So here follows a program to download and upload all tables per package.
For that i transform the internal table in XML files and then, the xml file back in the internal table.
The magic is in this two functions:

DATA_TO_DO and DOM_TO_DATA

Farewell!


/FOX/BACKUP_TIME_II

*&---------------------------------------------------------------------*
*& Report  /GEE/BACKUP_TIME
*& From AbapFox - www.Abapfox.org
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

report  /fox/backup_time_ii.

tables: tadir.

select-options: s_class for tadir-devclass.

parameters p_path type string obligatory.

parameters: c_do radiobutton group g1,
            c_up radiobutton group g1.
parameters: p_local as checkbox DEFAULT 'X'.

include /fox/backup_time_dec_ii.


at selection-screen on value-request for p_path.

  lcl_main=>get_path( ).

start-of-selection.

  lcl_main=>start( ).



AND the Include: /FOX/BACKUP_TIME_DEC_II

*&---------------------------------------------------------------------*
*&  Include          From AbapFox - www.Abapfox.org
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
*       CLASS lcl_main DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_main definition.

  public section.

    class-methods: start,
                   generate_dyn_structure,
                   gen_xml_upload importing i_name type any
                                            i_tab  type any,
                   gen_xml_download importing i_name type any,
                   get_path,
                   load_xml.


    types:   begin of ty_xml_tab,
           d type dcxmllines,
      end of ty_xml_tab.

    class-data: mo_data type ref to data.
    class-data: mo_me type ref to lcl_main.


endclass.                    "lcl_main DEFINITION


*----------------------------------------------------------------------*
*       CLASS lcl_main IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_main implementation.


  method start.

    loop at s_class into s_class.

      create object mo_me.
      call method mo_me->generate_dyn_structure( ).
      clear mo_me.

    endloop.

  endmethod.                    "start


  method generate_dyn_structure.

    "-->Pool------------------------------------------------#####"
    data:
      t_tadir type standard table of tadir,
      w_tadir type tadir,
      l_string type string,
      l_lines type i.
    field-symbols: <dinamic_data> type standard table.
    "-->Pool------------------------------------------------#####"

    select * from tadir into table t_tadir
     where devclass = s_class-low
       and object = 'TABL'.

    if sy-subrc <> 0.
      leave program.
    endif.

    loop at t_tadir into w_tadir.

      "-->Check object is a table
      try .
          select count(*) from (w_tadir-obj_name)
            up to 1 rows.
        catch cx_sy_dynamic_osql_semantics.
          continue.
      endtry.

      l_string = w_tadir-obj_name.

      do 5 times.
        replace '/' with '_@_' into l_string.
      enddo.

      create data mo_data type standard table of (w_tadir-obj_name).
      assign mo_data->* to <dinamic_data>.

      check sy-subrc = 0.

      "-->Seleciondando os dados da tabela
      try .
          select * from (w_tadir-obj_name)
            into table <dinamic_data>.

        catch cx_sy_dynamic_osql_semantics.
          continue.
      endtry.

   

      "-->Criando o XML
      case 'X'.
        when c_do.
 check <dinamic_data>[] is not initial.
          call method mo_me->gen_xml_download( l_string ).
        when c_up.
          call method mo_me->gen_xml_upload( i_name = l_string i_tab = w_tadir-obj_name ).
      endcase.
    endloop.

  endmethod.                    "generate_dyn_structure

  method gen_xml_upload.


    "-->POOL------------------------------------------------------------------------"
    data:  l_filename(200) type c.
    data: l_filename_local type string.

    data: l_dom type ref to if_ixml_element,
                  m_document type ref to if_ixml_document,
                  g_ixml type ref to if_ixml,
                  w_string type xstring,
                  l_size type i,
                  w_result type i,
                  w_line type string,
                  it_xml type dcxmllines,
                  s_xml like line of it_xml,
                  w_rc type sy-subrc.

    data: xml type dcxmllines.
    data: rc type sy-subrc.


    types:   begin of ty_xml_tab,
           d type line of dcxmllines,
      end of ty_xml_tab.

    data: t_xml_tab type standard table of ty_xml_tab.
    data: w_xml_tab type ty_xml_tab.

    field-symbols: <dinamic_data> type standard table.
    data: l_name type string.
    "-->POOL------------------------------------------------------------------------"

    assign mo_data->* to <dinamic_data>.

    check sy-subrc = 0.

    l_name = i_name.

    concatenate
          p_path
          '\'
          l_name
          '.xml' into l_filename_local.

    call method cl_gui_frontend_services=>gui_upload
      exporting
        filename   = l_filename_local
        filetype   = 'BIN'
      importing
        filelength = l_size
      changing
        data_tab   = it_xml
      exceptions
        others     = 24.

    check sy-subrc = 0.

    do 5 times.
      replace '_@_' with '\' into l_name.
    enddo.

    class cl_ixml definition load.
    g_ixml = cl_ixml=>create( ).
    check not g_ixml is initial.
    m_document = g_ixml->create_document( ).
    check not m_document is initial.

    call function 'SDIXML_XML_TO_DOM'
      exporting
        xml           = it_xml
        size          = l_size
      importing
        document      = m_document
      exceptions
        invalid_input = 1
        others        = 2.

    l_dom ?= m_document->get_first_child( ).

    call function 'SDIXML_DOM_TO_DATA'
      exporting
        data_as_dom    = l_dom
      importing
        dataobject     = <dinamic_data>
      exceptions
        illegal_object = 1
        others         = 2.


    "-->Update data!!! WARNING WARNING!

    delete from (i_tab).
    insert (i_tab) from table <dinamic_data>.

    if sy-subrc = 0.
      write: / 'Tabela ' , i_tab , 'Atualizada com sucesso'.
    else.
      write: / 'Tabela ' , i_tab , 'Não foi atualizada.'.
    endif.


  endmethod.                    "gen_xml_upload

  method gen_xml_download.

    "-->POOL------------------------------------------------------------------------"
    data:  l_filename(200) type c.
    data: l_filename_local type string.

    data: l_dom type ref to if_ixml_element,
                  m_document type ref to if_ixml_document,
                  g_ixml type ref to if_ixml,
                  w_string type xstring,
                  l_size type i,
                  w_result type i,
                  w_line type string,
                  it_xml type dcxmllines,
                  s_xml like line of it_xml,
                  w_rc type sy-subrc.

    data: xml type dcxmllines.
    data: rc type sy-subrc.


    types:   begin of ty_xml_tab,
           d type line of dcxmllines,
      end of ty_xml_tab.

    data: t_xml_tab type standard table of ty_xml_tab.
    data: w_xml_tab type ty_xml_tab.

    field-symbols: <dinamic_data> type any.
    "-->POOL------------------------------------------------------------------------"

    assign mo_data->* to <dinamic_data>.

    check sy-subrc = 0.

    class cl_ixml definition load.
    g_ixml = cl_ixml=>create( ).
    check not g_ixml is initial.
    m_document = g_ixml->create_document( ).
    check not m_document is initial.


    call function 'SDIXML_DATA_TO_DOM'
      exporting
        name         = 'DATAEXCHANGE'
        dataobject   = <dinamic_data>
      importing
        data_as_dom  = l_dom
      changing
        document     = m_document
      exceptions
        illegal_name = 1
        others       = 2.


    check not l_dom is initial.

    w_rc = m_document->append_child( new_child = l_dom ).

    call function 'SDIXML_DOM_TO_XML'
      exporting
        document      = m_document
      importing
        xml_as_string = w_string
        size          = l_size
      tables
        xml_as_table  = it_xml
      exceptions
        no_document   = 1
        others        = 2.


    loop at it_xml into w_xml_tab-d.
      append w_xml_tab to t_xml_tab.
    endloop.

    if p_local is initial.

      if p_path is initial.
        concatenate
                  '\\minisap\sapmnt\gee\'
*              sy-datum
*              '_'
                  i_name
                  '.xml' into l_filename.
      else.
        concatenate
     p_path
*              sy-datum
*              '_'
     i_name
     '.xml' into l_filename.
      endif.

      call function 'SCMS_DOWNLOAD'
        exporting
          filename = l_filename
          filesize = l_size
          binary   = 'X'
          frontend = ' '
        tables
          data     = it_xml
        exceptions
          error    = 1
          others   = 2.


      if sy-subrc <> 0.
        write: 'Error no download!!!'.
      endif.

    else.

      concatenate
               p_path
               '\'
               i_name
               '.xml' into l_filename_local.

      call method cl_gui_frontend_services=>gui_download
        exporting
          bin_filesize = l_size
          filename     = l_filename_local
          filetype     = 'BIN'
        changing
          data_tab     = it_xml
        exceptions
          others       = 24.
    endif.


  endmethod.                    "gen_xml

  method load_xml.


    "-->POOL------------------------------------------------------------------------"
    data:  l_filename type rlgrap-filename value 'c:\temp\texte.xml'.

    data: l_dom type ref to if_ixml_element,
                  m_document type ref to if_ixml_document,
                  g_ixml type ref to if_ixml,
                  w_string type xstring,
                  l_size type i,
                  w_result type i,
                  w_line type string,
                  it_xml type dcxmllines,
                  s_xml like line of it_xml,
                  w_rc type sy-subrc.

    data: xml type dcxmllines.
    data: rc type sy-subrc.


    types:   begin of ty_xml_tab,
           d type line of dcxmllines,
      end of ty_xml_tab.




    data: t_xml_tab type standard table of ty_xml_tab.
    data: w_xml_tab type ty_xml_tab.

    field-symbols: <dinamic_data> type any.
    "-->POOL------------------------------------------------------------------------"

    assign mo_data->* to <dinamic_data>
  .
  endmethod.                    "load_xml

  method get_path.

    data: l_selected_folder type string.

    call method cl_gui_frontend_services=>directory_browse
      changing
        selected_folder      = l_selected_folder
      exceptions
        cntl_error           = 1
        error_no_gui         = 2
        not_supported_by_gui = 3
        others               = 4.

    if sy-subrc <> 0.
      message id sy-msgid type sy-msgty number sy-msgno
                 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    endif.

    p_path = l_selected_folder.

  endmethod.                    "get_path

endclass.                    "lcl_main IMPLEMENTATION

Gostou da publicação? Então clica na raposinha e curta nossa fanpage \o/

Quer aprender ABAP definitivamente, sem precisar sair de casa?

Acesse: www.abapfox.org