在SELECTION-SCREEN 上添加LIST

DATA: name TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list, g_fnsel(20) TYPE c, G_COLNO TYPE I. PARAMETERS : p_contyp LIKE g_fnsel AS LISTBOX VISIBLE LENGTH 12 DEFAULT 'A' OBLIGATORY. FORM sub_init_p_contyp_f4help . REFRESH list. DEFINE fill_list. value-key = &1. "个就是变量P_LIST的值 value-text = &2. "这个是text append value to list. END-OF-DEFINITION. fill_list 'A' 'A 显示屏幕'. fill_list 'N' 'N 后台处理'. fill_list 'E' 'E 显示错误'. CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'P_CONTYP' " PARAMETERS's Name values = list. ENDFORM.