Add ListBox to selection-Screen

Report z_ljc_078 line-size 200.

Type-pools: VRM.

Parameters: p_lb (6) Type C as ListBox visible length 10 obligatory.

Data: it_listbox type vrm_values,
S_listbox like line of it_listbox.

Initialization.

Refresh it_listbox.
S_listbox-key = '1 '.
S_listbox-text = 'wang happy '.
Append s_listbox to it_listbox.

S_listbox-key = '2 '.
S_listbox-text = 'pang happy '.
Append s_listbox to it_listbox.

S_listbox-key = '3 '.
S_listbox-text = 'zhang co '.
Append s_listbox to it_listbox.

S_listbox-key = '4 '.
S_listbox-text = 'high obfuscation '.
Append s_listbox to it_listbox.

Call function 'vrm _ set_values'
Exporting
Id = 'P _ lb'
Values = it_listbox.

Start-of-selection.

If p_lb is not initial.
Read Table it_listbox into s_listbox with key = p_lb.
If sy-subrc = 0.

Write: s_listbox.
Endif.
Endif.