How to put drop down list

Question

Hi All,
I have added Z_field in Va01 Transaction. I want to put drop down list for that .
Can you please suggest me how to do that.
Regards
Radha

Answer 1

Hi Radha Konjeti,
To have a dropdownlist/listbox in your report, use this demo code for creating a listbox with a set of values in it and select a single value for processing:-
REPORT  Y_MOVIE MESSAGE-ID ZMSG.
TABLES : Y_MOVIES.
TYPE-POOLS: VRM.
TYPES : BEGIN OF MOVIE,
        YR LIKE Y_MOVIES-YR,
        CATEGORY LIKE Y_MOVIES-CATEGORY,
        WINNER LIKE Y_MOVIES-WINNER,
        NOTES LIKE Y_MOVIES-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
  YR
  CATEGORY
  WINNER
  NOTES
  FROM Y_MOVIES INTO 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 solves your problem.
Thanks & Regards.
Tarun Gambhir.