ENDAT 实例

又一个实用的小例子，用在作加总上。

REPORT demo_int_tables_at_1.
DATA: BEGIN OF line,
col1(1) TYPE c,
col2 TYPE i,
col3 TYPE i,
END OF line.

DATA itab LIKE HASHED TABLE OF line
WITH UNIQUE KEY col1 col2.

line-col1 = 'A'.
DO 3 TIMES.
line-col2 = sy-index.
line-col3 = sy-index ** 2.
INSERT line INTO TABLE itab.
ENDDO.

line-col1 = 'B'.
DO 3 TIMES.
line-col2 = 2 * sy-index.
line-col3 = ( 2 * sy-index ) ** 2.
INSERT line INTO TABLE itab.
ENDDO.

SORT itab.

LOOP AT itab INTO line.
at NEW col1.
WRITE / line-col1.
endat.

WRITE: / line-col1, line-col2, line-col3.

AT END OF col1.
SUM.
ULINE.
WRITE: / line-col1, line-col2, line-col3.
SKIP.
ENDAT.
AT LAST.
SUM.
ULINE.
WRITE: / '总计', line-col2, line-col3.
ENDAT.
ENDLOOP.

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/90072/viewspace-1001519/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/90072/viewspace-1001519/