REPORT test.
DATA:BEGIN OF it_ytchar OCCURS 0,
value LIKE ytchar-veh_wkg,"不能直接定义为char类型,一定要参考数据字典中的类型
END OF it_ytchar,
it_returnvalue LIKE TABLE OF ddshretval WITH HEADER LINE,
l_veh_wkg LIKE ytchar-veh_wkg.
PARAMETERS p_wkg LIKE ytchar-veh_wkg.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_wkg.
SELECT SINGLE vpower
INTO l_veh_wkg
FROM ytchar
WHERE matnr = 'E055'.
SPLIT l_veh_wkg AT '/' INTO TABLE it_ytchar.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'VEH' "任意的,不能为空
dynpprog = sy-repid
value_org = 'S'
TABLES
value_tab = it_ytchar
return_tab = it_returnvalue
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
*& 返回选中的值
READ TABLE it_returnvalue INDEX 1.
IF sy-subrc = 0.
p_wkg = it_returnvalue-fieldval.
ENDIF.
START-OF-SELECTION.
LOOP AT it_ytchar.
WRITE:/ it_ytchar-value.
ENDLOOP.
DATA:BEGIN OF it_ytchar OCCURS 0,
value LIKE ytchar-veh_wkg,"不能直接定义为char类型,一定要参考数据字典中的类型
END OF it_ytchar,
it_returnvalue LIKE TABLE OF ddshretval WITH HEADER LINE,
l_veh_wkg LIKE ytchar-veh_wkg.
PARAMETERS p_wkg LIKE ytchar-veh_wkg.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_wkg.
SELECT SINGLE vpower
INTO l_veh_wkg
FROM ytchar
WHERE matnr = 'E055'.
SPLIT l_veh_wkg AT '/' INTO TABLE it_ytchar.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'VEH' "任意的,不能为空
dynpprog = sy-repid
value_org = 'S'
TABLES
value_tab = it_ytchar
return_tab = it_returnvalue
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
*& 返回选中的值
READ TABLE it_returnvalue INDEX 1.
IF sy-subrc = 0.
p_wkg = it_returnvalue-fieldval.
ENDIF.
START-OF-SELECTION.
LOOP AT it_ytchar.
WRITE:/ it_ytchar-value.
ENDLOOP.