REPORT ZF4VAIDE.

DATA:
  M_CHAR3(3) TYPE C,
  M_CHOICE LIKE SY-TABIX.

PARAMETERS:
  P_CHAR3 LIKE M_CHAR3.

DATA: BEGIN OF IT_HELP OCCURS 0,
        KEY(3),          "valeur
        SPACE(2),
        DESC(40),        "description
      END OF IT_HELP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_CHAR3.

  REFRESH IT_HELP.
  CLEAR IT_HELP.

  IT_HELP-KEY = 'VA1'. IT_HELP-DESC = 'Valeur 1'.
  APPEND IT_HELP.
  IT_HELP-KEY = 'VA2'. IT_HELP-DESC = 'Valeur 2'.
  APPEND IT_HELP.
  IT_HELP-KEY = 'VA3'. IT_HELP-DESC = 'Valeur 3'.
  APPEND IT_HELP.

  CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
     EXPORTING
          ENDPOS_COL   = 80
          ENDPOS_ROW   = 8
          STARTPOS_COL = 36
          STARTPOS_ROW = 5
          TITLETEXT    = 'Valeurs'
     IMPORTING
          CHOISE       = M_CHOICE
     TABLES
          VALUETAB     = IT_HELP
     EXCEPTIONS
          BREAK_OFF    = 1
          OTHERS       = 2.

  IF M_CHOICE NE 0 AND SY-SUBRC EQ 0.
    READ TABLE IT_HELP INDEX M_CHOICE.
    P_CHAR3 = IT_HELP-KEY.
  ENDIF.

START-OF-SELECTION.

  WRITE: / 'Vous avez choisi :', P_CHAR3.