代码语言:javascript复制
PROCESS ON VALUE-REQUEST .
"FIELD 表-字段 MODULE 子例程"
FIELD ztwms14_lifnr-bwart MODULE frm_bwart_list .
子例程例子
代码语言:javascript复制MODULE frm_bwart_list INPUT.
DATA:
BEGIN OF lt_bwart OCCURS 0,
bwart TYPE t156t-bwart,
btext TYPE t156t-btext,
END OF lt_bwart.
CLEAR lt_bwart[].
SELECT
bwart
btext
FROM t156t
INTO TABLE lt_bwart[]
WHERE spras = '1'
AND sobkz = ''
AND kzbew = 'B'
AND kzzug = ''
AND kzvbr = ''.
SORT lt_bwart[] BY bwart.
DELETE ADJACENT DUPLICATES FROM lt_bwart[].
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'BWART'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'BWART'
value_org = 'S'
TABLES
value_tab = lt_bwart[]
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
ENDMODULE. " FRM_BWART_LIST INPUT
怎么样,在了解此篇文章有何感想?