List Box 만들기

출처: http://cafe.daum.net/abap4


DATA: w_name TYPE vrm_id,
it_list TYPE vrm_values,
st_value LIKE LINE OF it_list.

PERFORM list_box_status1 USING 'R_STATUS'. “리스트박스이름

*&---------------------------------------------------------------------*
*& Form list_box_status1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM list_box_status1 USING p_name.

CLEAR: st_value, it_list, it_list[].
w_name = p_name.

* list setting
st_value-key = '키값1'. "사용될값
st_value-text = '텍스트1'. "화면에 나타내줄이름
APPEND st_value TO it_list.
st_value-key = '키값2'.
st_value-text = '텍스트2'.
APPEND st_value TO it_list.

CALL FUNCTION 'VRM_SET_VALUES' "펑션
EXPORTING
id = w_name
values = it_list.

ENDFORM. " list_box_status1