listbox自行设置

 parameters: p_sort(40) type c obligatory as listbox
                         visible length 40 default '1'.

设置下拉内容：

SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } form frm_set_sort.
  type-pools vrm.
  data: lt_list type vrm_values,
        ls_list like line of lt_list.
  ls_list-key = '1'.
  ls_list-text = 'By Reservation'.
  append ls_list to lt_list.
  ls_list-key = '2'.
  ls_list-text = 'By Plant/Material'.
  append ls_list to lt_list.
  ls_list-key = '3'.
  ls_list-text = 'By Plant/Work Order/Material'.
  append ls_list to lt_list.

  call function 'VRM_SET_VALUES'
    exporting
      id                    = 'P_SORT'
      values                = lt_list
   exceptions
     id_illegal_name       = 1
     others                = 2
            .
  if sy-subrc <> 0.
 message id sy-msgid type sy-msgty number sy-msgno
         with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
endform.                    "frm_set_sort