matinal：SAP ABAP 7.40及以上新语法REDUCE 运算符

最新推荐文章于 2025-10-27 10:48:04 发布

原创最新推荐文章于 2025-10-27 10:48:04 发布 · 563 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#1024程序员节 #java #数据库 #开发语言 #运维

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

本文介绍了ABAP中的REDUCE函数在两个案例中的使用，包括计算数据表中特定列的累加值以及创建输出文本。第一个案例展示了如何对数据进行累加，第二个案例则演示了REDUCEOUTREF用于生成动态输出。

*定义

… REDUCE type(
INIT result = start_value
           …
    FOR for_exp1
    FOR for_exp2
           …
    NEXT …
         result = iterated_value
    … )
 *案例1
 TYPES: BEGIN OF TY_LINE,
         COL1 TYPE I,
       END OF TY_LINE,
       TY_TAB TYPE STANDARD TABLE OF TY_LINE WITH EMPTY KEY.
 
DATA(GT_ITAB) = VALUE TY_TAB( FOR J = 1 THEN J + 1 UNTIL J > 10
                              ( COL1 = J  )
                            ).
 
DATA(LV_SUM) = REDUCE I( INIT X = 0 FOR LS_ITAB IN GT_ITAB NEXT X = X + LS_ITAB-COL1 ).
CL_DEMO_OUTPUT=>DISPLAY( LV_SUM ).
*案例2
YPES OUTREF TYPE REF TO IF_DEMO_OUTPUT.
 
DATA(OUTPUT) = REDUCE OUTREF( INIT OUT  = CL_DEMO_OUTPUT=>NEW( )
                                   TEXT = `Count up:`
                              FOR N = 1 THEN N + 2 UNTIL N > 11
                              NEXT OUT  = OUT->WRITE( TEXT )
                                   TEXT = |{ N }| ).
 
OUTPUT->DISPLAY( ).