*&———————————————————————*

*& Report ZST_UPLOAD

*&———————————————————————*

*&

*&———————————————————————*

REPORT ZST_UPLOAD.

DATAFILENAME TYPE STRING VALUE ‘c:bathinput.TXT’.

TYPESBEGIN OF ITAB,

       F(20),

       END OF ITAB.

DATADATA_TAB TYPE STANDARD TABLE OF ITAB.

DATAWA_TAB TYPE ITAB.

DATAFILE_FILTER TYPE STRING,

RC TYPE I.

DATAFILE_TABLE TYPE FILETABLE.

DATAWA_FILE_TABLE TYPE LINE OF FILETABLE.

FILE_FILTER ‘All Files (*.*)|*.TXT’.

 

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

  EXPORTING

    WINDOW_TITLE            ‘WINDOW_TITLE’

    DEFAULT_EXTENSION       ‘*.TXT’

    DEFAULT_FILENAME        ‘BatchInput.TXT’

    FILE_FILTER             FILE_FILTER

    INITIAL_DIRECTORY       =  ‘c:\’

    MULTISELECTION          ‘X’

  CHANGING

    FILE_TABLE              =  FILE_TABLE

    RC                      RC

 

        .

LOOP AT FILE_TABLE INTO WA_FILE_TABLE.

  FILENAME WA_FILE_TABLEFILENAME.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>GUI_UPLOAD

    EXPORTING

      FILENAME                FILENAME

      FILETYPE                ‘DAT’

      DAT_MODE                ‘X’

    CHANGING

      DATA_TAB                =  DATA_TAB .

  IF SYSUBRC <> 0.

    WRITE:‘failure’.

  ELSE.

    LOOP AT DATA_TAB INTO WA_TAB.

      WRITE:/ WA_TABF.

    ENDLOOP.

  ENDIF.

ENDLOOP.

声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。