Is F4 help possible for Application server?

[Former Member]

Hi All,

Is F4 help possible for Application server?

If yes please send me the logic.

Regards,

Naddy.

[Former Member]

chk these 2 FMs

F4_DXFILENAME_TOPRECURSION

TH_SELECT_SERVER

[Former Member]

Hi,

can you send me the logic for F4 help for Application server file path?

Regards,

Naddy.

[former_member181966]

Also Try

HR_NA_F4_GET_APPLICATION Read the available applications from table T5963

CVBAPI BAPIs for document info records

BAPI_DOCUMENT_GETAPPLICATION Determine Data for an Application

CVV1_F4IF_APPLICATION

Also see in SE 37 C13Z

Thanks

[RichHeilman]

Maybe this will work for you.

report  zrich_0005.


data: begin of isys_tabl occurs 0.
        include structure msxxlist.
data: end of isys_tabl.

parameters: p_serv type msxxlist-host .


at selection-screen on value-request for p_serv.

  call function 'TH_SERVER_LIST'
       tables
            list   = isys_tabl
       exceptions
            others = 99.



  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
       exporting
            retfield    = 'HOST'
            dynprofield = 'P_SERV'
            dynpprog    = sy-cprog
            dynpnr      = sy-dynnr
            value_org   = 'S'
       tables
            value_tab   = isys_tabl.

Regards,

Rich Heilman

[Former Member]

Hi,

can you send me the logic for F4 help for Application server file path?

Regards,

Naddy.

[Former Member]

Hi Naddy,

DATA: DSN LIKE FILENAME-FILEEXTERN.

data: dsn_logical like filename-fileintern.

select-options s1 for dsn_logical no-extension no intervals.

DATA: DS_PHY_NAME LIKE FILENAME-FILEEXTERN. "VWMK056015

clear ds_phy_name.

CALL FUNCTION 'FILE_GET_NAME' "VWM0K56015

EXPORTING "VWM0K56015

LOGICAL_FILENAME = s1-low "VWM0K56015

IMPORTING "VWM0K56015

FILE_NAME = DS_PHY_NAME "VWM0K56015

EXCEPTIONS "VWM0K56015

FILE_NOT_FOUND = 08. "VWM0K56015

IF NOT SY-SUBRC IS INITIAL. "VWM0K56015

MESSAGE E102(LX) WITH DSn_logical. " VWM0K56015

ENDIF. "VWM0K56015

dsn = ds_phy_name.

*dsn = 'E:\usr\sap\P47\sys\parvath'.

START-OF-SELECTION.

OPEN DATASET DSN FOR OUTPUT IN TEXT MODE ENCODING DEFAULT."YSFUNI

IF SY-SUBRC NE 0. "VWM0K56015

MESSAGE E899(5A) "VWM0K56015

WITH 'Datei existiert nicht:'(E01) DSN. "VWM0K56015

ENDIF. "VWM0K56015

LOOP AT it_datatab.

TRANSFER it_datatab TO dsn.

ENDLOOP.

CLOSE DATASET dsn.

Thanks

eswar

[Former Member]

see this code....hope it will help u.

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.

if it helps reward points

cheers,

Hash