Another function to browse file and upload

最新推荐文章于 2022-06-09 11:04:42 发布

iteye_14308

最新推荐文章于 2022-06-09 11:04:42 发布

阅读量130

点赞数

分类专栏：计算机与 Internet 文章标签： C C++ C#

计算机与 Internet 专栏收录该内容

11 篇文章

订阅专栏

PARAMETERS: P_FILE LIKE RLGRAP-FILENAME.

FORM GET_FILE.
CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      DEF_FILENAME     = ' '
      DEF_PATH         = P_FILE
      MASK             = ',*.txt.'
      MODE             = 'O'
      TITLE            = 'Select file'
    IMPORTING
      FILENAME         = P_FILE
    EXCEPTIONS
      INV_WINSYS       = 01
      NO_BATCH         = 02
      SELECTION_CANCEL = 03
      SELECTION_ERROR = 04.
ENDFORM.                    "GET_FILENAME

FORM UPLOAD_FILE.
DATA:SPLIFZ(13) TYPE C.
DATA:TEMP(200) TYPE C.
DATA:QTY(10),PRICE(10) TYPE C.
CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      FILENAME            = P_FILE
      FILETYPE            = 'ASC'
    TABLES
      DATA_TAB            = ITAB2
    EXCEPTIONS
      CONVERSION_ERROR    = 1
      FILE_OPEN_ERROR     = 2
      FILE_READ_ERROR     = 3
      INVALID_TABLE_WIDTH = 4
      INVALID_TYPE        = 5
      NO_BATCH            = 6
      UNKNOWN_ERROR       = 7
      OTHERS              = 8.

LOOP AT ITAB2.
    call function 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input = itab2-char
      IMPORTING
        output = c_vbeln.
    itab-vbeln = c_vbeln.
    APPEND ITAB.
ENDLOOP.
ENDFORM. " UPLOAD_DATA