ABAP文件打开对话框函数

*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.