Spalten unterschiedlicher Tabellen vergleichen und dann ändern

Code: Alles auswählen.

*Anlegen der Workarea und Variablen
DATA: 
itab_zmigdocid TYPE STANDARD TABLE OF zmigdocid,
      
wa_toa01       TYPE toa01,
      
l_file         TYPE string,
      
l_table_count  TYPE i.



*Eingabefeld als String

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS file LIKE l_file.

SELECTION-SCREEN SKIP.

SELECTION-SCREEN END OF BLOCK b1.



*Aufruf von GUI_UPLOAD und Übergabe der Variable 'file'


CALL FUNCTION 'GUI_UPLOAD'
  
EXPORTING
    filename                = file
    
has_field_separator     = 'X'
  TABLES
    
data_tab                = itab_zmigdocid
  

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              = 16
    
OTHERS                  = 17.



IF sy-subrc <> 0.
  
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.



DELETE FROM zmigdocid.



INSERT zmigdocid FROM TABLE itab_zmigdocid.



DESCRIBE TABLE itab_zmigdocid LINES l_table_count.



COMMIT WORK AND WAIT.



WRITE l_table_count.

WRITE 'entries imported!'.