Dropdown list on screen

Question

Hi All,
Could anyone help me  please?
I wants to create a dropdown list on screen.
Could anyone help please?

Answer 1

Hi,
Check the following code:
REPORT ZSamples.
Tables : hrp1000, pa0001.
TYPE-POOLS : VRM.
DATA: LIST TYPE vrm_values,
      value LIKE LINE OF list.
DATA: BEGIN OF itab_list OCCURS 0,
        kode_divisi(3),
        nama_divisi like hrp1000-mc_stext,
      END OF itab_list.
DATA :
  KODE_DIVISI like hrp1000-mc_short,
  NAMA_DIVISI like hrp1000-mc_stext.
RANGES : RDIVISI FOR PA0001-WERKS.
SELECTION-SCREEN BEGIN OF BLOCK PARAMETER WITH FRAME
TITLE TEXT-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (15) TEXT-003.
SELECTION-SCREEN POSITION 24.
PARAMETERS PDIVISI
    LIKE HRP1000-MC_SHORT AS LISTBOX VISIBLE LENGTH
40.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK PARAMETER.
INITIALIZATION.
  MOVE 'D' TO PNPTIMED.
  IF LIST[] IS INITIAL.
    CLEAR HRP1000.
    SELECT MC_SHORT MC_STEXT
              INTO (KODE_DIVISI, NAMA_DIVISI)
              FROM HRP1000
              WHERE OTYPE EQ 'Z4'
              AND PLVAR EQ '02'
              AND ISTAT EQ '1'.
      IF SY-SUBRC EQ 0.
        MOVE :
          KODE_DIVISI+3(3) TO ITAB_LIST-kode_divisi,
          NAMA_DIVISI TO ITAB_LIST-NAMA_DIVISI.
        APPEND ITAB_LIST.
      ENDIF.
    ENDSELECT.
    sort itab_list by nama_divisi ascending.
    LOOP AT itab_list.
      MOVE:
          itab_list-KODE_DIVISI TO value-key,
          itab_list-NAMA_DIVISI TO value-text.
      APPEND value TO LIST.
    ENDLOOP.
    CALL FUNCTION 'VRM_SET_VALUES'
         EXPORTING
              id     = 'PDIVISI'
              values = list.
  ENDIF.
START-OF-SELECTION.
Message was edited by: Gayathri Hariharan