matinal：SAP ABAP 7.40及以上新语法REDUCE的用法

matinal

发布于 2023-10-14 15:47:59

2730

发布于 2023-10-14 15:47:59

文章被收录于专栏：SAP Technical

REDUCE 循环迭代构造数据，可以计算下列几种数据

1.统计表中符合要求的数据有多少行

2.循环累加计算总金额

3.循环拼接字符串

具体代码如下

""""准备测试数据
DATA lv_numb TYPE i .
SELECT  ryear  ,racct     , rbukrs   , tslvt    ,
        tsl01  ,tsl02     , tsl03    , tsl04    ,
        tsl05  ,tsl06     , tsl07    , tsl08    ,
        tsl09  ,tsl10     , tsl11    , tsl12    ,
        tsl13  ,tsl14     , tsl15    , tsl16
  FROM  faglflext
  WHERE rbukrs = '1000'
  AND   ryear  = '2020'
  AND   racct  = '8035000001'
  INTO TABLE @DATA(lt_fag)
  UP TO 10 ROWS.
IF lt_fag[] IS INITIAL. "
  DO 10 TIMES.
    APPEND INITIAL LINE TO lt_fag ASSIGNING FIELD-SYMBOL(<fs_fag>) .
    DO 20 TIMES.
      ASSIGN COMPONENT sy-index OF STRUCTURE <fs_fag> TO FIELD-SYMBOL(<fs_viue>) .
      CASE sy-index.
        WHEN 1.
          <fs_viue> = '2020'.
        WHEN 2.
          <fs_viue> = '8035000001'.
        WHEN 3.
          <fs_viue> = '1000'.
        WHEN 4.
          <fs_viue> = '0'.
        WHEN OTHERS.
          <fs_viue> = <fs_viue> + lv_numb .
      ENDCASE.
      lv_numb = lv_numb + 1 .
    ENDDO.
  ENDDO.
ENDIF.
""统计表中符合要求的数据有多少行
DATA(lv_lines) = REDUCE i( INIT x = 0 FOR wa1 IN lt_fag WHERE ( rbukrs = '1000' ) NEXT x = x + 1 ).
""循环累加计算总金额
DATA(lv_sum) = REDUCE wertv12( INIT x = 0 FOR wa2 IN lt_fag NEXT x = x + wa2-tslvt + wa2-tsl01 + wa2-tsl02  ).
""循环拼接字符串
DATA(lv_string) = REDUCE string( INIT  tex = `递增数据：` FOR n = 1 THEN N + 1 UNTIL n > 9 NEXT tex = tex && n   ).

REDUCE语句只能计算一个数值，类型是紧跟着REDUCE的类型，可以用基本数据类型和数据元素定义，INIT后面接变量，初始化数据，for接循环数据,可以循环表，也可以累计循环，循环表就如同正常了loop循环一样，循环每一行存储到工作区，然后做计算，累计循环用for做控制数据，then做每循环一次做的修改，until作为跳出循环的条件，next作为没循环一次需要做的计算。

本文参与腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。

原始发表：2023-10-11，如有侵权请联系 cloudcommunity@tencent.com 删除

abap