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 .
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 .