Replacement of F.M. Upload

Old Code:

  CALL FUNCTION 'UPLOAD'                                  
        EXPORTING
             FILENAME        = P_FILPC
             FILETYPE        = 'ASC'
        TABLES
             DATA_TAB        = gt_input
        EXCEPTIONS
             CONVERSION_ERROR
             INVALID_TABLE_WIDTH
             INVALID_TYPE
             NO_BATCH
             UNKNOWN_ERROR.


********************************************************************

Replacement Code:

DATA : I_FILE_TABLE TYPE  TABLE OF FILE_TABLE,
       W_FILETABLE  TYPE  FILE_TABLE,
       W_RC         TYPE  I,
       W_P_DEF_FILE TYPE  STRING,
       W_P_FILE     TYPE STRING,
       w_usr_act    TYPE I.

  W_P_DEF_FILE = P_FILPC.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
  EXPORTING
*    WINDOW_TITLE            =
*    DEFAULT_EXTENSION       =
    DEFAULT_FILENAME        = W_P_DEF_FILE
*    FILE_FILTER             =
*    WITH_ENCODING           =
*    INITIAL_DIRECTORY       =
*    MULTISELECTION          =
  CHANGING
    FILE_TABLE              = I_FILE_TABLE
    RC                      = W_RC
    USER_ACTION             = w_usr_act
*    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.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
     LOOP AT I_FILE_TABLE  INTO W_FILETABLE.
        W_P_FILE = W_FILETABLE.
        EXIT.
      ENDLOOP.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME                      = W_P_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                      =  gt_input
 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
          .