在选择屏幕上，显示Combox

*****转自 http://blog.csdn.net/leechirslcc/article/details/4808294

**非ABAP字典中的字段

TYPE-POOLS VRM.
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 .

AT SELECTION-SCREEN OUTPUT.
PERFORM. sub_init_p_contyp_f4help .

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.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/26168649/viewspace-731563/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/26168649/viewspace-731563/