ABAP中FM / Method复制内表数据对性能的影响

有时我们在主程序中会传递内表数据到FM / Method中，进行数据的处理，然后再将处理结果返回，这种场景中就涉及到内表的复制，如果大量多次调用FM / Method，就会对性能造成极大的影响，下面我们看一个测试案例。

一、主程序

1. DATA: lt_edidd TYPE STANDARD TABLE OF edid4.
   
2. DATA: lwa_edidd LIKE LINE OF lt_edidd.
   
3. 
   
4. DATA: lv_sta_time TYPE timestampl,
   
5.       lv_end_time TYPE timestampl,
   
6.       lv_diff_w   TYPE p DECIMALS 5,
   
7.       lv_diff_f   LIKE lv_diff_w,
   
8.       lv_save     LIKE lv_diff_w.
   
9. 
   
10. DATA: l_times TYPE i.
    
11. 
    
12. START-OF-SELECTION.
    
13. 
    
14.   l_times = 10000.
    
15. 
    
16. * Table copy with []
    
17.   GET TIME STAMP FIELD lv_sta_time.
    
18.   DO l_times TIMES.
    
19.     lwa_edidd-sdata = '1'.
    
20.     APPEND lwa_edidd TO lt_edidd.
    
21. 
    
22.     CALL FUNCTION 'ZTEST_NP_DATA_SET'
    
23.       EXPORTING
    
24.         it_edidd = lt_edidd.
    
25. 
    
26.     CALL FUNCTION 'ZTEST_NP_DATA_GET'
    
27.       IMPORTING
    
28.         et_edidd = lt_edidd.
    
29.   ENDDO.
    
30.   GET TIME STAMP FIELD lv_end_time.
    
31.   lv_diff_w = lv_end_time - lv_sta_time.
    
32.   WRITE: /(30) 'Itab Copy', lv_diff_w.
    
33. 
    
34. * table passed with reference
    
35.   CLEAR lt_edidd.
    
36.   DATA: lo_data TYPE REF TO data.
    
37.   GET TIME STAMP FIELD lv_sta_time.
    
38.   DO l_times TIMES.
    
39.     lwa_edidd-sdata = '1'.
    
40.     APPEND lwa_edidd TO lt_edidd.
    
41. 
    
42.     GET REFERENCE OF lt_edidd INTO lo_data.
    
43. 
    
44.     CALL FUNCTION 'ZTEST_NP_DATA_SET_1'
    
45.       EXPORTING
    
46.         io_edidd = lo_data.
    
47. 
    
48.     CALL FUNCTION 'ZTEST_NP_DATA_GET_1'
    
49.       IMPORTING
    
50.         eo_edidd = lo_data.
    
51. 
    
52.   ENDDO.
    
53.   GET TIME STAMP FIELD lv_end_time.
    
54.   lv_diff_f = lv_end_time - lv_sta_time.
    
55.   WRITE: /(30) 'Itab Copy with Reference', lv_diff_f.

复制代码

二、新建一个函数组，再新建如下4个FM
函数组全局数据

1. DATA:t_edidd TYPE tab_edidd.
   
2. DATA:o_edidd TYPE REF TO data.

复制代码

1、ZTEST_NP_DATA_SET

1. FUNCTION ztest_np_data_set.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     REFERENCE(IT_EDIDD) TYPE  TAB_EDIDD
   
6. *"----------------------------------------------------------------------
   
7. 
   
8.   t_edidd[] = it_edidd[].
   
9. 
   
10.   DATA: lwa_edidd LIKE LINE OF t_edidd.
    
11.   IF lines( t_edidd ) = 500.
    
12.     APPEND lwa_edidd TO t_edidd.
    
13.   ENDIF.
    
14. 
    
15. ENDFUNCTION.

复制代码

2、ZTEST_NP_DATA_GET

1. FUNCTION ZTEST_NP_DATA_GET.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  EXPORTING
   
5. *"     REFERENCE(ET_EDIDD) TYPE  TAB_EDIDD
   
6. *"----------------------------------------------------------------------
   
7. 
   
8. et_edidd = t_edidd.
   
9. 
   
10. ENDFUNCTION.

复制代码

3、ZTEST_NP_DATA_SET_1

1. FUNCTION ztest_np_data_set_1.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  IMPORTING
   
5. *"     REFERENCE(IO_EDIDD) TYPE REF TO  DATA
   
6. *"----------------------------------------------------------------------
   
7. 
   
8.   o_edidd = io_edidd.
   
9. 
   
10.   FIELD-SYMBOLS: <lt_edidd> TYPE tab_edidd.
    
11. 
    
12.   ASSIGN o_edidd->* TO <lt_edidd>.
    
13.   DATA: lwa_edidd LIKE LINE OF <lt_edidd>.
    
14. 
    
15.   IF lines( <lt_edidd> ) = 500.
    
16.     APPEND lwa_edidd TO <lt_edidd>.
    
17.   ENDIF.
    
18. 
    
19. ENDFUNCTION.

复制代码

4、ZTEST_NP_DATA_GET_1

1. FUNCTION ztest_np_data_get_1.
   
2. *"----------------------------------------------------------------------
   
3. *"*"本地接口：
   
4. *"  EXPORTING
   
5. *"     REFERENCE(EO_EDIDD) TYPE REF TO  DATA
   
6. *"----------------------------------------------------------------------
   
7. 
   
8.   eo_edidd = o_edidd.
   
9. 
   
10. ENDFUNCTION.

复制代码

三、测试结果

测试结果明显，除了使用TYPE REF TO提高性能外，我们还可以通过tables是一次传递多条数据，避免这种FM / Method的多次调用，因数据多次复制而浪费的性能。