有用的popup选择的 列表的 示例代码

report  rsspo500 .
data :   selectlist  like spopli  occurs  5  with  header  line .
data :   antwort    type  c .
while antwort  ne  2 .
   clear   selectlist .
   refresh selectlist .
selectlist -varoption  =  '显示含有单选按钮的弹出框' .
append selectlist .
selectlist -varoption  =  '显示含有复选框的弹出框' .
selectlist -selflag    =  'X' .
append selectlist .
call  function  'POPUP_TO_DECIDE_LIST'
      exporting
*         CURSORLINE         = 1
*         MARK_FLAG          = ' '
          mark_max            =  1
          start_col           =  10
          start_row           =  10
          textline1           =  'Text1'
          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' .
     exit .
   endif .
endwhile .
if antwort  ne  'A' .
   clear   selectlist .
   refresh selectlist .
  selectlist -varoption  =  '最多 15 个选项' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =  '含有复选框' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =  '或单选按钮' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =  '典型的列表功能：' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =  '* 选择' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =  '* 选择全部' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =  ' 取消全部选择' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =  '3 70字符/选项' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =  '65 字符/选项' .
  selectlist -selflag    =  'X' .
   append selectlist .
  selectlist -varoption  =   '激活/不激活可选行' .
  selectlist -selflag    =  'X' .
  selectlist -inactive   =  'X' .
   append selectlist .
* 2. Aufruf **********************************************************
   call  function  'POPUP_TO_DECIDE_LIST'
        exporting
*         CURSORLINE         = 1
            mark_flag           =  'X'
            mark_max            =  0
          start_col           =  15
          start_row           =  15
            textline1           =  'Das POPUP bietet' (c01 )
            textline2           =  'folgende Funktionalit鋞:' (c02 )
            titel               =  'Das Beispiel 2' (b02 )
        importing
            answer              =  antwort
        tables
            t_spopli            =  selectlist
        exceptions
            not_enough_answers  =  1
            too_much_answers    =  2
            too_much_marks      =  3
             others              =  4 .
endif .