Drop down lists using VRM_SET_VALUES

Question

Hello All ,
  i am calling VRM_SET_VALUES for drop down list, by exporting the ID and VALUES.
total i am passing 6 values,  so first time when i am in selection screen , it is displaying 6 values. fine ia m happy with this.
after executing the selection screen , if i come back, and see the drop down list , now this contains 7 values, the extra 7th value is what i selected first time. (so what i selected first time is now coming again, this entry is duplicated, now this entry is displaying at the bottom of the list , in capital letters). i dont want this extra entry, can some tell a way how to remove this.
P.S. i searched SDN , i dint find any problem releated this
Thanks in advance.
Best Regards,
Amarender Reddy B.

Answer 1

Hi,
Refer code:-
TABLES : Y_MOVIE.
TYPE-POOLS: VRM.
TYPES : BEGIN OF MOVIE,
        YR LIKE Y_MOVIE-YR,
        CATEGORY LIKE Y_MOVIE-CATEGORY,
        WINNER LIKE Y_MOVIE-WINNER,
        NOTES LIKE Y_MOVIE-NOTES,
        END OF MOVIE.
DATA: NAME TYPE VRM_ID,
      LIST TYPE VRM_VALUES,
      VALUE LIKE LINE OF LIST,
      MOVIETAB TYPE STANDARD TABLE OF MOVIE INITIAL SIZE 10 WITH HEADER LINE.
PARAMETERS: CATEGORY(10) AS LISTBOX VISIBLE LENGTH 10.
AT SELECTION-SCREEN.
  IF CATEGORY EQ ''.
    MESSAGE E006.
  ENDIF.
AT SELECTION-SCREEN OUTPUT.
  NAME = 'CATEGORY'.
  VALUE-KEY = 'PIC'.
  VALUE-TEXT = 'PIC'.
  APPEND VALUE TO LIST.
  VALUE-KEY = 'MAL'.
  VALUE-TEXT = 'MAL'.
  APPEND VALUE TO LIST.
  VALUE-KEY = 'FEM'.
  VALUE-TEXT = 'FEM'.
  APPEND VALUE TO LIST.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = NAME
      VALUES = LIST.
START-OF-SELECTION.
  WRITE : / 'Category Selected :', CATEGORY.
  ULINE.
  SELECT *
  FROM Y_MOVIE INTO CORRESPONDING FIELDS OF TABLE MOVIETAB
  WHERE CATEGORY = CATEGORY.
END-OF-SELECTION.
  WRITE : /1 'Year', 6 'Category', 16 'Winner', 50 'Notes'.
  ULINE.
  LOOP AT MOVIETAB.
    WRITE : /1 MOVIETAB-YR, 8 MOVIETAB-CATEGORY, 16 MOVIETAB-WINNER, 50 MOVIETAB-NOTES.
    ULINE.
  ENDLOOP.
  IF SY-SUBRC  0.
    MESSAGE I005.
  ENDIF.
Hope this helps you.
Regards,
Tarun