F4 for the file path

Question

Hello Everybody,
Can someone tell me how to do the F4 for the file which is to be loaded from the presentation server,like v have for UPLOAD Function Module.
I have a Parameter for the file path in the selection,I want to know how do v take the file path by searching thru F4??
Thanks,
Anushka.

Answer 1

Hi Anushka,
refer sample code:
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : rb_pc  RADIOBUTTON GROUP r1 DEFAULT 'X'
                      USER-COMMAND ucomm,    "For Presen
             p_f1   LIKE rlgrap-filename
                                      MODIF ID rb1,    "Input File
             rb_srv  RADIOBUTTON GROUP r1,
                                                       "For Application
             p_f2   LIKE rlgrap-filename
                                     MODIF ID rb2,
                                                       "Input File
             p_direct   TYPE char128 MODIF ID abc DEFAULT c_path
                                                       "File Directory
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-020.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_f1.
*-- Browse Presentation Server
  PERFORM f1000_browse_presentation_file.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_f2.
*-- Browse Application Server
  PERFORM f1001_browse_appl_file.
*&      Form  f1000_browse_presentation_file
      Pick up the file path in the presentation server
FORM f1000_browse_presentation_file .
  CONSTANTS: lcl_path TYPE char20 VALUE 'C:\'.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = lcl_path
      mask             = c_mask  "',.,..'
      mode             = c_mode
      title            = text-006
    IMPORTING
      filename         = p_f1
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 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.
    flg_pre = c_x.
  ENDIF.
ENDFORM.                    " f1000_browse_presentation_file
*&      Form  f1001_browse_appl_file
      Pick up the file path in the application server
FORM f1001_browse_appl_file .
  DATA:  lcl_directory  TYPE char128.
  lcl_directory  = p_direct.
  CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
    EXPORTING
      directory        = lcl_directory
      filemask         = c_mask
    IMPORTING
      serverfile       = p_f2
    EXCEPTIONS
      canceled_by_user = 1
      OTHERS           = 2.
  IF sy-subrc <> 0.
   MESSAGE e000(zmm) WITH text-039.
   flg_app = 'X'.
  ENDIF.
ENDFORM.                    " f1001_browse_appl_file
Reward points if this Helps.
Manish