性能优化实际.docVIP

性能优化实践： 声明内表 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. 删除内表记录 如果一项删除如下 Loop at source_package assigning source_fields. If source_fields-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. 即把条件写到一个内表中。 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. 值比较 请用“IS INITIAL”替代 等于 “”,因为数值型的空值可能是0，而不是””. 内表记录修改 请用Field-Symbol类型的工作区，道理和C语言的指针非常相识。如果一定要用Modify，那么请跟上索引值sy-tabix. 内表复制 请用It1[] = it2[]. 读取内表 读取内表之前，排排序是个好习惯。 内表循环嵌套内表 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用得正是这一招。 不得不说，英雄所见略同啊！