List box at selection screen
type-pools: vrm.
data: it_list type vrm_values,
list_value type vrm_value.
* --- selection screen
parameters: p_period(2) type c as listbox visible length 15 obligatory. " Period
data: p_num type i value '1',
p_len type i,
p_temp(2) type c.
at selection-screen output.
clear it_list.
refresh it_list.
data p_num type i value '1'.
do 16 times.
clear: p_len,p_temp.
clear list_value.
p_temp = p_num.
p_len = strlen( p_temp ).
if p_len = '1'.
concatenate '0' p_temp into p_temp.
endif.
condense p_temp.
list_value-key = p_temp.
list_value-text = p_temp.
append list_value to it_list.
p_num = p_num + 1.
enddo.
call function 'VRM_SET_VALUES'
exporting
id = 'P_PERIOD'
values = it_list
exceptions
id_illegal_name = 1
others = 2.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/11011430/viewspace-1017637/ ，如需转载，请注明出处，否则将追究法律责任。
