REPORT Z_BARRY_LISTBOX .
TYPE-POOLS: VRM.
DATA: IT_VAL TYPE VRM_VALUES,
W_LINE LIKE LINE OF IT_VAL.
PARAMETERS P_BUKRS LIKE T001-BUKRS AS LISTBOX VISIBLE LENGTH 25
OBLIGATORY.
INITIALIZATION.
SELECT BUKRS BUTXT FROM T001 INTO (W_LINE-KEY, W_LINE-TEXT).
APPEND W_LINE TO IT_VAL.
CHECK P_BUKRS IS INITIAL.
P_BUKRS = W_LINE-KEY.
ENDSELECT.
AT SELECTION-SCREEN OUTPUT.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'P_BUKRS'
VALUES = IT_VAL.
END-OF-SELECTION.
WRITE: / 'Company Code:', P_BUKRS.