<예제 5-3-7>
소스를 다음과 같이 정정합니다.
REPORT z05_013.
TYPES: BEGIN OF line,
col1 TYPE char3,
col2 TYPE i,
END OF line.
DATA itab TYPE STANDARD TABLE OF line .
DATA l_idx TYPE i.
PERFORM fill CHANGING itab.
PERFORM out USING itab.
FORM fill CHANGING f_itab LIKE itab.
DATA f_line LIKE LINE OF itab.
DO 5 TIMES.
l_idx = sy-index MOD 2.
IF l_idx = 0.
f_line-col1 = 'KIM'.
f_line-col2 = sy-index.
APPEND f_line TO f_itab.
ELSE.
f_line-col1 = 'LEE'.
f_line-col2 = sy-index.
APPEND f_line TO f_itab.
ENDIF.
ENDDO.
ENDFORM. "fill
FORM out USING value(f_itab)
LIKE itab.
DATA f_line LIKE LINE OF f_itab.
LOOP AT f_itab INTO f_line.
WRITE: / f_line-col1, f_line-col2.
ENDLOOP.
ENDFORM. "out