ABAP 740从2013年发布至今已经过去很长的时间了,下面这张图来自SAP社区博客:
ABAP News for Release 7.40 – What is ABAP 7.40?
图中的ABAP 8.0, 即现在的SAP Cloud for Customer和Business By Design后台使用的ABAP版本NGAP - Next Generation ABAP Platform,里面存在不少只在8.0版本可用的关键字和语言特性。
因为C4C和BYD的ABAP后台,客户和partners们是无法访问的,所以咱们回到ABAP 740这个版本。从该版本开始,ABAP支持了很多新的关键字和语法特性,“看起来有点不像传统的ABAP编程语言了”。
本文咱们就来看一个具体的例子:ABAP 740里的一个新关键字REDUCE. 这个关键字的作用和在大规模数据集并行计算领域里广泛使用的"Map-Reduce"编程模型中的Reduce操作类似,可以按照字面意思理解为“归约”。
下图是Map Reduce框架的工作步骤,统计一个海量输入数据集(比如大于1TB)中的单词出现次数。作为ABAP开发人员,我们没必要了解Map Reduce框架的每个执行步骤,只需紧盯框架的输入,以及执行结果就行了。
回到Jerry接受的实际工作任务。德国同事让Jerry在某个CRM测试系统上做个统计,列出在数据库表CRM_JSTO里,OBTYP(Object Type)和STSMA(Status Schema)这两列拥有相同值的内表行的个数。大家可以把"OBTYP和STSMA两列具有相同值的内表行"类比成上图中重复出现的单词。
下图是CRM_JSTO的部分行:
下图是Jerry完成的任务: 测试系统上内表一共有55多万行,其中有90279行,只维护了OBTYP为TGP,而没有维护STSMA. 排名第二的是COH和CRMLEAD的组合,出现了78722次。
稍稍做过一些ABAP开发的朋友们,一定会立即写出下面的代码:
利用SELECT COUNT直接在数据库层完成统计工作。这也是SAP推荐的做法,所谓Code pusudown准则,即能放到HANA数据库层面进行的操作,就尽量放进去,以充分利用HANA强大的计算能力。在数据库能够完成计算逻辑的前提下,尽量避免把计算逻辑放到Netweaver ABAP应用层去做。
不过,我们也需要注意到这种方式的局限性。Jerry之前曾经引用过SAP CTO的名言:
- There is no future with ABAP alone
- There is no future in SAP without ABAP
未来的ABAP会走向开放,互联的道路。回到这个需求本身,假设待检索的输入数据不是从ABAP数据库表中来,而是来自HTTP请求,或者第三方系统发过来的IDOC,此时我们无法再使用OPEN SQL本身的SELECT COUNT操作,而只能在ABAP应用层解决这个问题。
所谓技多不压身,Jerry这里介绍两种用ABAP完成这个需求的方式。
第一种方式比较传统,实现在方法get_result_traditional_way里:
ABAP的LOOP AT GROUP BY这个关键字组合简直就像是为这个需求量身定做一般:给GROUP BY指定obtyp和stsma这两列,然后LOOP AT会自动将输入内表的行记录根据这两列的值进行分组,每组行记录的个数通过关键字GROUP SIZE自动计算出来,每组各自的obtyp和stsma的值,以及组内行记录的条目数,存储在REFERENCE INTO指定的变量group_ref里。ABAP顾问需要做的事情,只是简单地把这些结果存储到输出内表即可。
第二种办法,就是本文标题所述,使用ABAP 740新的REDUCE关键字:
上面的代码乍一看可能觉得有点晦涩,但仔细阅读后发现这种方式本质上也采用了和方法一LOOP AT GROUP BY同样的分组策略——根据obtyp和stsma分组,这些子组通过变量
总结和比较一下这三种实现方式:当待统计的数据源为ABAP数据库表时,一定优先选用OPEN SQL的方式,使计算逻辑在数据库层完成,以获得最佳的性能。
当数据源并非ABAP数据库表,而分组统计的需求为简单的计数操作(COUNT)时, 优先用LOOP AT ... GROUP BY ... GROUP SIZE,使得计数操作通过GROUP SIZE在ABAP kernel完成,以获得较好的性能。
当数据源并非ABAP数据库表,而分组统计的需求为自定义的逻辑时,用本文介绍的第三种REDUCE解法,将自定义统计逻辑写在第11行的NEXT关键字后。
这三种解法的性能依次递减,不过适用的场合和灵活程度依次递增。
LOOP AT ... GROUP BY ... GROUP SIZE,在Jerry的服务器上处理55万条记录,用了0.3秒,而REDUCE则需花费0.8秒。
本文提到的所有ABAP代码均可从我的SAP博客获得:
A real case to use REDUCE to finish a task in daily work
感谢阅读。
要获取更多Jerry的原创文章,请关注公众号"汪子熙":