at new at end of at last

来源：互联网发布：购物车数据库表设计编辑：程序博客网时间：2024/06/11 17:43

*&---------------------------------------------------------------------*
*& Report  Z_ZHENG_TEST4
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  Z_ZHENG_TEST4.
DATA:
  BEGIN OF LINE,
    COL1 TYPE C,
    COL2 TYPE I,
    COL3 TYPE I,
  END OF LINE.

DATA ITAB LIKE LINE OCCURS 10.

LINE-COL1 = 'A'.
DO 3 TIMES.
  LINE-COL2 = SY-INDEX.
  LINE-COL3 = SY-INDEX ** 2.
  APPEND LINE TO ITAB.
ENDDO.

LINE-COL1 = 'B'.
DO 3 TIMES.
  LINE-COL2 = 2 * SY-INDEX.
  LINE-COL3 = ( 2 * SY-INDEX ) ** 2.
  APPEND LINE TO ITAB.
ENDDO.

LOOP AT ITAB INTO LINE.
  WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.

  AT new COL1.
   SUM."按Col1 求和．
   ULINE.
   WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.
   SKIP.
  ENDAT.

  AT END OF COL1.
   SUM."按Col1 求和．
   ULINE.
   WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.
   SKIP.
  ENDAT.

  AT LAST.
    SUM."总求和．
    ULINE.
    WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.
  ENDAT.
ENDLOOP.

LOOP AT ITAB INTO LINE.
  WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.

  AT new COL1.
   SUM."按Col1 求和．
   ULINE.
   WRITE: / LINE-COL1, LINE-COL2, LINE-COL3.
   SKIP.
  ENDAT.
endloop.

0 0