在 selection-screen 中添加 listbox

<!--StartFragment -->

REPORTz_ljc_078LINE-SIZE200.

TYPE-POOLS:vrm.


PARAMETERS:p_lb(6)TYPEcASLISTBOXVISIBLELENGTH10OBLIGATORY.

DATA:it_listboxTYPEvrm_values,
s_listboxLIKELINEOFit_listbox.


INITIALIZATION.


REFRESHit_listbox.
s_listbox-key='1'.
s_listbox-text='王快乐'.
APPENDs_listboxTOit_listbox.

s_listbox-key='2'.
s_listbox-text='庞高兴'.
APPENDs_listboxTOit_listbox.

s_listbox-key='3'.
s_listbox-text='张可乐'.
APPENDs_listboxTOit_listbox.

s_listbox-key='4'.
s_listbox-text='高迷糊'.
APPENDs_listboxTOit_listbox.


CALLFUNCTION'VRM_SET_VALUES'
EXPORTING
id='P_LB'
values=it_listbox.


START-OF-SELECTION.

ifp_lbisnotinitial.
readtableit_listboxintos_listboxwithkeykey=p_lb.
ifsy-subrc=0.

write:s_listbox.
endif.
endif.