Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

F4 help in file name for application server

Former Member
0 Likes
3,341

Hi,

I need to know is there ant F.M. or search helps for the file name field, when we click on F4 then need to route to the application server files.. currently F4_FILENAME shows all the file directory in the PC.

Simlarily for application sever.

regards,

Prabhu

Hi,

I need to know is there ant F.M. or search helps for the file name field, when we click on F4 then need to route to the application server files.. currently F4_FILENAME shows all the file directory in the PC.

Simlarily for application sever.

regards,

Prabhu

8 REPLIES 8
Read only

Former Member
0 Likes
1,835

hi,

Use Fm KD_GET_FILENAME_ON_F4

Or

PARAMETERS: f_app(128).

AT SELECTION-SCREEN ON VALUE-REQUEST FOR f_app.

PERFORM get_fname_app.

FORM get_fname_app.

DATA: c_fnh_mask TYPE dxfields-filemask VALUE '.',

search_dir TYPE dxfields-longpath VALUE '/sapglobal/users',

file_path LIKE dxfields-longpath.

CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'

EXPORTING

i_location_flag = 'A'

i_server = ' '

i_path = search_dir

filemask = c_fnh_mask

fileoperation = 'R'

IMPORTING

o_path = file_path

EXCEPTIONS

rfc_error = 1

OTHERS = 2.

IF sy-subrc EQ 0.

f_app = file_path.

ENDIF.

ENDFORM. "get_fname_app

Read only

Former Member
0 Likes
1,835

hi,

use the FM is : 'F4_DXFILENAME_4_DYNP'

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
    EXPORTING
      dynpfield_filename = 'P_FILE'
      dyname             = sy-cprog
      dynumb             = sy-dynnr
      filetype           = 'P'      "P-->Physical
      location           = 'P'     "P Presentation Srever
      server             = space.

here p_file is the field of filepath

it will help u

regards

rahul

Edited by: RAHUL SHARMA on Dec 31, 2008 7:08 AM

Read only

GauthamV
Active Contributor
0 Likes
1,835

SEARCH in SCN you have so many posts on this question like these.

[https://forums.sdn.sap.com/click.jspa?searchID=20435027&messageID=6352416]

also function modules like F4_DXFILENAME_TOPRECURSION...

Read only

Former Member
0 Likes
1,835

Hi,

See below sample code

Use function module: F4_DXFILENAME_TOPRECURSION

Give your inital application server path in below variable

data : filename like DXFIELDS-LONGPATH VALUE '/usr/sap/ECD/DVEBMGS00/data'.

REPORT zamtest.

SELECTION-SCREEN BEGIN OF BLOCK filesel WITH FRAME TITLE text-100. "block

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN POSITION 5.

PARAMETERS : p_pc RADIOBUTTON GROUP gp3 USER-COMMAND u1 DEFAULT 'X'.

SELECTION-SCREEN COMMENT 7(25) text-002 FOR FIELD p_pc. "physical file

PARAMETERS : pr_path LIKE rlgrap-filename .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN POSITION 5.

PARAMETERS : p_lc RADIOBUTTON GROUP gp3.

SELECTION-SCREEN COMMENT 7(25) text-003 FOR FIELD p_lc. " logical file

PARAMETERS : pl_path LIKE DXFIELDS-LONGPATH.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK filesel.

AT SELECTION-SCREEN OUTPUT.

IF p_pc EQ 'X'.

LOOP AT SCREEN.

IF screen-name = 'PR_PATH'.

screen-input = '1'.

ELSEIF

screen-name = 'PL_PATH'.

screen-input = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF

p_lc EQ 'X'.

LOOP AT SCREEN.

IF screen-name = 'PR_PATH'.

screen-input = '0'.

elseif

screen-name = 'PL_PATH'.

screen-input = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

  • ** Function module to provide F4 help for input by 'Open window'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR pr_path.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

file_name = pr_path.

data : filename like DXFIELDS-LONGPATH VALUE '/usr/sap/ECD/DVEBMGS00/data'.

*filename = pl_path.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR pl_path.

CALL FUNCTION 'F4_DXFILENAME_TOPRECURSION'

EXPORTING

I_LOCATION_FLAG = 'A'

I_SERVER = ' '

  • I_PATH = filename

FILEMASK = '.'

FILEOPERATION = 'R'

IMPORTING

  • O_LOCATION_FLAG =

  • O_SERVER =

O_PATH = pl_path

  • ABEND_FLAG =

EXCEPTIONS

RFC_ERROR = 1

ERROR_WITH_GUI = 2

OTHERS = 3

.

IF sy-subrc <> 0.

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

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

ENDIF.

Regards,

vinod

Read only

Former Member
0 Likes
1,835
Read only

Subhankar
Active Contributor
0 Likes
1,835

Hi...

please check the sample code..

parameters: p_fname type localfile.

at selection-screen on value-request for p_fname.

perform sub_serverfile_f4.

form sub_serverfile_f4 .

  • F4 help for application server file

call function '/SAPDMC/LSM_F4_SERVER_FILE'

exporting

directory = c_path

filemask = space

importing

serverfile = p_fname

exceptions

canceled_by_user = 1

others = 2.

if sy-subrc <> 0.

  • Message 'Unable to find filepath'.

message i000 with 'Unable to find filepath'(003).

endif.

endform. " sub_serverfile_f4

Thanks

Subhankar

Read only

Former Member
0 Likes
1,835

Hi,

You can use the FM 'F4_DXFILENAME_4_DYNP'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

Call the function module and pass the parameters

CALL FUNCTION 'F4_DXFILENAME_4_DYNP'

EXPORTING

dynpfield_filename = 'P_FILE' "File path

dyname = sy-cprog "Program name

dynumb = sy-dynnr

filetype = 'P' "P-->Physical

location = 'P' "Presentation Srever

server = space.

Read only

0 Likes
1,835

Same as above but try using GUI_FILE_LOAD_DIALOG