DATA: wa_file LIKE dxfields-longpath.
  DATA l_dpath(1024) TYPE c.
  DATA slash(1) TYPE c.
  DATA pos TYPE i.
  DATA: l_opsys LIKE sy-opsys.

  CALL 'C_SAPGPARAM' ID 'NAME'  FIELD 'DIR_HOME'
                     ID 'VALUE' FIELD l_dpath.

  l_opsys = sy-opsys.
  TRANSLATE l_opsys TO UPPER CASE.                       "#EC TRANSLANG

  CASE l_opsys.
    WHEN 'WINDOWS NT'.
      slash = '\'.
    WHEN OTHERS.
      slash = '/'.
  ENDCASE.

  SEARCH l_dpath FOR slash.
  IF sy-subrc <> 0.
    "message fehler
  ELSE.
    pos = sy-fdpos + 1.
    l_dpath = l_dpath(pos).
  ENDIF.

  CLEAR: wa_file.
  CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
    EXPORTING
      directory        = l_dpath
    IMPORTING
      serverfile       = wa_file
    EXCEPTIONS
      canceled_by_user = 1.
  IF sy-subrc = 0.

    ser_file = wa_file.
  ENDIF.