本文我们让 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_prod FROM 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_prshtext WHERE 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_id INTO CORRESPONDING FIELDS OF TABLE @lt_prod FROM comm_product UP TO 100 ROWS WHERE upname = @sy-uname.
CHECK lt_prod IS NOT INITIAL. " 关键！避免FOR ALL ENTRIES查全表
" 批量获取所有产品的文本描述 SELECT product_guid, short_text INTO CORRESPONDING FIELDS OF TABLE @lt_text FROM comm_prshtext FOR ALL ENTRIES IN @lt_prod WHERE product_guid = @lt_prod-product_guid AND 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 编程人员的个人助理。
