REPORT  z10_07.

DATA: BEGIN OF gs_str,

          col1 TYPE char5   VALUE 'KOREA',

          col2 TYPE char10  VALUE 'SEOUL',

          col3 TYPE char15  VALUE 'TWIN BUILDING',

        END OF gs_str.

DATA : gv_fname type c length 10,

       gv_idx   type n.

FIELD-SYMBOLS: <fs1> LIKE GS_STR,

               <fs2> TYPE ANY.

ASSIGN gs_str TO <fs1>.

DO 3 TIMES.

 clear : gv_fname.

 gv_idx = sy-index.

 GV_FNAME = 'COL'.

 CONCATENATE gv_fname gv_idx into gv_fname.

  ASSIGN COMPONENT gv_fname OF STRUCTURE <fs1> TO <fs2>.

  WRITE <fs2>.