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

原创

编程扫地僧

发布于 2025-02-07 21:47:40

4611

文章被收录于专栏：人工智能人工智能后端开发

本文我们让 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 - 1.
  lv_swapped = abap_false.
  lv_j = 1.
  WHILE lv_j <= lv_size - lv_i.
     读取相邻元素
    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(<prod>).
  SELECT SINGLE short_text INTO lv_prodtext FROM comm_prshtext
      WHERE langu = sy-langu AND product_guid = <prod>-product_guid.
  IF sy-subrc = 0.
    WRITE:/ <prod>-product_id, ':', lv_prodtext.
  ENDIF.
ENDLOOP.

给 DeepSeek 发出指令：

请你扮演一个资深的 ABAP 技术专家，请你分析下面 ABAP 代码存在的性能问题，并给出解决方案。

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(<prod>).
  READ TABLE lt_text ASSIGNING FIELD-SYMBOL(<text>)
    WITH KEY product_guid = <prod>-product_guid BINARY SEARCH.
  IF sy-subrc = 0.
    WRITE:/ <prod>-product_id, ':', <text>-short_text.
  ENDIF.
ENDLOOP.

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

原创声明：本文系作者授权腾讯云开发者社区发表，未经许可，不得转载。

如有侵权，请联系 cloudcommunity@tencent.com 删除。

abap