Question

ABAP 程序优化

将CKMLCR需要的数据一次性读取到内表里，再对该内表进行相关操作，减少数据表查询次数。
LOOP AT IMBEW1.
SELECT SINGLE PVPRS INTO PVPRS FROM CKMLCR WHERE KALNR = IMBEW1-KALNR
AND BDATJ = YEAR
AND POPER = MONTH
AND VPRSV = 'V'.

IF SY-SUBRC <> 0 AND SJDJ = 'X'.
MESSAGE I012 WITH '无实际单价，请选择管理单价'.
STOP.
ELSE.
ITABDJ-WERKS = IMBEW1-BWKEY.
ITABDJ-MATNR = IMBEW1-MATNR.
ITABDJ-PVPRS = PVPRS.
ENDIF.
APPEND ITABDJ.
CLEAR ITABDJ.
ENDLOOP.

Answer 1

对于楼上的用法，如果IMBEW1内表中的数据庞大的话，这个方法不一定奏效，因为对于FOR ALL ENTRIES IN 如果内表数据多的话，速度会很慢，有的时候可能还不如直接不加这个IMBEW1-KALNR条件，直接取出所有的数，在循环中去read 那个表，在筛选，
所以可以根据实际情况来选择用哪种方式。

Answer 2

楼上 tdzbq 正解~~
不过再加个二分法就更好了！

Answer 3

deleted