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

本文主要是介绍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 methodzprcl_st_text=>get_status_text;

2.然后创建实现类： zprcl_st_text

CLASS zprcl_st_text DEFINITIONPUBLICFINALCREATE 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 FUNCTIONFOR HDBLANGUAGE SQLSCRIPTOPTIONS READ-ONLYUSING jest jsto tj02t tj02 tj04.declare lv_99 "$ABAP.type( numc2 )";lv_99 = 99;gt_status = select distincta.objnr,b.stsma as status_profile,d.txt04 as system_status,E.nodis as no_display,CASEwhen f.linep is not null or f.linep <> 00 thenf.linepelselv_99end as position,CASEwhen f.statp is not null or f.statp <> 00 thenf.statpelselv_99end as priorityfrom jest as ainner join jsto as bon b.objnr = a.objnrleft outer join tj02t as don d.istat = a.statinner join tj02 as e on e.istat = a.statleft outer join tj04 as fon f.obtyp = b.obtypand f.istat = a.statwhere 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_statusFROM :gt_statusGROUP 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_Vas 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为降序。

---

总结：

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

以上。

这篇关于SAP CDS+AMDP获取订单状态文本（替代函数STATUS_TEXT_EDIT）的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---