Code: Alles auswählen.
REPORT test_para_als_listbox .
*** Type-Pool inkludieren
TYPE-POOLS vrm.
*** Datendefinition
DATA l_value TYPE vrm_value.
DATA t_values TYPE vrm_values.
*** Selektionsbild
PARAMETERS p_link(10) AS LISTBOX VISIBLE LENGTH 40.
*** Init
INITIALIZATION.
*** 1. Link einfügen
l_value-key = 'LINK_A'.
l_value-text = 'www.abap-fans.de'.
APPEND l_value TO t_values.
*** 2. Link einfügen
l_value-key = 'LINK_B'.
l_value-text = 'www.abapforum.com'.
APPEND l_value TO t_values.
*** 3. Link einfügen
l_value-key = 'LINK_C'.
l_value-text = 'www.tricktresor.de'.
APPEND l_value TO t_values.
*** Listbox füllen
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_LINK'
values = t_values
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
START-OF-SELECTION.
*** Ausgabe des Parameters
WRITE: / 'Link-ID:', p_link.
Das geht schon per DEFAULT. Du musst den Key als DEFAULT mit geben nicht den TEXT.TakerOne hat geschrieben:Den Parameter mit dem 1. Wert per Default zu befüllen bringt nichts.Das Ergebnis ist ein zusätzliches Feld, daß nicht über die ID abgefragt werden kann und nur den Textwert beinhaltet.
Code: Alles auswählen.
REPORT test_para_als_listbox .
*** Type-Pool inkludieren
TYPE-POOLS vrm.
*** Datendefinition
DATA l_value TYPE vrm_value.
DATA t_values TYPE vrm_values.
*** Selektionsbild
PARAMETERS p_link(10) AS LISTBOX VISIBLE LENGTH 40 DEFAULT 'LINK_B'.
*** Init
INITIALIZATION.
*** 1. Link einfügen
l_value-key = 'LINK_A'.
l_value-text = 'www.abap-fans.de'.
APPEND l_value TO t_values.
*** 2. Link einfügen
l_value-key = 'LINK_B'.
l_value-text = 'www.abapforum.com'.
APPEND l_value TO t_values.
*** 3. Link einfügen
l_value-key = 'LINK_C'.
l_value-text = 'www.tricktresor.de'.
APPEND l_value TO t_values.
*** Listbox füllen
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_LINK'
values = t_values
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
START-OF-SELECTION.
*** Ausgabe des Parameters
WRITE: / 'Link-ID:', p_link.