at new 的使用例子

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@]