declaring a file path

[Former Member]

hi can any one tell me how can i declare a file on my selection screen so that i can get a drop down box so that i can select a file from the directory.

[Former Member]

CALL FUNCTION 'WS_FILENAME_GET'

EXPORTING

def_path = 'C:\'

mask = '.'

IMPORTING

filename = p_file

EXCEPTIONS

inv_winsys = 1

no_batch = 2

selection_cancel = 3

selection_error = 4

OTHERS = 5.

[Former Member]

REPORT zex12.

parameters : fname like rlgrap-filename.

DATA : filename TYPE string.

DATA : table1 TYPE filetable,

rc TYPE i.

DATA : VAL LIKE DYNPREAD-FIELDVALUE.

data: dynfields type table of dynpread with header line.

PARAMETERS : R1 RADIOBUTTON GROUP RG modif id abc.

PARAMETERS : R2 RADIOBUTTON GROUP RG modif id def.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR fname.

<b>CALL METHOD cl_gui_frontend_services=>file_open_dialog

EXPORTING

default_filename = '.'

CHANGING

file_table = table1

rc = rc.</b>

IF sy-subrc <> 0.

MESSAGE e000(zXXX) WITH 'Error'.

ENDIF.

read table table1 index 1 into fname.

IF fname cs '.XLS'.

dynfields-fieldname = 'R1'.

dynfields-fieldvalue = 'X'.

append dynfields.

dynfields-fieldname = 'R2'.

dynfields-fieldvalue = ' '.

append dynfields.

elseif fname cs '.DOC'.

dynfields-fieldname = 'R1'.

dynfields-fieldvalue = ' '.

append dynfields.

dynfields-fieldname = 'R2'.

dynfields-fieldvalue = 'X'.

append dynfields.

ENDIF.

call function 'DYNP_VALUES_UPDATE'

exporting

dyname = sy-cprog

dynumb = sy-dynnr

tables

dynpfields = dynfields

exceptions

others = 8.

start-of-selection.

[Former Member]

Hi Siri,

You can use function module f4_filename.

but this will work when you press f4 function key.

and for drop down i will check and get back to you.

bye take care.

[Former Member]

hi,

PARAMETERS: P_OFILE LIKE RLGRAP-FILENAME.

DATA: W_VAL_MASK TYPE STRING,

W_FILETABLE TYPE FILETABLE,

W_FILENAME TYPE STRING,

W_RC TYPE I.

W_VAL_MASK = '.|.'.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG

EXPORTING

• WINDOW_TITLE =

• DEFAULT_EXTENSION =

• DEFAULT_FILENAME =

FILE_FILTER = W_VAL_MASK

• WITH_ENCODING =

• INITIAL_DIRECTORY =

• MULTISELECTION =

CHANGING

FILE_TABLE = W_FILETABLE

RC = W_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.

IF SY-SUBRC = 0.

READ TABLE W_FILETABLE INTO W_FILENAME INDEX 1.

IF SY-SUBRC = 0.

P_OFILE = W_FILENAME.

ENDIF.

ENDIF.

Do reward if it helps,

priya.

[Former Member]

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            program_name  = v_repid
            dynpro_number = syst-dynnr
            field_name    = 'P_FILE'
       IMPORTING
            file_name     = p_file.

[Former Member]

hi,

At selection-screen on p_filename value-request . [ Pls check the syntax].

In this event you can use the F4_filename to get the dropdown.

Regards

Subramanian