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

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.
<p>" 初始化测试数据
lt_numbers = VALUE #( ( 1 ) ( 2 ) ( 9 ) ( 10 ) ( 5 ) ( 6 ) ).</p><p>lv_size = lines( lt_numbers ).</p><p>" 冒泡排序实现
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.</p><p>" 如果本轮无交换，提前结束排序
IF lv_swapped = abap_false.
EXIT.
ENDIF.
lv_i = lv_i + 1.
ENDWHILE.</p><p>" 输出排序结果
cl_demo_output=>display( lt_numbers ).

REPORT z.
DATA: lt_prod     TYPE TABLE OF comm_product,
lv_prodtext TYPE comm_prshtext-short_text.</p><p>SELECT product_guid product_id INTO CORRESPONDING FIELDS OF TABLE lt_prod
FROM comm_product UP TO 100 ROWS where upname = sy-uname.</p><p>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.

REPORT z.
DATA: lt_prod  TYPE TABLE OF comm_product,
lt_text  TYPE TABLE OF comm_prshtext, " 新增批量存储文本的表
lv_prodtext TYPE comm_prshtext-short_text.</p><p>" 获取产品基础数据（保持原有逻辑）
SELECT product_guid, product_id
INTO CORRESPONDING FIELDS OF TABLE @lt_prod
FROM comm_product
UP TO 100 ROWS
WHERE upname = @sy-uname.</p><p>CHECK lt_prod IS NOT INITIAL. " 关键！避免FOR ALL ENTRIES查全表</p><p>" 批量获取所有产品的文本描述
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.</p><p>" 使用高效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.