UPLOAD and GUI_UPLOAD

Question

Hi,
We have just upgraded to ERP2005 from 4.5B and would like to know how I can change the program from calling the function 'UPLOAD' to use 'GUI_UPLOAD'.
It seems that 'GUI_UPLOAD' doesn't prompt user for the file to be upload. Which function should I call so that the user will be prompt for selecting the file to be upload.
Many Thanks in advance
Francis

Answer 1

Hey Francis,
you can use the following logic so that the user will be prompt for selecting the file to be uploaded.
*& Report  ZKUN_FILE1                                                  *
REPORT  ZKUN_FILE1                              .
tables : zkunal1.
data : begin of itab1 occurs 0.
      include structure zkunal1.
data:       end of itab1.
data : begin of gv_itab occurs 0.
      include structure zkunal1.
data:       end of gv_itab.
*data : begin of gv_itab occurs 0,
       fname like zkunal1-fname,
       lname like zkunal1-lname,
       place like zkunal1-place,
      end of gv_itab.
data : gv_file type string.
*SELECTION SCREEN                                               *
SELECTION-SCREEN BEGIN OF  BLOCK b1 WITH FRAME TITLE text-001.
<b>PARAMETERS: p_file LIKE ibipparms-path obligatory.</b> " For file selection
SELECTION-SCREEN END OF BLOCK b1.
*AT SELECTION SCREEN                                            *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
<b>CALL FUNCTION 'F4_FILENAME'
EXPORTING
   PROGRAM_NAME        = SYST-CPROG
   DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
IMPORTING
   FILE_NAME           = p_file.</b>
*START OF SELECTION *                                            *
START-OF-SELECTION.
P_FILE is not compatible with the FM GUI_UPLOAD, so pass it to
GV_FILE.
  gv_file = p_file.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = gv_file
     FILETYPE                      = 'ASC'
     HAS_FIELD_SEPARATOR           = '#'
    HEADER_LENGTH                 = 0
    READ_BY_LINE                  = 'X'
    DAT_MODE                      = ' '
    CODEPAGE                      = ' '
    IGNORE_CERR                   = ABAP_TRUE
    REPLACEMENT                   = '#'
    CHECK_BOM                     = ' '
  IMPORTING
    FILELENGTH                    =
    HEADER                        =
    tables
      data_tab                      = gv_itab
   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.
*FIELD-SYMBOLS: <fs_zco001> TYPE zco001.
select * from zkunal1 into table itab1. "#EC CI_NOWHERE
loop at gv_itab.
write : / gv_itab-fname, gv_itab-lname, gv_itab-place.
endloop.
Regards,
Kunal.
Message was edited by: Kunal Kumar