*Input file name
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER: P_FILE TYPE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.
*Browse for input file
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
PERFORM F001_FILE_VALUE_REQUEST USING P_FILE.
FORM F001_FILE_VALUE_REQUEST USING FILE TYPE RLGRAP-FILENAME.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
MASK = ''
STATIC = 'X'
CHANGING
FILE_NAME = FILE.
ENDFORM.