TYPE-POOLS: VRM.
DATA: IT_LIST TYPE VRM_VALUES , "list box的值
WA_LIST LIKE LINE OF IT_LIST."list box的結構
PARAMETERS:TJFW AS LISTBOX VISIBLE LENGTH 20 。
AT SELECTION-SCREEN ON VALUE-REQUEST FOR TJFW.
data ID TYPE VRM_ID.
WA_LIST-KEY = '1'
WA_LIST-TEXT = '供 應 商'.
APPEND WA_LIST TO IT_LIST .
ID = 'TJFW‘.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = ID
VALUES = IT_LIST
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2.