메뉴 건너뛰기
로그인 유지
브라우저를 닫더라도 로그인이 계속 유지될 수 있습니다. 로그인 유지 기능을 사용할 경우 다음 접속부터는 로그인할 필요가 없습니다. 단, 게임방, 학교 등 공공장소에서 이용 시 개인정보가 유출될 수 있으니 꼭 로그아웃을 해주세요.
대박 2008.05.13 23:26 조회 수 : 2838
예제 5-3-6, 5-3-7
5-3-6은 잘 실행이 되는데요... 5-3-7은 에러가 나더라구요.
왜이런지 모르겠네요.. 설명좀 부탁드립니다.
헤더가 어저구 하네요..
2008.05.14 23:07
소스가 잘 못되었습니다.
다음과 같이 수정합니다.
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
댓글 수정 삭제
소스가 잘 못되었습니다.
다음과 같이 수정합니다.
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