Add multiple entries to dropdown list without using data dictionary

Question

Hi,
By default when we use a data dictionary element for dropdown list, all the possible values are listed in the dropdown. However when no data dictionary element is used for the dropdown list, it behaves like a parameter with a single line.
I would like to know if it is possible to not use the data dictionary element and still have multiple lines in the dropdown.
Thanks in advance.
Shamia

Answer 1

Check the below program :
*report zxyz.
report zxyz.
Table diclaration
tables: tvdir.
Selection screento table View
  selection-screen skip 2.
  parameter p_tabnm(30) as listbox visible length 30 obligatory.
  selection-screen skip 1.
  selection-screen begin of block s1 with frame title text-001.
  parameter: p_radio1 radiobutton group g1,
             p_radio radiobutton group g1.
  selection-screen end of block s1.
Add values to list box
at selection-screen output.
  type-pools: vrm.
  data: name  type vrm_id,
        list  type vrm_values,
        value like line of list.
  name = 'P_TABNM'.
  refresh list.
  value-key = 'V_024'.
  value-text = text-002. "'V_024-Purchasing Groups'.
  append value to list.
  value-key = 'V_T024D'.
  value-text = text-003. "'V_T024D-MRP Controllers'.
  append value to list.
  value-key = 'ZT604'.
  value-text = text-004. "'T604-Commodity Codes'.
  append value to list.
  value-key = 'T179'.
  value-text = text-005. "'T179-Product Hierarchies'.
  append value to list.
  value-key = 'TVM1T'.
  value-text = text-006. "'TVM1T-Business Manager'.
  append value to list.
  value-key = 'TVM2T'.
  value-text = text-007. "'TVM2T-Division manager'.
  append value to list.
  value-key = 'TVM3T'.
  value-text = text-008. "'TVM3T-Director'.
  append value to list.
  value-key = 'V_TVV2'.
  value-text = text-009. "'V_TVV2-Customer Group 2'.
  append value to list.
  call function 'VRM_SET_VALUES'
       exporting
            id     = name
            values = list.
start-of-selection.
Get flag of corresponding table view
  select single tabname flag from tvdir into tvdir
                where tabname = p_tabnm.
Set flag of corresponding table view
  if p_radio1 eq 'X'.
    if tvdir-flag ne 'X'.
      update tvdir set: flag  = 'X'
                 where tabname = p_tabnm.
    endif.
  endif.
  if p_radio eq 'X'.
    if tvdir-flag eq 'X'.
      update tvdir set: flag  = ''
                   where tabname = p_tabnm.
    endif.
  endif.
Execute View/Table
  call function 'VIEW_MAINTENANCE_CALL'
    exporting
      action                               = 'U'
      view_name                            = p_tabnm
   exceptions
     client_reference                     = 1
     foreign_lock                         = 2
     invalid_action                       = 3
     no_clientindependent_auth            = 4
     no_database_function                 = 5
     no_editor_function                   = 6
     no_show_auth                         = 7
     no_tvdir_entry                       = 8
     no_upd_auth                          = 9
     only_show_allowed                    = 10
     system_failure                       = 11
     unknown_field_in_dba_sellist         = 12
     view_not_found                       = 13
     others                               = 14.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
Reset flag of corresponding table view
  update tvdir set: flag  = tvdir-flag
                where tabname = p_tabnm.
Thanks
Seshu