Save File - Dialog

SAVE FILE DIALOG

-------------------------------------------------------------------------------------------

PARAMETERS: p_file(128) DEFAULT 'c:\nosupt\zwipvalc.xls'.

data : l_filename type string.

data : l_path type string VALUE 'c:\NoSupt\'. " Default File Location

data : l_fullpath type string.
CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

EXPORTING

WINDOW_TITLE = 'Select a file.'

DEFAULT_EXTENSION = ',*.xls,*.xls,*.txt,*.txt,*.doc,*.doc,*.*,*.*.'

DEFAULT_FILE_NAME = 'ZCON1.XLS'

* WITH_ENCODING =

* FILE_FILTER =

* INITIAL_DIRECTORY =

PROMPT_ON_OVERWRITE = 'X'

CHANGING

FILENAME = L_filename

PATH = l_path

FULLPATH = l_fullpath

* USER_ACTION =

* FILE_ENCODING =

EXCEPTIONS

CNTL_ERROR = 1

ERROR_NO_GUI = 2

NOT_SUPPORTED_BY_GUI = 3

others = 4 .

IF SY-SUBRC <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

p_file = l_fullpath. " Shows Filename with path