FOR ALL ENTRIES IN

一、Select语句中使用FOR ALL ENTRIES IN需要注意的问题
在ABAP编程中,使用for all entries in 是必不可少的语句,相信大家都使用过,例如:
data: begin of ig_bseg occurs 0,
          werks like bseg-werks,
          belnr  like bseg-belnr,
          gjahr  like bseg-gjahr,
          dmbtr like bseg-dmbtr,
        end of ig_mseg.
if not ig_bkpf[] is initial.
  select werks belnr gjahr dmbtr into corresponding fields of table ig_bseg
  from bseg for all entries in ig_bkpf
  where werks = ig_bkpf-werks and belnr = ig_bkpf-belnr and  gjahr = ig_bkpf-gjahr.
endif.
需要注意以下问题
1、首先,必须要判断For all entries in后面的内表是否为空,如果它为空的话,那么在where条件中的与内表中字段进行比较的结果全部为真,也就是全部满足条件,这会导致取出非常多的数据,极大地影响系统的性能。
2、对于上例,按照逻辑分析可以取出某个凭证的所有行项目,但是实际情况会与你预期的不一致,如果某个凭证的多个行项目的dmbtr值是完全一样的,那么在内表ig_bseg中你只会得到一行记录,而不是多行,它自动使用了distinct,(会自动的删除重复的行所以要是全部的KEY)或者说删除了重复的行,这是个非常致命的问题,会导致你的程序逻辑错误,而且很难以查找,解决的办法就是要保证内表ig_bseg中取出的数据必须要有主键字段,在本例中,需要再添加buzei字段。

二、自建表和从系统外导入数据需要注意的问题
1、自建表中建立文本类型的字段(自己创建domain)时,需要注意是否允许字段可以保留文本的大小写状态,否则默认会全部转换为大写字母。
2、 对于各种凭证编码字段,如:物料凭证mblnr,kunnr,lifnr,belnr,在导入数据到自建表中时,一定要注意前导0的补充问题,否则导入的 数据可能没有前导0,补充前导0的函数为CONVERSION_EXIT_ALPHA_INPUT,另外,在建立自建表时,将该字段对应的domain的 Convers. routine:设置为ALPHA。

 

SELECT OBJECTID AS KUNNR                       
    FROM CDHDR                                   
    INTO TABLE TAB_KUNNR
   WHERE UDATE IN S_DATE                         
     AND OBJECTCLAS = CNS_DEBI.                

IF SY-SUBRC <> 0.
    RETURN.
  ENDIF.

  SORT TAB_KUNNR BY KUNNR ASCENDING.
  DELETE ADJACENT DUPLICATES FROM TAB_KUNNR.(有必要的有效率)

  SELECT KUNNR                                   
         VKBUR                                  
         KVGR3                                 
         KVGR4                                  
    FROM KNVV                                    
    INTO TABLE TAB_KNVV
     FOR ALL ENTRIES IN TAB_KUNNR
   WHERE KUNNR = TAB_KUNNR-KUNNR                 
     AND VKORG IN S_VKORG                    
     AND VTWEG IN S_VTWEG                       
     AND SPART IN S_SPART.                    "製品部門

LOOP AT TAB_KUNNR INTO L_REC_KUNNR.   
 READ TABLE TAB_KNVV INTO L_REC_KNVV
                        WITH KEY KUNNR = L_REC_KUNNR-KUNNR
                        BINARY SEARCH.
     IF SY-SUBRC <> 0.(有不成功的时候就是有header而没有ITEMS.)
       G_FLG_ERR = CNS_FLG_ON.
       EXIT.
     ENDIF.
endloop

 

转自:http://lianxiangpanjin.blog.sohu.com/130134197.html

posted on 2013-01-08 09:56  jameshappy  阅读(265)  评论(0编辑  收藏  举报