SAP 弹窗从自定义选项中选择

  DATA: BEGIN OF spoplist OCCURS 15.
          INCLUDE STRUCTURE spopli.
  DATA: END OF spoplist.
  DATA: answer TYPE c.

  spoplist-varoption = '1.选项1'.
  APPEND spoplist.

  spoplist-varoption = '2.选项2'.
  APPEND spoplist.

  spoplist-selflag = 'X'."只在MARK_FLAG为空的时候有用

spoplist-varoption = '3.选项3'.
  APPEND spoplist.

  CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
    EXPORTING
     CURSORLINE         = 1"radio button的默认选项
     MARK_FLAG          = ' '"X-radio button;空-checkbox.
      mark_max           = 1 "最大checkbox选择数量
*     START_COL          = 0
*     START_ROW          = 0
      textline1          = '请选择数据来源：' "必须参数
*     TEXTLINE2          = ' '
*     TEXTLINE3          = ' '
      titel              = '选择' "必须参数
*     DISPLAY_ONLY       = ' '
    IMPORTING
      answer             = answer
    TABLES
      t_spopli           = spoplist[]
    EXCEPTIONS
      not_enough_answers = 1
      too_much_answers   = 2
      too_much_marks     = 3
      OTHERS             = 4.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

  cv_sel = '0'.

  READ TABLE spoplist WITH KEY selflag = 'X'.
  IF sy-tabix = 1."INDEX在DO...ENDDO里才有用 LOOP 和READ TABLE只能用TABIX
    cv_sel = '1'.
  ELSEIF sy-tabix = 2.
    cv_sel = '2'.
  ELSEIF sy-tabix = 3.
    cv_sel = '3'.
  ENDIF.