REPORT  Z02_005                                                     .
TYPES: BEGIN OF line,
         col1 TYPE i,
         col2 TYPE i,
       END OF line.

DATA: itab TYPE STANDARD TABLE OF line WITH HEADER LINE,
      jtab TYPE STANDARD TABLE OF line.

PERFORM fill TABLES itab.

MOVE itab[] TO jtab.

PERFORM out TABLES jtab.

FORM fill TABLES f_itab LIKE itab[].

  DO 3 TIMES.
    f_itab-col1 = sy-index.
    f_itab-col2 = sy-index ** 2.
    APPEND f_itab.
  ENDDO.

ENDFORM.

FORM out TABLES f_itab LIKE jtab.

  LOOP AT f_itab.
    WRITE: / f_itab-col1, f_itab-col2.
  ENDLOOP.

ENDFORM.