REPORT  Z05_012.   

TYPES: BEGIN OF line,

                           col1(3) TYPE c,

                           col2    TYPE i,

             END OF line.

DATA:

itab TYPE STANDARD TABLE OF line

WITH HEADER LINE,

jtab TYPE STANDARD TABLE OF line.

DATA l_idx TYPE i.

PERFORM fill TABLES itab.

MOVE itab[] TO jtab.

PERFORM out TABLES jtab.

FORM fill TABLES f_itab LIKE itab[].

             DO 5 TIMES.

             l_idx = sy-index MOD 2.

             IF l_idx = 0.

                           f_itab-col1 = 'KIM'.

                           f_itab-col2 = sy-index.

                           APPEND f_itab.

             ELSE.

                           f_itab-col1 = 'LEE'.

                           f_itab-col2 = sy-index.

                           APPEND f_itab. ENDIF.

             ENDDO.

ENDFORM.

FORM out TABLES f_itab LIKE jtab.

             LOOP AT f_itab.

                           WRITE: / f_itab-col1, f_itab-col2.

             ENDLOOP.

ENDFORM.