VALUE_REQUEST

最新推荐文章于 2024-06-26 22:34:21 发布

原创最新推荐文章于 2024-06-26 22:34:21 发布 · 551 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#table

abap 专栏收录该内容

130 篇文章

订阅专栏

本文介绍了一种使用ABAP编程语言处理特定数据类型的技巧，通过定义并操作数据元素，实现从数据库中选择数据，并进行字符串分割及值请求处理等功能。

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.