SAP-游标

当数据特别多的时候SELECT可能会内表溢出

PARAMETERS: p_size TYPE num6 DEFAULT 10000.

 OPEN CURSOR WITH HOLD g_cursor FOR SELECT * FROM (tabname)  WHERE (condwher).
  DO.
    lv_index = sy-index.
    CONDENSE lv_index NO-GAPS.
    FETCH NEXT CURSOR g_cursor INTO CORRESPONDING 
FIELDS OF TABLE <fs_table> PACKAGE SIZE p_size.
    IF sy-subrc <> 0.
      CLOSE CURSOR g_cursor.
      EXIT.
   ELSE.
      IF lt_temp IS NOT INITIAL.
        SELECT *
          FROM /bshm/fa_pcd
          APPENDING TABLE gt_fa_pcd
           FOR ALL ENTRIES IN lt_temp
         WHERE ordernr   = lt_temp-ordernr
           AND ordertype = lt_temp-ordertype
           AND posnum    = lt_temp-posnum
           AND fieldname = 'KI'.
      ENDIF.
    ENDIF.
  ENDDO.
  CLOSE CURSOR: g_cursor.
最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。