F4-Dateiname - 4AP.de - ABAP Syntaxbeispiel: F4-Hilfe um Dateinamen zu ermitteln

Beispielcoding: ABAP F4-Hilfe um Dateinamen zu ermitteln (kopieren erlaubt aber auf eigene Gefahr :-))


Auf dem Selektionsbildschirm sollte ein abgefragter Dateiname mit einer Eingabehilfe versehen werden.
PARAMETERS:
  p_online(128) TYPE c.

* Eingabehilfen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_online.
  PERFORM get_online_filename USING p_online.


*&---------------------------------------------------------------------*
*&      Form  get_online_filename
*&---------------------------------------------------------------------*
FORM get_online_filename USING file_name.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
   EXPORTING
*     PROGRAM_NAME        = SYST-REPID
*     DYNPRO_NUMBER       = SYST-DYNNR
*     FIELD_NAME          = ' '
     static              = 'X'
     mask                = '*.*' " bis 4.6  oder z.B. '*.xls'
*     mask                = ',Excel-Dateien,*.xls' " ab 4.7                                     " ',Beschreibung,*.ausgewählt'
*     mask                = ',*.*,*.*.'       " ab 4.7 zeigt alle an

    CHANGING
      file_name           = file_name
   EXCEPTIONS
     mask_too_long       = 1
     OTHERS              = 2.
  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.                    " get_online_filename


Oder ganz knackig kurz: 
*Zeige alle Dateien (oder mit Endung XLS)
DATA: FILENAME LIKE RLGRAP-FILENAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            MASK      = '*.*'             "  oder z.B. '*.xls'
*            mask      = ',*.*,*.*.'       " ab 4.7 zeigt alle an
            STATIC    = 'X'
       CHANGING
            FILE_NAME = FILENAME.