Updated Function module for WS_FILENAME_GET

[Former Member]

Hi..

what is the updated Function module for WS_FILENAME_GET which is Obsolete??

Ram

[Former Member]

Hi,

If you go inside this function Module, internally it is calling FM. ITS_FILENAME_GET. Try using this.

Hope it helps.

Regards,

Himanshu

[Former Member]

Use:

the class methos:

CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

Regards,

Ravi

[Former Member]

DATA: PATH(100).

DATA: RECORD TYPE STRING,

FILE TYPE STRING.

DATA: L_FILETAB TYPE FILETABLE,

L_FILETAB_H TYPE FILETABLE WITH HEADER LINE,

INITIAL_DIR_PATH TYPE STRING,

L_RC TYPE I.

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS: FNAME TYPE LOCALFILE OBLIGATORY.

SELECTION-SCREEN: END OF BLOCK B1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FNAME.

REFRESH L_FILETAB.

INITIAL_DIR_PATH = 'C:\'.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = 'Select the Asset Master Data file'

• DEFAULT_EXTENSION =

• DEFAULT_FILENAME =

FILE_FILTER = 'Text Files (.TXT)|.TXT|'

INITIAL_DIRECTORY = INITIAL_DIR_PATH

MULTISELECTION = SPACE

• WITH_ENCODING =

CHANGING

FILE_TABLE = L_FILETAB

RC = L_RC

• USER_ACTION =

• FILE_ENCODING =

EXCEPTIONS

FILE_OPEN_DIALOG_FAILED = 1

CNTL_ERROR = 2

ERROR_NO_GUI = 3

NOT_SUPPORTED_BY_GUI = 4

OTHERS = 5

.

IF SY-SUBRC <> 0.

WRITE:/ 'Error while selecting the input file'.

ELSE.

LOOP AT L_FILETAB INTO L_FILETAB_H.

FNAME = L_FILETAB_H-FILENAME.

EXIT.

ENDLOOP.

ENDIF.

[Former Member]

Check out class CL_GUI_FRONTEND_SERVICES

I think you want CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

[Former Member]

hi rammohan,

use CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

if mode in WS_FILENAMES_GET is 'S' , if it's 'O',

use CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

do reward if it helps,

priya.

[Former Member]

hi Ram use cl_gui_frontend_services=>file_open_dialog

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_emp.

  REFRESH: it_tabemp.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title      = 'Select File'
      default_filename  = '*.xls'
      initial_directory = 'C:'
      multiselection    = ' '  "No multiple selection
    CHANGING
      file_table        = it_tabemp
      rc                = gd_subrcemp.

[Former Member]

Hi

The updated FM is ITS_FILENAME_GET.

Regds

Seema

[Former Member]

Hi,

Check this code sample.

CALL FUNCTION 'WS_FILENAME_GET'

EXPORTING

DEF_FILENAME = '.TXT'

DEF_PATH = 'C:\'

MASK = ',All Files,*.txt.'

MODE = 'O'

TITLE = 'Select File'

IMPORTING

FILENAME = W_FILE

EXCEPTIONS

INV_WINSYS = 1

NO_BATCH = 2

SELECTION_CANCEL = 3

SELECTION_ERROR = 4

OTHERS = 5.

ENDIF.

This function module can be replaced with this.

DATA:

RC TYPE I.

DATA: w_filter1(10) type c value ',All Files,*.txt.',

w_filter2 type string.

Move w_filter1 to w_filter2.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

WINDOW_TITLE = 'Select File'

DEFAULT_EXTENSION = '.TXT'

FILE_FILTER = w_filter2

INITIAL_DIRECTORY = 'C:\'

• MULTISELECTION =

• WITH_ENCODING =

CHANGING

FILE_TABLE = W_FILE

RC = RC

• USER_ACTION =

• FILE_ENCODING =

EXCEPTIONS

FILE_OPEN_DIALOG_FAILED = 1

CNTL_ERROR = 2

ERROR_NO_GUI = 3

NOT_SUPPORTED_BY_GUI = 4

others = 5.

IF SY-SUBRC <> 0.

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

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

ENDIF.

****************Reward points if found useful****************************8

Regards,

Kriththika.

[Former Member]

Hi,

Use Class

CL_GUI_FRONTEND_SERVICES

For saving you can use

cl_gui_frontend_services=>file_save_dialog

and for opening file

cl_gui_frontend_services=>file_open_dialog

Regards,

Sreevani

[Former Member]

Thank you guys..