hi Naseer,
something like:
PARAMETERS : p_druck TYPE zdruc-druck OBLIGATORY
DEFAULT '01' USER-COMMAND lb01
<b>AS LISTBOX</b> VISIBLE LENGTH 40.
ec
TYPE-POOLS: vrm. DATA: name TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list. PARAMETERS: p_frwd(10) AS LISTBOX VISIBLE LENGTH 10. AT SELECTION-SCREEN OUTPUT. name = 'P_FRWD'. value-key = '07'. value-text = '7 weeks'. APPEND value TO list. value-key = '06'. value-text = '6 weeks'. APPEND value TO list. value-key = '05'. value-text = '5 weeks'. APPEND value TO list. value-key = '04'. value-text = '4 weeks'. APPEND value TO list. value-key = '03'. value-text = '3 weeks'. APPEND value TO list. value-key = '02'. value-text = '2 weeks'. APPEND value TO list. value-key = '01'. value-text = '1 week'. APPEND value TO list. CALL FUNCTION 'VRM_SET_VALUES' EXPORTING ID = name VALUES = list.
Add a comment