*&---------------------------------------------------------------------*
*& Report ZTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST.
TYPES:
begin of IT_WOG,
WOG001 like COSS-WOG001,
WOG002 like COSS-WOG002,
WOG003 like COSS-WOG003,
WOG004 like COSS-WOG004,
WOG005 like COSS-WOG005,
WOG006 like COSS-WOG006,
WOG007 like COSS-WOG007,
WOG008 like COSS-WOG008,
WOG009 like COSS-WOG009,
WOG010 like COSS-WOG010,
WOG011 like COSS-WOG011,
WOG012 like COSS-WOG012,
WOG013 like COSS-WOG013,
WOG014 like COSS-WOG014,
WOG015 like COSS-WOG015,
WOG016 like COSS-WOG016,
end of IT_WOG.
field-symbols: <fs> type any.
data: l_field(14),
IT_WOG type standard table of IT_WOG with header line,
l_index TYPE I,
WOG0 LIKE COSS-WOG016,
l_ind(2).
IT_WOG-WOG002 = 123.
IT_WOG-WOG003 = 1.
APPEND IT_WOG.
LOOP AT IT_WOG.
DO 12 TIMES.
l_index = l_index + 1.
l_ind = l_index.
unpack l_ind to l_ind.
concatenate 'IT_WOG-WOG0' l_ind into l_field.
assign (l_field) to <fs>.
WOG0 = WOG0 + <fs>.
WRITE / WOG0.
ENDDO.
ENDLOOP.