Dropdown box in selection screen

[Former Member]

Hi

There are 3 options "Create", "Change" and 'Delete".

I need to create a dropdown box in selection screen with these 3 values...

How to code for this requirement...??

PLz help me ASAP...

[Former Member]

use fm...
ALL FUNCTION <b>'VRM_SET_VALUES'</b>
EXPORTING
ID = V_NAME1
VALUES = IT_LIST.

[Former Member]

Or you could define a domain and set the values in there.

[Former Member]

Hi

FM 'VRM_SET_VALUES' can be used for the same

Regards

Beena

[Former Member]

TYPE-POOLS: vrm.

data:

ws_cnt type i,

ws_list_values type vrm_values,

ws_list_line like line of ws_list_values.

data: begin of ws_tab,

<field> like <table-field>,

end of ws_tsact.

data: i_tab like ws_tab occurs 0 with header line.

data: ws_text like <table-field>.

selection-screen: begin of line.

selection-screen: comment (31) <text> for field par_comm.

PARAMETERS: <field_name> AS LISTBOX VISIBLE LENGTH 20.

selection-screen: end of line.

append 'create' 'change' 'delete' to i_tab.

LOOP AT i_tab INTO ws_tab.

ws_cnt = ws_cnt + 1.

ws_list_line-key = ws_cnt.

ws_list_line-text = ws_tab-field.

APPEND ws_list_line TO ws_list_values.

ENDLOOP.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'PAR_COMM'

values = ws_list_values.

ENDIF.

[Former Member]

Hi pavan,

1. simple

2. we have to use the fm

VRM_SET_VALUES

and declare the parameter as list box.

3. just copy paste to get a taste of it.

REPORT abc.

TYPE-POOLS : vrm.

DATA : v TYPE vrm_values.

DATA : vw LIKE LINE OF v.

PARAMETERS : a(10) TYPE c AS LISTBOX VISIBLE LENGTH 10.

INITIALIZATION.

vw-key = '1'.

vw-text = 'Jan'.

APPEND vw TO v.

vw-key = '2'.

vw-text = 'Feb'.

APPEND vw TO v.

vw-key = '3'.

vw-text = 'Mar'.

APPEND vw TO v.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'A'

values = v

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

regards,

amit m.

[Former Member]

Hi,

Check this,.

REPORT  ztest .
TYPE-POOLS : vrm.
DATA : it_vrm TYPE vrm_values,
       x_vrm like line of  it_vrm.

PARAMETERS : SEL(10) AS LISTBOX VISIBLE LENGTH 10.

INITIALIZATION.

  x_vrm-key = '1'.
  x_vrm-text = 'display'.
  APPEND x_vrm TO it_vrm.

  x_vrm-key = '2'.
  x_vrm-text = 'change'.
  APPEND x_vrm TO it_vrm.

  x_vrm-key = '1'.
  x_vrm-text = 'delete'.
  APPEND x_vrm TO it_vrm.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'SEL'
      values          = it_vrm
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.

Regards

vijay

[Former Member]

Check the sample Code:

REPORT yprasample12.

TYPE-POOLS : vrm.

DATA : vrm_data TYPE vrm_values.

DATA : wa_vrm LIKE LINE OF vrm_data.

PARAMETERS : p_opt(10) TYPE c AS LISTBOX VISIBLE LENGTH 10.

INITIALIZATION.

wa_vrm-key = '1'.

wa_vrm-text = 'Create'.

APPEND wa_vrm TO vrm_data.

wa_vrm-key = '2'.

wa_vrm-text = 'Change'.

APPEND wa_vrm TO vrm_data.

wa_vrm-key = '3'.

wa_vrm-text = 'Delete'.

APPEND wa_vrm TO vrm_data.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'P_OPT'

values = vrm_data

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.