sample code..
*TYPES: BEGIN OF t_ekko,
* ebeln TYPE ekko-ebeln,
* END OF t_ekko.
*DATA: it_ekko TYPE STANDARD TABLE OF t_ekko,
* wa_ekko LIKE LINE OF it_ekko.
*
*TYPE-POOLS: vrm.
*DATA: name TYPE vrm_id,
* list TYPE vrm_values,
* value LIKE LINE OF list.
*PARAMETERS: p_parm(10) AS LISTBOX VISIBLE LENGTH 14 .
*SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME .
*PARAMETERS p_one TYPE c MODIF ID m1 .
*SELECTION-SCREEN END OF BLOCK a.
*
*SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME .
*PARAMETERS p_two TYPE c MODIF ID m2.
*SELECTION-SCREEN END OF BLOCK b.
*
*
*AT SELECTION-SCREEN OUTPUT.
*
* SELECT ebeln
* UP TO 3 ROWS
* FROM ekko
* INTO TABLE it_ekko.
*
* LOOP AT it_ekko INTO wa_ekko.
* value-key = wa_ekko-ebeln.
* value-text = wa_ekko-ebeln.
* APPEND value TO list.
* ENDLOOP.
* name = 'P_PARM'.
*
* CALL FUNCTION 'VRM_SET_VALUES'
* EXPORTING
* id = name
* values = list.
**
* LOOP AT SCREEN.
* IF p_parm = '0045000000'.
* IF screen-GROUP1 = 'M1'.
* screen-active = 1.
* MODIFY SCREEN.
* ELSE.
* screen-group1 = 'M2'.
* screen-active = 0.
* MODIFY SCREEN.
* ENDIF.
*
* ELSEIF p_parm = '0045000001'.
* IF screen-group1 = 'M2'.
* screen-active = 1.
* MODIFY SCREEN.
* ELSE.
* screen-group1 = 'M1'.
* screen-active = 0.
* MODIFY SCREEN.
* ENDIF.
* ENDIF.
* ENDLOOP.
*
*********************************************************
**START-OF-SELECTION.
*START-OF-SELECTION.
* WRITE: / 'SELECTED VALUE KEY:', p_parm.
best regards:
damon