default value in list box

[Former Member]

hi,

i need to know how to set default value for a list box in selection screen.

[Former Member]

Hi

Check this code...

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 DEFAULT '6 weeks'.
AT SELECTION-SCREEN OUTPUT.
  name = 'P_FRWD'.
  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.

Message was edited by:

Perez C

[Former Member]

Parameters: P_BUKRS Type T001-BUKRS As Listbox visible length 10 default '1'.

santhosh

[Former Member]

Hi

check this code

at selection-screen output.

name = 'P_DATE'.

value-key = '1'.

value-text = 'Today'.

append value to list.

value-key = '2'.

value-text = 'Last 7 days'.

append value to list.

value-key = '3'.

value-text = 'Last 30 days'.

append value to list.

value-key = '4'.

value-text = 'Last 90 days'.

append value to list.

value-key = '5'.

value-text = 'Last year'.

append value to list.

• Call the ''VRM_SET_VALUES' to display the values in Listbox

call function 'VRM_SET_VALUES'

exporting

id = name

values = list.

at selection-screen.

if sy-ucomm = 'CLI1'.

sscrfields-ucomm = 'ONLI'(001).

endif.

if p_date = '1'.

p_date11 = sy-datum .

elseif p_date = '2'.

p_date11 = ( sy-datum - 7 ).

elseif p_date = '3'.

p_date11 = ( sy-datum - 30 ).

elseif p_date = '4'.

p_date11 = ( sy-datum - 90 ).

elseif p_date = '5'.

p_date11 = ( sy-datum - 365 ).

endif.

Reward points if useful...

Regards

Sreenivas

[Former Member]

Hi,

Do like this

example code

Parameters:  p_region TYPE ztps_regions-zregion    " Region
                 AS LISTBOX
                 VISIBLE LENGTH 15
                 DEFAULT 'EAST',

Reward Points if this helps,

Satish