Hello,
I prepared a sample code for you. The below code is just enough for your requirement.
Please implement this code into your original source code. The below code is the part that reads the data from text file.
Regards
Ali Murat
DATA : BEGIN OF gt_p OCCURS 0 ,
pernr LIKE pa0001-pernr ,
begda(10) ,
status(4) ,
msgtx(100) ,
mark ,
END OF gt_p.
DATA : file TYPE STANDARD TABLE OF file_table.
DATA : wa_file TYPE STANDARD TABLE OF file_table WITH HEADER LINE.
DATA : rc TYPE i.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : p_file(100) OBLIGATORY DEFAULT 'C:\',
p_mode LIKE ctu_params-dismode DEFAULT 'N' .
SELECTION-SCREEN END OF BLOCK b1 .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM get_filename.
FORM get_filename .
CLEAR : file, file[].
CALL METHOD cl_gui_frontend_services=>file_open_dialog
EXPORTING
window_title = 'Select file'
default_extension = 'TXT'
default_filename = 'c:\bb.txt'
initial_directory = 'C:\'
CHANGING
file_table = file
rc = rc
EXCEPTIONS
file_open_dialog_failed = 1
cntl_error = 2
error_no_gui = 3
not_supported_by_gui = 4
OTHERS = 5.
IF sy-subrc <> 0.
EXIT.
ENDIF.
READ TABLE file INTO wa_file INDEX 1.
MOVE wa_file-filename TO p_file.
ENDFORM. " get_filename
DATA : sfilename TYPE string.
MOVE p_file TO sfilename.
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = sfilename
filetype = 'ASC'
has_field_separator = 'X'
CHANGING
data_tab = gt_p[]
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.
EXIT.
ENDIF.
Bluesky
