*&---------------------------------------------------------------------* *& Report Z003 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT Z003. TYPES:BEGIN OF XXX, F1 TYPE CHAR10, F2 TYPE CHAR10, END OF XXX. DATA LT_TABLE TYPE TABLE OF XXX. PARAMETERS: P_FILES TYPE RLGRAP-FILENAME . AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILES. CALL FUNCTION 'WS_FILENAME_GET' EXPORTING * DEF_FILENAME = ' ' * DEF_PATH = ' ' * MASK = '' MODE = 'O' TITLE = '上传文件 ' IMPORTING FILENAME = P_FILES * RC = * EXCEPTIONS * INV_WINSYS = 1 * NO_BATCH = 2 * SELECTION_CANCEL = 3 * SELECTION_ERROR = 4 * OTHERS = 5 . IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. START-OF-SELECTION. DATA LV_FILE TYPE STRING. LV_FILE = P_FILES. CALL FUNCTION 'GUI_UPLOAD' EXPORTING FILENAME = LV_FILE * FILETYPE = 'ASC' HAS_FIELD_SEPARATOR = 'X' * HEADER_LENGTH = 0 * READ_BY_LINE = 'X' * DAT_MODE = ' ' * CODEPAGE = ' ' * IGNORE_CERR = ABAP_TRUE * REPLACEMENT = '#' * CHECK_BOM = ' ' * VIRUS_SCAN_PROFILE = * NO_AUTH_CHECK = ' ' * IMPORTING * FILELENGTH = * HEADER = TABLES DATA_TAB = LT_TABLE * CHANGING * ISSCANPERFORMED = ' ' * 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. DATA LEN TYPE I. DESCRIBE TABLE LT_TABLE LINES LEN. WRITE LEN. ENDIF.