ABAP APPEND LINES OF

下面是一个小例子

REPORT ZLIKE_021801.
TABLES:VBAK,VBAP,VBPA.

DATA:BEGIN OF GV_ITAB OCCURS 0,
       VBELN TYPE VBAK-VBELN,
       VKORG TYPE VBAK-VKORG,
       POSNR TYPE VBAP-POSNR,
       MATKL TYPE VBAP-MATKL,
       MATNR TYPE VBAP-MATNR,
     END OF GV_ITAB.

DATA GV_ITAB1 LIKE TABLE OF GV_ITAB.

START-OF-SELECTION.

  SELECT VBAK~VBELN
         VBAK~VKORG
         VBAP~POSNR
         VBAP~MATNR
    FROM VBAK
    INNER JOIN VBAP
    ON VBAK~VBELN = VBAP~VBELN
    INTO CORRESPONDING FIELDS OF TABLE GV_ITAB.

  SELECT MARA~MATNR
         MARA~MATKL
  FROM MARA
  INTO CORRESPONDING FIELDS OF TABLE GV_ITAB1.

  **"GV_ITAB数据会保留，GV_ITAB1数据会累加进去。**
  APPEND LINES OF GV_ITAB1 TO GV_ITAB.