浅谈性能调协–实例分析.docVIP

遇到一个程序,在开发环境中运行,速度虽然缓慢,可是还能最终运行出结果,可是在测试系统中,运行非常慢,更有甚者,无法出结果. 客户方提出需要做性能优化. 我大概看了一下程序,实时分析中发现数据库访问非常耗费时间,占总时间的90%以上,于是找到对应的程序段进行优化,并附以记录. 示例一: 表结构: 测试表记录总数: 150w左右 符合条件记录数: 8k左右 是否有副索引: 没有 程序段: LOOP AT IT_DN.I_INDEX = SY-TABIX.SELECT SINGLE *FROM ZTOUTTRACKINGWHERE Z_VBELN = IT_DN-VBELNAND Z_POSNR = IT_DN-POSNRAND Z_ZDTYP = ‘R’.IF SY-SUBRC = 0.DELETE IT_DN INDEX I_INDEX.ENDIF.ENDLOOP. 该段程序执行时间: 40s左右 程序段分析: 1. 循环中嵌套SQL语句,增加了数据库访问次数 2. 使用了select *,而没有只抓去需要数据 3. 没有按照key去抓取数据,数据条件没有充分利用(因为z_lgnum为固定值) 第一次优化之后: DATA: BEGIN OF LIT_Z1 OCCURS 0,Z_VBELN LIKE ZTOUTTRACKING-Z_VBELN,Z_POSNR LIKE ZTOUTTRACKING-Z_POSNR,Z_ZDTYP LIKE ZTOUTTRACKING-Z_ZDTYP,Z_WERKS LIKE ZTOUTTRACKING-Z_WERKS,END OF LIT_Z1.IF IT_DN[] IS NOT INITIAL.SELECT Z_WERKS Z_VBELN Z_POSNR Z_ZDTYPFROM ZTOUTTRACKINGINTO CORRESPONDING FIELDS OF TABLE LIT_Z1FOR ALL ENTRIES IN IT_DNWHERE Z_LGNUM = G_LGNUMAND Z_ZDTYP = ‘R’AND Z_VBELN = IT_DN-VBELNAND Z_POSNR = IT_DN-POSNR .IF SY-SUBRC = 0.LOOP AT LIT_Z1 .DELETE IT_DN WHERE VBELN = LIT_Z1-Z_VBELNAND POSNR = LIT_Z1-Z_POSNR.ENDLOOP.ENDIF.ENDIF. 效果: 性能提升至25s左右 进一步分析: 1. For all entries使用中,没有保证IT_DN内表的条件记录数唯一 2. 数据选取中没有建立副索引 进一步优化: 1. 为表建立副索引 2. 增加IT_DN中选择数据条件的唯一 增加一个副内表, 将IT_DN中重复的选择数据记录删除,for all entries的条件用这个副内表,因为本程序中IT_DN的选择数据记录不可能重复,故无需此步骤. 进一步优化后效果: 该段程序执行时间在1s之内. 示例二: 原程序段: FORM FRM_GET_LOCATION .DATA: V_PKSIZ TYPE C.DATA: V_CONTI TYPE C,V_PALLET LIKE ZTPICK_PARA1-Z_PALLET.RANGES: R_LPTYP FOR LAGP-LPTYP. DATA: BEGIN OF IT_LGTYP OCCURS 0,LGTYP LIKE LQUA-LGTYP,END OF IT_LGTYP.DATA: V_EXIT TYPE C.SELECT SINGLE Z_VALUE INTO ZTHARDCODE-Z_VALUE FROM ZTHARDCODE WHERE Z_FUNCTION = C_PROG_NAME ANDZ_FIELD = ‘LGNUM’ AND Z_PLANT = G_LGNUM.IF SY-SUBRC = 0.SPLIT ZTHARDCODE-Z_VALUE AT ‘\’ INTO TABLE IT_LGTYP.DELETE IT_LGTYP WHERE LGTYP = SPACE.ENDIF. LOOP AT IT_DN_BINTYP.CLEAR IT_STO_LOC.SELECT * FROM LQUA WHERE LGNUM = G_LGNUM AND MATNR = IT_DN_BINTYP-MATNR ANDSKZUA = ” AND BESTQ = ” AND SKZSI = ” AND SKZSA = ”.V_EXIT = ”.LOOP