How to do REDUCE calculation in AMDP method?

Question

how can we achieve REDUCE like the below logic inside an AMDP method.

lv_total = reduce tslxx9( init x type tslxx9 for lwa_out in lt_out
                              where ( companycode     = <lf_wa>-bukrs and
                                      ryear           = <lf_wa>-year  and
                                      currency        = <lf_wa>-currency
                                    )
                                      next x = x + lwa_out-amount ).

Answer 1

The direct translation to SQLScript would be to perform a SELECT on a local table variable with a GROUP BY clause and the SUM aggregation function. Something like this:

  METHOD sum_amdp BY DATABASE PROCEDURE FOR HDB LANGUAGE SQLSCRIPT.
     lv_total = SELECT SUM( amount )
       FROM :it_out
       WHERE companycode = :lf_wa.bukrs
         AND ryear = :lf_wa.year
         AND currency = :lf_wa.currency
       GROUP BY companycode, ryear, currency;
  ENDMETHOD.

This method is of course rather pointless to implement in AMDP because it doesn't even access the database. But it demonstrates how SQLScript is able to perform complex SQL statements on variables. Which only makes sense in the context of a larger SQLScript method which either does this to process data from a database query it just performed or to prepare data for a database query it is going to perform.