DeepSeek 针对 ABAP 的代码生成与自动补全能力分析

本文我们让 deepseek 针对 abap 这门编程语言，进行代码生成和代码评审，然后通过人工复核的方式，品评 deepseek 在 abap 这个领域的代码能力究竟如何。

问题1：使用 ABAP 编写一个冒泡排序算法

DeepSeek 打印的思考过程，成功地选择了从最简单的整型内表元素排序开始：

DeepSeek 花费了237秒给出答案：

看看 DeepSeek 生成的代码质量咋样：

第12行代码就遇到语法错误。

DeepSeek 使用了 ABAP 740 的精简语法来初始化内表 lt_numbers,

正确的语法，应该是整型元素和圆括号之间，有一个空格符号，如下图所示：

除了这个错误之外，代码的质量还是很高的，执行之后能得到正确结果：

REPORT z.DATA: lt_numbers TYPE TABLE OF i,      lv_size    TYPE i,      lv_i       TYPE i,      lv_j       TYPE i,      lv_temp1   TYPE i,      lv_temp2   TYPE i,      lv_swapped TYPE abap_bool.
" 初始化测试数据lt_numbers = VALUE #( ( 1 ) ( 2 ) ( 9 ) ( 10 ) ( 5 ) ( 6 ) ).
lv_size = lines( lt_numbers ).
" 冒泡排序实现lv_i = 1.WHILE lv_i < lv_size.lv_swapped = abap_false.lv_j = 1.WHILE lv_j < lv_size - lv_i + 1.READ TABLE lt_numbers INTO lv_temp1 INDEX lv_j.READ TABLE lt_numbers INTO lv_temp2 INDEX lv_j + 1.IF lv_temp1 > lv_temp2.MODIFY lt_numbers FROM lv_temp2 INDEX lv_j.MODIFY lt_numbers FROM lv_temp1 INDEX lv_j + 1.lv_swapped = abap_true.ENDIF.lv_j = lv_j + 1.ENDWHILE.
" 如果本轮无交换，提前结束排序IF lv_swapped = abap_false.EXIT.ENDIF.lv_i = lv_i + 1.ENDWHILE.
" 输出排序结果cl_demo_output=>display( lt_numbers ).

问题2：审查代码的性能问题

我手写了一段 ABAP 代码，打印系统前100个产品主数据对应的描述信息。

REPORT z.DATA: lt_prod     TYPE TABLE OF comm_product,lv_prodtext TYPE comm_prshtext-short_text.
SELECT product_guid product_id INTO CORRESPONDING FIELDS OF TABLE lt_prodFROM comm_product UP TO 100 ROWS where upname = sy-uname.
LOOP AT lt_prod ASSIGNING FIELD-SYMBOL().SELECT SINGLE short_text INTO lv_prodtext FROM comm_prshtextWHERE langu = sy-langu AND product_guid = -product_guid.IF sy-subrc = 0.WRITE:/ -product_id, ':', lv_prodtext.ENDIF.ENDLOOP.

给 DeepSeek 发出指令：

DeepSeek 花费了42秒思考：

DeepSeek 给出的三个值得优化的性能点，全部回答正确：

N+1查询问题：在LOOP中执行SELECT SINGLE会导致多次数据库访问（最多100次）。当循环次数多时，会产生大量短时数据库请求，显著增加网络开销和数据库负载。

未使用批量读取：未利用ABAP的FOR ALL ENTRIES或JOIN实现批量数据读取，导致低效的单条记录查询。

冗余数据传输：SELECT...INTO CORRESPONDING FIELDS可能存在不必要的字段传输，但此处影响较小。

DeepSeek 优化之后的代码：

REPORT z.DATA: lt_prod  TYPE TABLE OF comm_product,lt_text  TYPE TABLE OF comm_prshtext, " 新增批量存储文本的表lv_prodtext TYPE comm_prshtext-short_text.
" 获取产品基础数据（保持原有逻辑）SELECT product_guid, product_idINTO CORRESPONDING FIELDS OF TABLE @lt_prodFROM comm_productUP TO 100 ROWSWHERE upname = @sy-uname.
CHECK lt_prod IS NOT INITIAL. " 关键！避免FOR ALL ENTRIES查全表
" 批量获取所有产品的文本描述SELECT product_guid, short_textINTO CORRESPONDING FIELDS OF TABLE @lt_textFROM comm_prshtextFOR ALL ENTRIES IN @lt_prodWHERE product_guid = @lt_prod-product_guidAND langu = @sy-langu.
" 使用高效READ访问数据LOOP AT lt_prod ASSIGNING FIELD-SYMBOL().READ TABLE lt_text ASSIGNING FIELD-SYMBOL()WITH KEY product_guid = -product_guid BINARY SEARCH.IF sy-subrc = 0.WRITE:/ -product_id, ':', -short_text.ENDIF.ENDLOOP.

从这两个例子能看出，DeepSeek 在处理 ABAP 这种相较 Java 和 Python 比较小众的编程语言，仍然准确率非常高，可以作为各个水平 ABAP 编程人员的个人助理。