ABAP FUNCTION--初始化LISTBOX

DATA: BEGIN OF T_MA OCCURS 0,

     MATKL LIKE MARA-MATKL,

             MATNR LIKE MARA-MATNR,

     END OF T_MA.

DATA: T_MA_VRM TYPE VRM_VALUES WITH HEADERLINE.

FIELD-SYMBOLS:<T_MA> LIKE LINE OF T_MA.

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

PERFORM INITIAL_LISTBOX_VALUE.   "初始化LISTBOX的值，将值写入内表

PERFORM SET_LISTBOX _VALUE TABLES T_MA USING 'Z***'.    " T_MATNR-->储存LISTBOX值的内表    Z***--->SCREEN画面中LISTBOX的内文

FORM INITIAL_LISTBOX_VALUE.

SELECT MATKL MATNR FROM MARA

INTO CORRESPONDING FIELDS OF TABLE T_MA

WHERE ***********************.

LOOP AT T_MA ASSIGNING <T_MA>.

T_MA_VRM-KEY =  <T_MA>-MATKL.

T_MA_VRM-TEXT = <T_MA>-MATNR.

APPEND T_MA_VRM.

CLEAR T_MA_VRM.

ENDLOOP.

ENDFORM.

FORM SET_LISTBOX_VALUE TABLES I_VALUES USING P_ID.

CALL FUNCTION 'VRM_SET_VALUES'

   EXPORTING

ID = P_ID

VALUES = I_VALUES[]

   EXCEPTIONS

ID_ILLEGAL_NAME = 1

OTHERS = 2.

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.