POPUP_TO_DECIDE_LIST

REPORT ZTEST21.
DATA:   SELECTLIST LIKE SPOPLI OCCURS 5 WITH HEADER LINE.
DATA:   ANTWORT   TYPE C.

CLEAR   SELECTLIST.
REFRESH SELECTLIST.

SELECTLIST-VAROPTION = '65 ??/??'.
SELECTLIST-SELFLAG   = 'X'.
APPEND SELECTLIST.

SELECTLIST-VAROPTION = '70 ??/??'.
SELECTLIST-SELFLAG   = 'X'.
APPEND SELECTLIST.

SELECTLIST-VAROPTION =  '75 ??/??'.
SELECTLIST-SELFLAG   = 'X'.
SELECTLIST-INACTIVE  = 'X'.
APPEND SELECTLIST.

CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
  EXPORTING
*   CURSORLINE         = 1
*   MARK_FLAG          = ' '
    MARK_MAX           = 1
    START_COL          = 10
    START_ROW          = 10
    TEXTLINE1          = 'TEXTLINE1'
    TEXTLINE2          = 'POPUP_TO_DECIDE_LIST'
    TEXTLINE3          = 'TEXT3'
    TITEL              = 'TITLE '
  IMPORTING
    ANSWER             = ANTWORT
  TABLES
    T_SPOPLI           = SELECTLIST
  EXCEPTIONS
    NOT_ENOUGH_ANSWERS = 1
    TOO_MUCH_ANSWERS   = 2
    TOO_MUCH_MARKS     = 3
    OTHERS             = 4.
IF ANTWORT EQ 'A'.
ENDIF.