ABAP 自定义下拉列表（一）

*" *"注意点:结构体中变量(id) 定义类型必须为 数据元素 类型或表字段,不能用C I 等基本数据类型. *" PARAMETERS :  p_type TYPE c AS LISTBOX VISIBLE LENGTH 10. DATA: BEGIN OF gs_itab,         id  TYPE dummy,         text TYPE text20,       END OF gs_itab. DATA: gt_itab LIKE gs_itab OCCURS 0 WITH HEADER LINE. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_type.   PERFORM sub_getprocesstype. *&---------------------------------------------------------------------* *&      Form  SUB_GETPROCESSTYPE *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* FORM sub_getprocesstype.   DATA: ps_itab LIKE gs_itab.   IF gt_itab[] IS INITIAL.     CLEAR ps_itab.     ps_itab-id = '1'.     ps_itab-text = '选项一'.     APPEND ps_itab TO gt_itab.     CLEAR ps_itab.     ps_itab-id = '2'.     ps_itab-text = '选项二'.     APPEND ps_itab TO gt_itab.     CLEAR ps_itab.     ps_itab-id = '3'.     ps_itab-text = '选项三'.     APPEND ps_itab TO gt_itab.   ENDIF.   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'     EXPORTING       retfield       = 'ID'       dynpprog       = sy-repid       dynpnr        = sy-dynnr       dynprofield      = 'P_TYPE'       value_org       = 'S'     TABLES       value_tab       = gt_itab[]     EXCEPTIONS       parameter_error = 1       no_values_found = 2       OTHERS          = 3.   IF sy-subrc <> 0.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.   ENDIF. ENDFORM.                    "SUB_GETPROCESSTYPE