ABAP:下拉列表

 

type-pools:VRM.
data:name type vrm_id,
     list type vrm_values,
     value like line of list.

parameter s_id(5) type c default 'PK' AS LISTBOX VISIBLE LENGTH 5.

initialization.
at selection-screen on value-request for s_id.
  perform Set_S_ID_ListInfo.



form Set_S_ID_ListInfo.
  name = 's_id'.
  value-key = 'PK'.
  value-text = 'PK'.
  append value to list.
  value-key = 'PKG'.
  value-text = 'PKG'.
  append value to list.
  call function 'VRM_SET_VALUES'
    exporting
      id = name
      values = list.
endform.