PROCESS ON VALUE-REQUEST.
* 设置帮助（工作中心）
FIELD wa_zppt026-arbpl MODULE mdl_arbpl_f4.
*&---------------------------------------------------------------------*
*& Module MDL_ARBPL_F4 INPUT
*&---------------------------------------------------------------------*
* 设置帮助（指标编码）
*----------------------------------------------------------------------*
MODULE mdl_arbpl_f4 INPUT.
* 局部变量
DATA:
lt_help_arbpl TYPE TABLE OF t_help_arbpl.
* 取得指标文本数据
SELECT crhd~arbpl AS value
crtx~ktext AS descr
INTO CORRESPONDING FIELDS OF TABLE lt_help_arbpl
FROM crhd LEFT JOIN crtx
ON crhd~objty = crtx~objty
AND crhd~objid = crtx~objid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'VALUE'
dynpprog = sy-cprog
dynpnr = sy-dynnr
dynprofield = 'WA_ZPPT026-ARBPL'
value_org = 'S'
TABLES
value_tab = lt_help_arbpl.
ENDMODULE. " MDL_ARBPL_F4 INPUT