REPORT ZTT1.
TYPES:BEGIN OF ty_itab,
aa TYPE c,
dd(4) TYPE c,
bb(3) TYPE i,
cc(4) TYPE i,
END OF ty_itab.
DATA:lt_itab TYPE TABLE OF ty_itab WITH HEADER LINE.
DATA:lt_itab1 TYPE TABLE OF ty_itab.
DATA:lt_itab2 TYPE TABLE OF ty_itab.
DATA:ls_itab TYPE ty_itab.
DATA:ls_itab1 TYPE ty_itab.
START-OF-SELECTION.
ls_itab-aa = 'A'.
ls_itab-dd = '波比'.
ls_itab-bb = '1'.
ls_itab-cc = 12.
APPEND ls_itab TO lt_itab.
CLEAR ls_itab.
ls_itab-aa = 'A'.
ls_itab-dd = '波比'.
ls_itab-bb = '2'.
ls_itab-cc = 36.
APPEND ls_itab TO lt_itab.
CLEAR ls_itab.
ls_itab-aa = 'B'.
ls_itab-dd = '波比'.
ls_itab-bb = '3'.
ls_itab-cc = 12.
APPEND ls_itab TO lt_itab.
CLEAR ls_itab.
ls_itab-aa = 'B'.
ls_itab-dd = '波比'.
ls_itab-bb = '4'.
ls_itab-cc = 8.
APPEND ls_itab TO lt_itab.
CLEAR ls_itab.
ls_itab-aa = 'C'.
ls_itab-dd = '波比'.
ls_itab-bb = '5'.
ls_itab-cc = 17.
APPEND ls_itab TO lt_itab.
CLEAR ls_itab.
ls_itab-aa = 'C'.
ls_itab-dd = '波比'.
ls_itab-bb = '6'.
ls_itab-cc = 22.
APPEND ls_itab TO lt_itab.
CLEAR ls_itab.
ls_itab-aa = 'C'.
ls_itab-dd = '比'.
ls_itab-bb = '7'.
ls_itab-cc = 15.
APPEND ls_itab TO lt_itab.
CLEAR ls_itab.
ls_itab-aa = 'D'.
ls_itab-dd = '波比'.
ls_itab-bb = '7'.
ls_itab-cc = 15.
APPEND ls_itab TO lt_itab.
CLEAR ls_itab.
SORT lt_itab by aa dd.
LOOP AT lt_itab INTO ls_itab.
WRITE:/ ls_itab-aa,ls_itab-dd,ls_itab-bb,ls_itab-cc.
CLEAR ls_itab.
ENDLOOP.
SKIP.
ULINE.
LOOP AT lt_itab INTO ls_itab.
AT END OF dd.
sum.
APPEND ls_itab TO lt_itab1.
ENDAT.
CLEAR ls_itab.
ENDLOOP.
LOOP AT lt_itab1 INTO ls_itab.
WRITE:/ ls_itab-aa,ls_itab-dd,ls_itab-bb,ls_itab-cc.
CLEAR ls_itab.
ENDLOOP.
ULINE.
LOOP AT lt_itab INTO ls_itab.
APPEND ls_itab to lt_itab2.
at END OF dd.
sum.
ls_itab-dd = ''.
APPEND ls_itab to lt_itab2.
ENDAT.
CLEAR ls_itab.
ENDLOOP.
LOOP AT lt_itab2 INTO ls_itab.
WRITE:/ ls_itab-aa,ls_itab-dd,ls_itab-bb,ls_itab-cc.
CLEAR ls_itab.
ENDLOOP.