Code: Alles auswählen.
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = lv_quelldatei
CHANGING
data_tab = lt_dateiinhalt
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
not_supported_by_gui = 17
error_no_gui = 18
OTHERS = 19.
IF sy-subrc <> 0.
MESSAGE ID 'ZEBI_MESS1' TYPE 'E' NUMBER '145' WITH sy-subrc lv_quelldatei .
ENDIF.
Code: Alles auswählen.
DATA gt_data TYPE STANDARD TABLE OF string.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = 'c:\Users\ewulff\Documents\test.txt'
filetype = 'ASC'
line_exit = 'USER'
user_form = 'CALLBACK_UPLOAD'
user_prog = sy-cprog
TABLES
data_tab = gt_data
EXCEPTIONS
conversion_error = 1
file_open_error = 2
file_read_error = 3
invalid_type = 4
no_batch = 5
unknown_error = 6
invalid_table_width = 7
gui_refuse_filetransfer = 8
customer_error = 9
no_authority = 10
OTHERS = 11.
IF sy-subrc > 0.
WRITE: 'Fehler:', sy-subrc.
ENDIF.
*&---------------------------------------------------------------------*
*& Form callback_upload
*&---------------------------------------------------------------------*
FORM callback_upload USING text.
WRITE: / text.
ENDFORM. "callback_upload