report demo_use_at.
data: begin of wa,
field1(1) type c,
field2(2) type c,
field3(6) type c,
end of wa.
data itab like wa occurs 0 .
wa-field1 = 'A'.
do 2 times.
wa-field2 = sy-index.
CONDENSE wa-field2.
concatenate wa-field1 wa-field2 into wa-field2.
do 3 times.
wa-field3 = sy-index.
CONDENSE wa-field3.
concatenate 'Line' wa-field3 into wa-field3.
insert wa into table itab.
enddo.
enddo.
wa-field1 = 'B'.
do 3 times.
wa-field2 = sy-index.
CONDENSE wa-field2.
concatenate wa-field1 wa-field2 into wa-field2.
do 4 times.
wa-field3 = sy-index.
CONDENSE wa-field3.
concatenate 'Line' wa-field3 into wa-field3.
insert wa into table itab.
enddo.
enddo.
sort itab by field1 field2.
loop at itab into wa.
at new field1.
write /2 wa-field1.
endat.
at new field2.
write /4 wa-field2.
endat.
at new field3.
write /6 wa-field3.
endat.
endloop.
[@more@]来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/9437124/viewspace-915197/ ，如需转载，请注明出处，否则将追究法律责任。
