Loop at Control

TYPES: BEGIN OF STR,
GP,
PT TYPE INT2,
END OF STR.

DATA ITAB TYPE STANDARD TABLE OF STR.
DATA WA TYPE STR.

WA-GP = 'A'.WA-PT = 10.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 30.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 50.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 70.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 90.APPEND WA TO ITAB.

WA-GP = 'B'.WA-PT = 20.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 40.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 60.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 80.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 100.APPEND WA TO ITAB.

SORT ITAB BY GP.
LOOP AT ITAB INTO WA.
AT FIRST.
ULINE (15).
WRITE: / 'GROUPS','POINTS'.
ENDAT.

AT NEW GP.
ULINE /(15).
WRITE: / 'GROUP', WA-GP.
ENDAT.

WRITE: / WA-GP, WA-PT.

AT END OF GP.
SUM.
ULINE /(15).
WRITE: / 'GROUP',WA-GP,'SUB-TOTAL', WA-PT.
ENDAT.

AT LAST.
SUM.
ULINE /(15).
WRITE: / 'TOTAL',WA-PT.
ULINE /(15).
ENDAT.
ENDLOOP.