Детально REDUCE описан в справке, но в этой статье я хотел бы подчеркнуть одну тонкость, связанную с ним, которая позволит избежать неточностей при работе с этим оператором и сэкономить время на возможную отладку.

Что такое REDUCE?

Это оператор, который позволяет применять функцию для вычисления какого-либо агрегирующего значения массива с использованием аргумента-аккумулятора. Можно сказать, что это какой-либо «подытог» из таблицы или массива данных; явного перевода на русский язык этого термина нет (можно сказать, что это заимствованное слово), но близким переводом можно считать подытожная функция (слово «функция» важно).

Частым примером для использования REDUCE является вычисление суммы в таблице. Давайте рассмотрим демо-задачу.

Демо-задача для подсчета промежуточных итогов

Задача: посчитать сумму по позициям заказа. Исходная структура: продукт, сумма, валюта.

Давайте рассмотрим несколько вариантов решений на ABAP/4.

Решение без оператора REDUCE:

TYPES: BEGIN OF ts_order_line,
             matnr TYPE matnr,
             netwr TYPE netwr,
             waerk TYPE waerk,
           END OF ts_order_line,
           tt_order_line TYPE STANDARD TABLE OF ts_order_line WITH DEFAULT KEY
           .
    DATA lt_order_line TYPE tt_order_line.
    DATA ls_order_line TYPE ts_order_line.

    DATA lv_total_amount TYPE netwr.

    ls_order_line-matnr = 'MATNR_01'.
    ls_order_line-netwr = '100.50'.
    ls_order_line-waerk = 'RUB'.
    APPEND ls_order_line TO lt_order_line.

    ls_order_line-matnr = 'MATNR_02'.
    ls_order_line-netwr = '110.50'.
    ls_order_line-waerk = 'RUB'.
    APPEND ls_order_line TO lt_order_line.

    ls_order_line-matnr = 'MATNR_03'.
    ls_order_line-netwr = '120.50'.
    ls_order_line-waerk = 'RUB'.
    APPEND ls_order_line TO lt_order_line.

    ls_order_line-matnr = 'MATNR_04'.
    ls_order_line-netwr = '130.50'.
    ls_order_line-waerk = 'RUB'.
    APPEND ls_order_line TO lt_order_line.

    CLEAR lv_total_amount.
    LOOP AT lt_order_line INTO ls_order_line.
      lv_total_amount = lv_total_amount + ls_order_line-netwr.
    ENDLOOP.

    BREAK-POINT.

Код-Листинг 1. Сумма в массиве через LOOP (без оператора REDUCE).

Как результат получаем следующее: старый добрый LOOP отработал, пройдя по всем строкам в таблице, и итоговая сумма ушла в переменную LV_TOTAL_AMOUNT (прообраз аргумента-аккумулятора). На экране ниже показано значение в отладчике (Рис.1.).

Рис. 1. Просмотр выполнения в отладчике с результатом.

Теперь давайте решим ту же задачу, но через функцию REDUCE.

С оператором REDUCE – три возможных решения, в том числе и неправильное ????

    TYPES: BEGIN OF ts_order_line,
             matnr TYPE matnr,
             netwr TYPE netwr,
             waerk TYPE waerk,
           END OF ts_order_line,
           tt_order_line TYPE STANDARD TABLE OF ts_order_line WITH DEFAULT KEY
           .
    DATA lt_order_line TYPE tt_order_line.
    DATA lv_total_amount TYPE netwr.

    lt_order_line = VALUE #(
    ( matnr = 'MATNR_01' netwr