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.

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/11011430/viewspace-1017637/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/11011430/viewspace-1017637/