SAP CDS+AMDP获取订单状态文本（替代函数STATUS_TEXT_EDIT）

背景：

客户反映某本报表运行效率极慢，需要进行优化，简单看了代码并且使用SAT分析后，定位了两个主要的问题，最主要的问题是合计数量的时候在LOOP循环中使用了SELECT SUM(*) FROM internal_table，而且还有很多个，导致当LOOP的本地内表条目比较大的时候，效率将会受到非常大的影响；其次是在循环中调用函数STATUS_TEXT_EDIT来获取订单文本，这个其实影响不算很大，但为了最大化提升效率，针对这点也做了优化。

优化前：time out dump。

优化后：10秒运行完成。

---

问题点1：

最大的元凶就是下面这段代码，LOOP中多个聚合函数导致随着数据量的增加，效率会异常低下。

解决方式：

sort table + collect 

---

问题点2：

循环中调用函数获取订单状态文本，对性能影响较小，不过本着能优则优的心态，顺手也对其进行了优化。

解决方式： 

table function + cds view 

1.首先定义table function：ZPRPP_ORDER_STATUS_TF

@ClientDependent: false
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'Table function for get PP order status'
define table function ZPRPP_ORDER_STATUS_TF
returns
{
  objnr          :j_objnr;
  status_profile :j_stsma;
  @EndUserText.label: 'System status'
  system_status  :char60;
}
implemented by method
  zprcl_st_text=>get_status_text;

2.然后创建实现类： zprcl_st_text

CLASS zprcl_st_text DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.
    INTERFACES if_amdp_marker_hdb.


    CLASS-METHODS get_status_text FOR TABLE FUNCTION zprpp_order_status_tf.
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS zprcl_st_text IMPLEMENTATION.
  METHOD get_status_text BY DATABASE FUNCTION
                               FOR HDB
                               LANGUAGE SQLSCRIPT
                               OPTIONS READ-ONLY
                               USING jest jsto tj02t tj02 tj04.

    declare lv_99 "$ABAP.type( numc2 )";

    lv_99 = 99;

    gt_status = select distinct
                       a.objnr,
                       b.stsma as status_profile,
                       d.txt04 as system_status,
                       E.nodis as no_display,

                       CASE
                         when f.linep is not null or f.linep <> 00 then
                           f.linep
                         else
                           lv_99
                       end as position,

                       CASE
                         when f.statp is not null or f.statp <> 00 then
                           f.statp
                         else
                           lv_99
                       end as priority

                  from jest as a
                 inner join jsto as b
                    on b.objnr = a.objnr
                  left outer join tj02t as d
                    on d.istat = a.stat
                 inner join tj02 as e on e.istat = a.stat
                  left outer join tj04 as f
                    on f.obtyp = b.obtyp
                   and f.istat = a.stat
                 where a.inact <> 'X'
                   and e.nodis <> 'X'
                   and a.mandt = session_context('CLIENT')
                   and b.mandt = session_context('CLIENT')
                   and d.spras = session_context('LOCALE_SAP')
                         order by POSITION desc,
                         priority desc,
                         system_status desc;

    RETURN SELECT objnr,
                  status_profile,
                  STRING_AGG( system_status, char( 32 ) ORDER BY position asc, priority asc, system_status asc ) as system_status
             FROM :gt_status
             GROUP BY objnr, status_profile;
  ENDMETHOD.
ENDCLASS.

3.最后创建cds view:

@AbapCatalog.sqlViewName: 'ZPRPPORDSTTXT'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #CHECK
@EndUserText.label: 'CDS View for get PP order status text'
define view ZPRPP_ORDER_STATUS_V
  as select from ZPRPP_ORDER_STATUS_TF
{
  key objnr,
      status_profile,
      @EndUserText.label: 'System status'
      cast(system_status as abap.char(60)) as system_status
}

 4.在循环外直接根据AFKO-OBJNR关联该cds对应的sql view，一条sql即可获取订单状态。

---

注意点：

AMDP用的并不是特别熟练，有几个小的知识点也记录一下，方便我后续查找吧。

变量声明：

        declare lv_99 "$ABAP.type( numc2 )";

系统变量：

• session_context('CLIENT')  等同于 SY-MANDT
• session_context('APPLICATIONUSER')  等同于 SY-UNAME
• session_context('LOCALE_SAP') 等同于 SY-LANGU
• session_context('SAP_SYSTEM_DATE') 等同于 SY-DATUM

空格：

        char( 32 )  代表空格

空格问题参考链接：The ABAPVARCHARMODE: Blanks and Empty Strings in ABAP and SQLScript (brandeis.de)

排序拼接： 

        基于函数STATUS_TEXT_EDIT的输出规则，在行转列拼接时要按照指定的顺序拼接展示，在string_agg方法中使用order by即可指定拼接顺序，asc为升序，desc为降序。

---

总结：

尽可能的避免在循环中多次出现数据库操作语句，程序性能优化是一个慢慢积累的过程，能跑出来结果永远是最低标准。

以上。