Hi Nagaraju/Guru,
I have modified Guru's Code a bit and the below code works perfectly fine for your need Nagaraju.
The red part is the main logic for clearing the selection screen data after execution.
*&---------------------------------------------------------------------*
*& Report Z_DYNAMIC_LIST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT z_dynamic_list.
TYPE-POOLS: vrm.
PARAMETERS: p_test AS LISTBOX VISIBLE LENGTH 10.
DATA: it_list TYPE vrm_values,
wa_list LIKE LINE OF it_list.
AT SELECTION-SCREEN OUTPUT.
CLEAR: wa_list,
it_list[].
wa_list-key = '1'.
wa_list-text ='Testing1'.
APPEND wa_list TO it_list.
CLEAR wa_list.
wa_list-key = '2'.
wa_list-text ='Testing2'.
APPEND wa_list TO it_list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_TEST'
values = it_list.
END-OF-SELECTION.
WRITE : 'Junk'.
FIELD-SYMBOLS : <fs> .
ASSIGN ('(RSDBRUNT)MEMKEY-INT_MODE') TO <fs> .
IF sy-subrc = 0 .
<fs> = '01' .
ENDIF.
Please revert in case anything is not clear.
regards,
Ankit.
