*-----------------------------------------------------------------------
*
* Company XXX Company Limited
*
* ProgrameName: ZZW_FUT_F4_FILENAME
*
* Author: Lilo.Zhu
*
* Date: 08/08/2007
*
* Description: Study SAP In Program How To Use Function 'F4_FILENAME'
* When User Click 'Save In' Button, A Pop-up Window will
* appear to allow you choice local PC Drive and Filename.
*
*-----------------------------------------------------------------------
REPORT ZZW_FUT_F4_FILENAME .
Tables: SSCRFIELDS.
*-----------------------------------------------------------------------
* Function 'F4_FILENAME'
*-----------------------------------------------------------------------
Selection-Screen Begin Of Block B1 With Frame Title Text-001.
Parameters: P_File Like RLGRAP-FileName
Modif ID M1 Default 'C:\Data\SAP.XLS'.
Selection-Screen PushButton /33(10) Text-002 User-Command F4CLICK.
Selection-Screen End Of Block B1.
*-----------------------------------------------------------------------
* Function 'KD_GET_FILENAME_ON_F4'
*-----------------------------------------------------------------------
Selection-Screen Begin Of Block B2 With Frame Title Text-003.
Parameters: P_File_1 Like RLGRAP-FileName Memory ID M2.
Selection-Screen End Of Block B2.
At Selection-Screen.
IF SSCRFIELDS-Ucomm EQ 'F4CLICK'.
Call Function 'F4_FILENAME'
Exporting
Program_Name = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ''
IMPORTING
FILE_NAME = P_File.
ENDIF.
At Selection-Screen On Value-Request For P_File_1.
Call Function 'KD_GET_FILENAME_ON_F4'
Exporting
Mask = '*.xls'
Static = 'X'
Changing
File_Name = P_File_1.