000260 *---------------------------------------------------------------------*
000270 * FORM READ_USER_DATA_FILE
000280 * reads data into table itab from the file specified.
*
000290 *---------------------------------------------------------------------*
000300 form read_user_data_file.
000310 data: lineno like sy-index,
000320 file_lines like
sy-index.
000330 call function 'WS_UPLOAD'
000340 exporting
000350
filename
= ifilenm
000360
filetype
= 'ASC'
000370 tables
000380
data_tab
= user_data
000390 exceptions
000400
conversion_error = 1
000410
file_open_error = 2
000420
file_read_error = 3
000430
invalid_table_width = 4
000440
invalid_type = 5
000450
no_batch
= 6
000460
unknown_error = 7.
000470 if sy-subrc ne 0.
000480 case sy-subrc.
000490 when 1.
000500 write: / 'Conversion error.
Data not read ....'.
000510 when 2.
000520 write: / 'file_open_error.
Data not read ....'.
000530 when 3.
000540 write: / 'file_read_error.
Data not read ....'.
000550 when 4.
000560 write: / 'invalid_table_width.
Data not read ....'.
000570 when 5.
000580 write: / 'invalid_type.
data not read ....'.
000590 when 6.
000600 write: / ' no_batch '.
000610 when 7.
000620 write: / 'unknown_error'.
000630 when others.
000640 write: / 'Error reading
data. read data may not be good ....'.
000650 endcase.
000660 endif.
000670 describe table user_data lines file_lines.
000680 if not ( file_lines > 0 ).
000690 write: / 'No records in the worksheet
file ...'.
000700 exit.
000710 endif.
000720
000730
000740 describe table user_data lines lineno.
000750 if lineno is initial.
000760 message e112(zt).
000770 endif.
000780 endform.
" READ_DATA
000790