分类:
2009-07-10 11:08:11
REPORT ZLIST.
TYPE-POOLS: VRM.
DATA: NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST.
PARAMETERS: P_LIST(10) AS LISTBOX VISIBLE LENGTH 10.
AT SELECTION-SCREEN OUTPUT.
NAME = 'P_LIST'.
VALUE-KEY = '1'.
VALUE-TEXT = 'LINE 1'.
APPEND VALUE TO LIST.
VALUE-KEY = '2'.
VALUE-TEXT = 'LINE 2'.
APPEND VALUE TO LIST.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST.
START-OF-SELECTION.
WRITE: / 'PARAMETER:', P_LIST.
*----------------------------------------------------------
*以下是输出具体被选择的值的写法。
*----------------------------------------------------------
REPORT zlist NO STANDARD PAGE HEADING.
TYPE-POOLS: vrm.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value TYPE LINE OF vrm_values.
PARAMETERS: p_list(10) AS LISTBOX VISIBLE LENGTH 10.
AT SELECTION-SCREEN OUTPUT.
name = 'P_LIST'.
value-key = '1'.
value-text = 'LINE 1'.
APPEND value TO list.
value-key = '2'.
value-text = 'LINE 2'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
START-OF-SELECTION.
READ TABLE list INTO value WITH KEY key = p_list.
WRITE: / 'PARAMETER:', value-text.