REPORT ZYUTL001 .
*----------------------------------------------------------------------*
* Browse and select a file name with path as window style              *
* Author : Yilmaz Alpdogan                                             *
*----------------------------------------------------------------------*

PARAMETER: P_FILE LIKE  IBIPPARMS-PATH .

DATA : PROGRAM_NAME  LIKE  SY-REPID ,
       DYNPRO_NUMBER LIKE  SY-DYNNR ,
       FIELD_NAME    LIKE  DYNPREAD-FIELDNAME .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  PROGRAM_NAME  = SY-REPID.
  DYNPRO_NUMBER = SY-DYNNR.
  FIELD_NAME    = 'PCFILE'.

  CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            PROGRAM_NAME  = SYST-REPID
            DYNPRO_NUMBER = SYST-DYNNR
            FIELD_NAME    = 'PCFILE'
       IMPORTING
            FILE_NAME     = P_FILE
       EXCEPTIONS
            OTHERS        = 1.