性能优化实践：

1. 声明内表

TYPES : Begin of fs_XX,

F1(4) type c,

F2(2) type n,

F3(2) type c,

End of fs_xx.

DATA : it_XX type standard/sorted/hashed table of fs_XX,

Wa_XX like line of it_XX.

用完了记得清理，包括释放空间。

Refresh it_xx.

Free it_xx.

2. 删除内表记录

如果一项删除如下

Loop at source_package assigning .

If -F1 = ‘X’.

Delete source_package.

Endif.

Endloop.

很明显，这个删除是针对整个内表操作的，不妨写成如下形式

Delete source_package where F1 = ‘X’.

有些时候，可能条件是多个，那么可以采用如下形式：

DATA : TEMP type F1. “i.e. the field for which we are creating SELECT-OPTIONS

SELECT-OPTIONS : s_F1 for temp.

DATA : wa like line of s_F1.

wa-sign = 'I'.

wa-option = 'EQ'.

wa-low = 'ABCD'.

append wa to s_F1.

wa-sign = 'I'.

wa-option = 'EQ'.

wa-low = 'EFGH'.

append wa to s_F1.

Delete source_package where F1 in s_f1.

即把条件写到一个内表中。

3. Select 系统表用到For All Entries In

我们知道在数据库中可以用内联关系来显示表，那么For—语法有点类似，它把内表和系统表做了联合。当然使用之前，需要检查内表的大小，如果内表为空，那么Select的结果会是所有的系统表值，结局就事与愿违了。

DATA : nb type n.

Describe table it_XX lines nb.

If nb is not initial.

Select F1 F2 F3 from YYY

into it_XX

for all entries in source_package

Where F1 = source_package-F1.

Endif.



4. 值比较

请用“IS INITIAL”替代 等于 “”,因为数值型的空值可能是0，而不是””.

5. 内表记录修改

请用Field-Symbol类型的工作区，道理和C语言的指针非常相识。如果一定要用Modify，那么请跟上索引值sy-tabix.

6. 内表复制

请用It1[] = it2[].

7. 读取内表

读取内表之前，排排序是个好习惯。

8. 内表循环嵌套内表

LOOP AT itab1 INTO wa1.

LOOP AT itab2 INTO wa2 WHERE f1 = wa1-f1

AND f3 = wa1-f3.

“………..

ENDLOOP.

ENDLOOP.

以上的性能是很差的，会做很多无谓的循环。

SORT itab2 BY f1 f3.

LOOP AT itab1 INTO wa1.

READ TABLE itab2 WITH KEY f1 = wa1-f1

f3 = wa1-f3 BINARY SEARCH TRANSPORTING NO FIELDS.

IF sy-subrc EQ 0.

v_tabix = sy-tabix.

LOOP AT itab2 INTO wa2 FROM v_tabix.

IF wa2-f1 NE wa1-f1 or wa2-f3 NE wa1-f3. EXIT ENDIF.

*processing or records here

ENDLOOP.

ENDIF.

ENDLOOP.

上面的结构设计做了一些调整，虽然还是双循环，但是加了一些跳跃动作，体会之后会大呼奇妙。巧的是我当初优化CSRP用得正是这一招。 不得不说，英雄所见略同啊！