在 selection-screen 中添加 listbox

REPORT  z_ljc_078 LINE-SIZE 200.

TYPE-POOLS: vrm.


PARAMETERS: p_lb(6) TYPE c AS LISTBOX VISIBLE LENGTH 10 OBLIGATORY.

DATA: it_listbox TYPE vrm_values,
      s_listbox LIKE LINE OF  it_listbox.


INITIALIZATION.


  REFRESH  it_listbox .
  s_listbox-key = '1'.
  s_listbox-text = '王快乐'.
  APPEND s_listbox TO  it_listbox.

  s_listbox-key = '2'.
  s_listbox-text = '庞高兴'.
  APPEND s_listbox TO  it_listbox.

  s_listbox-key = '3'.
  s_listbox-text = '张可乐'.
  APPEND s_listbox TO  it_listbox.

  s_listbox-key = '4'.
  s_listbox-text = '高迷糊'.
  APPEND s_listbox TO  it_listbox.


  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = 'P_LB'
      values = it_listbox.


START-OF-SELECTION.

   if p_lb is not initial.
      read table it_listbox into s_listbox with key key = p_lb.
      if sy-subrc = 0.

        write:s_listbox.
      endif.
   endif.