Code: Alles auswählen.
PARAMETERS: p_matnr TYPE matnr AS LISTBOX VISIBLE LENGTH 60 USER-COMMAND space.
AT SELECTION-SCREEN.
BREAK-POINT.
INITIALIZATION.
PERFORM fill_listbox.
*&---------------------------------------------------------------------*
*& Form FILL_LISTBOX
*&---------------------------------------------------------------------*
FORM fill_listbox .
TYPE-POOLS: vrm.
DATA: t_values TYPE vrm_values,
id TYPE vrm_id.
id = 'P_MATNR'.
SELECT matnr AS key
maktx AS text
INTO CORRESPONDING FIELDS OF TABLE t_values
FROM makt UP TO 20 ROWS
WHERE spras = sy-langu.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = id
values = t_values.
ENDFORM. " FILL_LISTBOX