Regarding drop down list, any body help me plz.. very very urgent

Question

i have to create a drop down list and in that if i select a value it should go to select query and display hte result in the output
for example if i select open in the inout list. that should go to a partiucular query which i write and after that when i process the report that option open should be displayed in the output
any body help me plz.. very very urgent

Answer 1

Check  code below..
TYPE-POOLS:  vrm.
CONSTANTS: c_pgp_cmd(20) TYPE c VALUE '/opt/pgp/bin/pgp'.
DATA : droplist TYPE vrm_values,
       dropval LIKE LINE OF droplist,
       w_command(2000) TYPE c VALUE '/usr/local/bin/ssh'.
DATA:  BEGIN OF t_cmdres OCCURS 0,
         line(500),
       END OF t_cmdres.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-005.
PARAMETERS:  tar_sys(10) TYPE c AS LISTBOX VISIBLE LENGTH 20 LOWER CASE,
             filepath TYPE esefilepath,
             pgpkey(1000) TYPE c LOWER CASE,
             option(25) TYPE c AS LISTBOX VISIBLE LENGTH 15 LOWER CASE,
             pass(100) TYPE c.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
  PERFORM set_screen.
AT SELECTION-SCREEN OUTPUT.
  IF option EQ 'encrypt'(000).
    LOOP AT SCREEN.
      IF screen-name = 'PASS'.
        screen-input = 0.
        MODIFY SCREEN.
        EXIT.
      ENDIF.
    ENDLOOP.
  ELSEIF option EQ 'set-preferred-ciphers'(001).
    LOOP AT SCREEN.
      IF screen-name = 'FILEPATH'.
        screen-input = 0.
        MODIFY SCREEN.
        EXIT.
      ENDIF.
    ENDLOOP.
  ENDIF.
START-OF-SELECTION.
write:/ 'Done'
*&      Form  set_screen
FORM set_screen .
  dropval-key = 'oapg18dv'(002).
  dropval-text = 'oapg18dv : DEV'.
  APPEND dropval TO droplist.
  dropval-key = 'oapg18te'(003).
  dropval-text = 'oapg18te : TEST'.
  APPEND dropval TO droplist.
  dropval-key = 'oapg18pr'(004).
  dropval-text = 'oapg18pr : PRD'.
  APPEND dropval TO droplist.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'TAR_SYS'
      values          = droplist
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
  CLEAR:  dropval,
          droplist[].
  dropval-key = 'encrypt'(000).
  dropval-text = 'Encrypt'.
  APPEND dropval TO droplist.
  dropval-key = 'set-preferred-ciphers'(001).
  dropval-text = 'Set cipher'.
  APPEND dropval TO droplist.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = 'OPTION'
      values          = droplist
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
  CLEAR:  dropval,
          droplist[].
ENDFORM.                    " set_screen
Reward if useful
Function Module <b>VRM_SET_VALUES</b> is used to set values for droplsit..
and be careful about Text Elements in this report.
Regards
Prax