F4 help for file on selection screen thro objects

Question

Hi Every one,
this report is working , but as i am working ECC6.0 it is showing the obsolete statements
how to rectify it .
pls anybody let me know,
tables rlgrap.
TYPES : BEGIN OF TAB,
MATNR TYPE MATNR ,
MTART TYPE MTART,
END OF TAB.
DATA : ITAB TYPE  STANDARD TABLE OF TAB ,
       WTAB TYPE TAB.
data: it_tab type filetable,
      gd_subrc type i.
data : file0 type string.
selection-screen begin of block m with frame.
    select-options: so_fpath for rlgrap-filename.
selection-screen end of block m.
data wfile like line of so_fpath.
at selection-screen on value-request for so_fpath-low.
REFRESH: it_tab.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
        WINDOW_TITLE = 'Select File'
        DEFAULT_FILENAME = '*.txt'
        MULTISELECTION = 'X'
    CHANGING
        FILE_TABLE = it_tab
        RC = gd_subrc.
loop at it_tab into so_fpath-low.
   so_fpath-sign = 'I'.
   so_fpath-option = 'EQ'.
       append  so_fpath.
endloop.
move so_fpath+3 to file0.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME                      = FILE0
   FILETYPE                      = 'ASC'
   HAS_FIELD_SEPARATOR           = 'X'
  TABLES
    DATA_TAB                      = Itab
EXCEPTIONS
   FILE_OPEN_ERROR               = 1
   FILE_READ_ERROR               = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
end-of-selection.
write :/ file0.
loop at itab into  wtab.
write :/ wtab-matnr.
endloop.
its urgent please...

Answer 1

See the below ex:change file parameter type .
  DATA: VFILE TYPE STRING.
  DATA: FL(1).
DATA: L_FILETAB     TYPE FILETABLE,
      L_FILETAB_H   TYPE FILETABLE WITH HEADER LINE,
      INITIAL_DIR_PATH TYPE STRING,
      L_RC          TYPE I.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*PARAMETERS: FNAME LIKE RLGRAP-FILENAME OBLIGATORY.
PARAMETERS: FNAME TYPE LOCALFILE OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK B1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.
REFRESH L_FILETAB.
  INITIAL_DIR_PATH = 'C:\'.
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
    WINDOW_TITLE            = 'Select the Asset Master Data file'
   DEFAULT_EXTENSION       =
   DEFAULT_FILENAME        =
    FILE_FILTER             = 'Text Files (.TXT)|.TXT|'
    INITIAL_DIRECTORY       = INITIAL_DIR_PATH
      MULTISELECTION          = SPACE
   WITH_ENCODING           =
    CHANGING
      FILE_TABLE              = L_FILETAB
      RC                      = L_RC
   USER_ACTION             =
   FILE_ENCODING           =
    EXCEPTIONS
      FILE_OPEN_DIALOG_FAILED = 1
      CNTL_ERROR              = 2
      ERROR_NO_GUI            = 3
      NOT_SUPPORTED_BY_GUI    = 4
      OTHERS                  = 5
  IF SY-SUBRC <> 0.
    WRITE:/ 'Error while selecting the input file'.
  ELSE.
    LOOP AT L_FILETAB INTO L_FILETAB_H.
      FNAME = L_FILETAB_H-FILENAME.
      EXIT.
    ENDLOOP.
  ENDIF.
  FILE = FNAME.
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
     FILENAME                      = VFILE
     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            =
IMPORTING
  FILELENGTH                    =
  HEADER                        =
    TABLES
      DATA_TAB                      = I_TAB
   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.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.