Bottoni sopra la videata di selezione

*----------------------------------------------------------------------*
* DECLARATIONS                                                         *
*----------------------------------------------------------------------*
TABLES: SSCRFIELDS.

*----------------------------------------------------------------------*
* LAYOUT                                                               *
*----------------------------------------------------------------------*
SELECTION-SCREEN FUNCTION KEY 1.

PARAMETERS pa_unix LIKE EPSF-EPSDIRNAM DEFAULT '/IFR/IMPORT/'.

*----------------------------------------------------------------------*
* EVENTS                                                               *
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM = 'FC01'.
    PERFORM list_files.
  ENDIF.

*----------------------------------------------------------------------*
* INIT                                                                 *
*----------------------------------------------------------------------*
INITIALIZATION.
  SSCRFIELDS-FUNCTXT_01 = 'Lista file'.

*----------------------------------------------------------------------*
* FORM LIST_FILES                                                      *
*----------------------------------------------------------------------*
FORM list_files.

  DATA: BEGIN OF lt_list OCCURS 0,
          line(200),
        END OF lt_list.
  DATA: lv_command(66) TYPE C.

  CONCATENATE 'ls -o'
              pa_unix
         INTO lv_command SEPARATED BY SPACE.

  CALL 'SYSTEM'
    ID 'COMMAND'
    FIELD lv_command
    ID 'TAB'
    FIELD lt_list-*sys*.

  EDITOR-CALL FOR lt_list
            TITLE pa_unix
            DISPLAY-MODE.

ENDFORM.                    "list_files