F4 help for file path in selection screen.

[Former Member]

Hi there,

I defined one parameter p_path for file path using RLGRAP-FILENAME. I have not got F4 for this. How to solve this problem, can anybody pls help.

Regards,

Naseer.

[Former Member]

Hi there,

I defined one parameter p_path for file path using RLGRAP-FILENAME. I have not got F4 for this. How to solve this problem, can anybody pls help.

Regards,

Naseer.

[Former Member]

Do something like this:

PARAMETERS : p_fname TYPE rlgrap-filename OBLIGATORY.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

field_name = ' '

IMPORTING

file_name = p_fname.

[Former Member]

Hi Naseer,

At the AT SELECTION_SCREEN ON VALUE-REQUEST FOR p_path and code your value help.

  DATA:
    zz_folder   TYPE string.

  CALL METHOD cl_gui_frontend_services=>directory_browse
     CHANGING
       selected_folder = zz_folder
     EXCEPTIONS
       OTHERS          = 0.

p_path = zz_folder.

Regards,

John.

[Former Member]

Hello,

Do like this:

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME.
  PERFORM FRONTEND_FILE CHANGING FILENAME.

*&---------------------------------------------------------------------*
*&      Form  frontend_file
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_FILENAME  text
*----------------------------------------------------------------------*
FORM FRONTEND_FILE CHANGING P_FILENAME.

  CALL FUNCTION '/SAPDMC/LSM_F4_FRONTEND_FILE'
       EXPORTING
            PATHNAME         = 'C:\'
       CHANGING
            PATHFILE         = P_FILENAME
       EXCEPTIONS
            CANCELED_BY_USER = 1
            SYSTEM_ERROR     = 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.

ENDFORM.                    " frontend_file

Cheers,

Vasanth

[Former Member]

Add following code :

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'WS_FILENAME_GET'

EXPORTING

def_filename = p_file

def_path = 'c:\'

IMPORTING

filename = lv_file

EXCEPTIONS

OTHERS = 0.

[Former Member]

Hi,

Do like this

PARAMETERS: p_file LIKE RLGRAP-FILENAME. "File Name

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

CALL FUNCTION 'F4_FILENAME'

IMPORTING

FILE_NAME = p_file.

Regards,

Satish

[Former Member]

Hi,

Please refer to the code below :

  parameter: p_file like IBIPPARMS-PATH obligatory.


at selection-screen ON VALUE-REQUEST FOR p_file .
  perform get_filename.


*&---------------------------------------------------------------------*
*&      Form  get_filename
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_filename .
  CALL FUNCTION 'F4_FILENAME'
   EXPORTING
     PROGRAM_NAME        = SYST-CPROG
     DYNPRO_NUMBER       = SYST-DYNNR
*       FIELD_NAME          = p_file
   IMPORTING
     FILE_NAME           = p_file .

  if sy-subrc NE 0  .
    write : / 'Enter File Name'.
  endif.

ENDFORM.                    " get_filename

Thanks,

Sriram Ponna.

[Former Member]

Hi,

refer to the following code:

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_pc.

DATA: it_tab TYPE filetable,
          wf_subrc TYPE i.
DATA: wf_pcfile LIKE rlgrap-filename.

  DATA: wf_filter TYPE string,
        wf_dir TYPE string,
        wf_title TYPE string,
        wf_ext TYPE string.

*  if p_ml = 'X'.                  "Manula Load - PC File
  wf_title = text-012.          "Window title
  wf_ext  = '.TXT'.           "Extension of the file
  wf_filter = 'Text Files (*.TXT)|*.TXT'.         "File Type
  wf_dir = wf_pcfile.           "Directory

*Adds a GUI-Supported Feature
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title      = wf_title
      default_extension = wf_ext
      file_filter       = wf_filter
      initial_directory = wf_dir
    CHANGING
      file_table        = it_tab
      rc                = wf_subrc.

Hope this helps.

<REMOVED BY MODERATOR>

Regards,

Sipra

Edited by: Alvaro Tejada Galindo on Jan 31, 2008 9:48 AM

[Former Member]

Hi All

How to get the name of the file in a lower-case.Please reply me thanks in Advance.

[shubh73981]

I guess there is nothing wrong with your code ,

just try using f4 button to get f4 help , you wont get a f4 box for help use fn + f4 button .

Hope it helps .

Thank you,

Shubham