ABAP中DELETE内表的若干方法性能分析

1、测试案例

DATA: lv_flag TYPE flag,
lv_sta_time TYPE timestampl,
lv_end_time TYPE timestampl,
lv_diff_w TYPE p DECIMALS 5,
lv_diff_f LIKE lv_diff_w,
lv_save LIKE lv_diff_w.
TYPES:
BEGIN OF ty_header,
vbeln TYPE char10,
field1 TYPE char50,
END OF ty_header.
TYPES: tt_header TYPE STANDARD TABLE OF ty_header.
TYPES:
BEGIN OF ty_item,
vbeln TYPE char10,
posnr TYPE char6,
field2 TYPE char50,
END OF ty_item.
TYPES: tt_item TYPE STANDARD TABLE OF ty_item.
TYPES: tt_item2 TYPE SORTED TABLE OF ty_item WITH UNIQUE KEY vbeln posnr.
TYPES: tt_item3 TYPE SORTED TABLE OF ty_item
WITH UNIQUE KEY vbeln posnr
WITH NON-UNIQUE SORTED KEY key2nd COMPONENTS field2.
DATA: t_header TYPE tt_header,
t_item TYPE tt_item,
t_item2 TYPE tt_item2,
t_item3 TYPE tt_item3.
PARAMETERS: p_num TYPE i DEFAULT 1000.
START-OF-SELECTION.
DATA: ls_header LIKE LINE OF t_header,
ls_item LIKE LINE OF t_item.
DO p_num TIMES.
ls_header-vbeln = sy-index.
ls_header-field1 = sy-abcde.
APPEND ls_header TO t_header.
DO 10 TIMES.
ls_item-vbeln = ls_header-vbeln.
ls_item-posnr = sy-index.
APPEND ls_item TO t_item.
ENDDO.
ENDDO.
t_item2[] = t_item[].
t_item3[] = t_item[].
*-->DELETE WHERE
DATA: lv_mod_3 TYPE i.
GET TIME STAMP FIELD lv_sta_time.
SORT t_item BY vbeln.
LOOP AT t_header INTO ls_header.
lv_mod_3 = sy-tabix MOD 3.
IF lv_mod_3 IS INITIAL.
DELETE t_item WHERE vbeln = ls_header-vbeln.
ENDIF.
ENDLOOP.
GET TIME STAMP FIELD lv_end_time.
lv_diff_w = lv_end_time - lv_sta_time.
WRITE: /(30) 'DELETE WHERE', lv_diff_w.
*-->DELETE Parallel
CLEAR:lv_mod_3.
GET TIME STAMP FIELD lv_sta_time.
SORT t_item BY vbeln.
LOOP AT t_header INTO ls_header.
lv_mod_3 = sy-tabix MOD 3.
IF lv_mod_3 IS INITIAL.
READ TABLE t_item TRANSPORTING NO FIELDS WITH KEY vbeln = ls_header-vbeln BINARY SEARCH.
IF sy-subrc EQ 0.
LOOP AT t_item INTO ls_item FROM sy-tabix.
IF ls_item-vbeln NE ls_header-vbeln.
EXIT.
ENDIF.
DELETE t_item INDEX sy-tabix.
ENDLOOP.
ENDIF.
ENDIF.
ENDLOOP.
GET TIME STAMP FIELD lv_end_time.
lv_diff_w = lv_end_time - lv_sta_time.
WRITE: /(30) 'DELETE Parallel', lv_diff_w.
*-->DELETE UNIQUE SORTED KEY
CLEAR:lv_mod_3.
GET TIME STAMP FIELD lv_sta_time.
LOOP AT t_header INTO ls_header.
lv_mod_3 = sy-tabix MOD 3.
IF lv_mod_3 IS INITIAL.
DELETE t_item2 WHERE vbeln = ls_header-vbeln.
ENDIF.
ENDLOOP.
GET TIME STAMP FIELD lv_end_time.
lv_diff_w = lv_end_time - lv_sta_time.
WRITE: /(30) 'DELETE UNIQUE SORTED KEY', lv_diff_w.
*-->DELETE NON-UNIQUE SORTED KEY
CLEAR:lv_mod_3.
GET TIME STAMP FIELD lv_sta_time.
LOOP AT t_header INTO ls_header.
lv_mod_3 = sy-tabix MOD 3.
IF lv_mod_3 IS INITIAL.
DELETE t_item3 USING KEY key2nd WHERE field2 = ls_header-vbeln.
ENDIF.
ENDLOOP.
GET TIME STAMP FIELD lv_end_time.
lv_diff_w = lv_end_time - lv_sta_time.
WRITE: /(30) 'DELETE NON-UNIQUE SORTED KEY', lv_diff_w.

复制代码

2、测试结果：

还是第二中效率最高，第一种传统的写法，懒人多采用第一种

，如果内表数据太多，直接delete效率会差很多

感谢分享

谢谢分享，学习中

[性能] ABAP中DELETE内表的若干方法性能分析

相关帖子

Ta最近发表

快速回帖