ABAP内表是否使用Secondary Keys及排序内表的性能比较

1、标准内表是否BINARY SEARCH读取内表测试案例

1. TYPES:tt_t100 TYPE STANDARD TABLE OF t100.
   
2. *
   
3. DATA: t_t100 TYPE tt_t100.
   
4. DATA: lt_arbgb_range TYPE RANGE OF t100-arbgb.
   
5. DATA: ls_arbgb LIKE LINE OF lt_arbgb_range.
   
6. 
   
7. ls_arbgb = 'IBT'.
   
8. ls_arbgb-low = '00'.
   
9. ls_arbgb-high = '40'.
   
10. APPEND ls_arbgb TO lt_arbgb_range.
    
11. *
    
12. SELECT * FROM t100
    
13.   INTO TABLE t_t100
    
14.   WHERE sprsl IN ('DE','EN')
    
15.   AND   arbgb IN lt_arbgb_range.
    
16. *
    
17. DATA: ls_t100 LIKE LINE OF t_t100.
    
18. DATA: lv_sta_time TYPE timestampl,
    
19.       lv_end_time TYPE timestampl,
    
20.       lv_diff   TYPE p DECIMALS 5.
    
21. *
    
22. *----
    
23. GET TIME STAMP FIELD lv_sta_time.
    
24. READ TABLE t_t100 INTO ls_t100 WITH KEY sprsl = 'EN' text  = 'Specify a program title'.
    
25. GET TIME STAMP FIELD lv_end_time.
    
26. lv_diff  = lv_end_time - lv_sta_time.
    
27. WRITE: /(60) 'Std Table - No binary search - Existent entry', lv_diff.
    
28. *
    
29. *----
    
30. GET TIME STAMP FIELD lv_sta_time.
    
31. READ TABLE t_t100 INTO ls_t100 WITH KEY sprsl = 'EN' text  = 'XXX'.
    
32. GET TIME STAMP FIELD lv_end_time.
    
33. lv_diff  = lv_end_time - lv_sta_time.
    
34. WRITE: /(60) 'Std Table - No binary search - Nonexistent entry ', lv_diff.
    
35. *
    
36. *------
    
37. GET TIME STAMP FIELD lv_sta_time.
    
38. SORT t_t100 BY sprsl text.
    
39. READ TABLE t_t100 INTO ls_t100 WITH KEY sprsl = 'EN' text  = 'Specify a program title' BINARY SEARCH.
    
40. GET TIME STAMP FIELD lv_end_time.
    
41. lv_diff  = lv_end_time - lv_sta_time.
    
42. WRITE: /(60) 'Std table - Binary Search - Existent Entry', lv_diff.
    
43. *
    
44. *------
    
45. GET TIME STAMP FIELD lv_sta_time.
    
46. READ TABLE t_t100 INTO ls_t100 WITH KEY sprsl = 'EN' text  = 'Specify a program title' BINARY SEARCH.
    
47. GET TIME STAMP FIELD lv_end_time.
    
48. lv_diff  = lv_end_time - lv_sta_time.
    
49. WRITE: /(60) 'Std table - Binary Search - Existent Entry', lv_diff.

复制代码

测试结果：

1. Std Table - No binary search - Existent entry                         0.00200
   
2. Std Table - No binary search - Nonexistent entry                      0.00300
   
3. Std table - Binary Search - Existent Entry                            0.04300
   
4. Std table - Binary Search - Existent Entry                            0.00100

复制代码

2、内表是否使用Secondary Keys测试案例

1. TYPES:tt_t100 TYPE STANDARD TABLE OF t100
   
2.               WITH KEY sprsl arbgb msgnr
   
3.               WITH NON-UNIQUE SORTED KEY lang_text  COMPONENTS sprsl text.
   
4. 
   
5. DATA: t_t100 TYPE tt_t100.
   
6. DATA: lt_arbgb_range TYPE RANGE OF t100-arbgb.
   
7. DATA: ls_arbgb LIKE LINE OF lt_arbgb_range.
   
8. 
   
9. ls_arbgb = 'IBT'.
   
10. ls_arbgb-low = '00'.
    
11. ls_arbgb-high = '40'.
    
12. APPEND ls_arbgb TO lt_arbgb_range.
    
13. *
    
14. SELECT * FROM t100 INTO TABLE t_t100 WHERE sprsl IN ('DE','EN') AND arbgb IN lt_arbgb_range.
    
15. DATA: ls_t100 LIKE LINE OF t_t100.
    
16. DATA: lv_sta_time TYPE timestampl, lv_end_time TYPE timestampl, lv_diff TYPE p DECIMALS 5.
    
17. *
    
18. *----
    
19. GET TIME STAMP FIELD lv_sta_time.
    
20. READ TABLE t_t100 INTO ls_t100 WITH KEY lang_text COMPONENTS sprsl = 'EN' text = 'Specify a program title'.
    
21. GET TIME STAMP FIELD lv_end_time.
    
22. lv_diff = lv_end_time - lv_sta_time.
    
23. WRITE: /(60) 'Secondary key - Valid Entry - First Pass', lv_diff.
    
24. * *-----
    
25. GET TIME STAMP FIELD lv_sta_time.
    
26. READ TABLE t_t100 INTO ls_t100 WITH KEY lang_text COMPONENTS sprsl = 'EN' text = 'XXX'.
    
27. GET TIME STAMP FIELD lv_end_time.
    
28. lv_diff = lv_end_time - lv_sta_time.
    
29. WRITE: /(60) 'Secondary key - Non Existant Entry', lv_diff.
    
30. * *------
    
31. GET TIME STAMP FIELD lv_sta_time.
    
32. READ TABLE t_t100 INTO ls_t100 WITH KEY lang_text COMPONENTS sprsl = 'EN' text = 'Specify a program title'.
    
33. GET TIME STAMP FIELD lv_end_time.
    
34. lv_diff = lv_end_time - lv_sta_time.
    
35. WRITE: /(60) 'Secondary key - Valid Entry', lv_diff.

复制代码

测试结果：

1. Secondary key - Valid Entry - First Pass                              0.04200
   
2. Secondary key - Non Existant Entry                                    0.00000
   
3. Secondary key - Valid Entry                                           0.00000

复制代码

结论：Secondary Keys内表和排序内表Binary Search性能差不多