How to give path at runtime in GUI_DOWNLOAD

Question

Hi experts,
I have a below given parameter on the selection screen:
SELECTION-SCREEN: BEGIN OF BLOCK b5 WITH FRAME TITLE text-005.
PARAMETERS: p_path LIKE RLGRAP-FILENAME modif id ZF1.
SELECTION-SCREEN: END OF BLOCK b5.
I am using the FM GUI_DOWNLOAD in my report.
My requirement is that I need to pass the path given
in p_path in this FM, i.e. I need not hard code the path in the
FM parameter 'filename', but need to pass it at runtime.
How can this functionality be achieved?
Thanks,
Ajay.

Answer 1

Hi Ajay,
check the below code i hope it will help you.
SELECTION-SCREEN BEGIN OF BLOCK upfile WITH FRAME TITLE text-009.
PARAMETERS: p_file     TYPE rlgrap-filename OBLIGATORY.       "Source  file name
SELECTION-SCREEN END OF BLOCK upfile.
*AT SELECTION-SCREEN
Browse source file name
  AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
   PERFORM f_browse_file CHANGING p_file.
FORM f_browse_file CHANGING p_p_file.
  DATA: it_l_filetab  TYPE filetable,
        wa_l_filetab  TYPE file_table,
        l_rc          TYPE i.
  CLEAR it_l_filetab.
Browsing file
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    CHANGING
      file_table              = it_l_filetab
      rc                      = l_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
  IF sy-subrc IS NOT INITIAL.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    READ TABLE it_l_filetab INTO wa_l_filetab INDEX 1.
    IF sy-subrc IS INITIAL.
      p_p_file = wa_l_filetab-filename.
    ENDIF. " sy-subrc  Read
  ENDIF. " sy-subrc-call method
ENDFORM.                    " f_browse_file
START-OF-SELECTION.
*Upload File
  PERFORM f110_upload_from_pc.
FORM f110_upload_from_pc .
DATA :  lv_file TYPE rlgrap-filename.
  DATA :  l_files TYPE string,
          l_ret   TYPE abap_bool.
  CLEAR  it_file_data.
  lv_file = p_file.
  l_files = p_file.
  CONSTANTS: c_tab    TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = l_files
      filetype                = 'ASC'
      has_field_separator     = c_tab
     codepage                = '6300'
     READ_BY_LINE            = 'X'
     replacement             = '-'
    TABLES
      data_tab                = i_tab_order
    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 'Error in upload'(008) TYPE 'I' DISPLAY LIKE 'E' .
    LEAVE TO LIST-PROCESSING.
  ENDIF.
ENDFORM.                    " f_UPLOAD_FROM_PC
I hopr this will helps you
Regards,
Tarun
Edited by: Devalla T Kumar on Dec 29, 2009 9:54 AM