at new at end of at last

最新推荐文章于 2024-11-22 14:49:36 发布

原创最新推荐文章于 2024-11-22 14:49:36 发布 · 568 阅读

0 ·

CC 4.0 BY-SA版权

SAP ABAP 基础知识专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一个使用ABAP语言创建的简单程序示例，该程序生成包含特定数据结构的内部表，并填充数据，随后遍历并输出这些数据。此外，还展示了如何在输出中加入按列求和的功能。

*&---------------------------------------------------------------------*
*& 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.