503 페이지에 나오는 동적 필드 할당의 예제를 아래와 같이 작성해봤습니다.
FIELD-SYMBOLS <FS>.
DATA: FNAME(10) TYPE C.
DATA: SUM LIKE COSP-WTG001.
DATA: NIDX TYPE N VALUE 1 LENGTH 2.
DO 12 TIMES.
CONCATENATE 'COSP-WGT' NIDX INTO FNAME.
WRITE: / FNAME.
ASSIGN (FNAME) TO <FS>.
SUM = SUM + <FS>.
CLEAR : FNAME. ", <FS>.
CLEAR: <FS>.
NIDX = NIDX + 1.
ENDDO.
그런데 CLEAR: <FS>에서 DUMP ERROR가 발생합니다.
문제가 뭔지 알 수 있을까요?
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | e-abap에서 출간된 책 소개 [8] | 양키 | 2013.01.31 | 11756 |
305 | [EASY ABAP 2.0] 예제 16-3 질문 | jtw8983 | 2024.01.04 | 38 |
304 | z13_03 에러 문의 합니다. | 쌥맨 | 2023.01.16 | 77 |
303 | SAP Fiori 3 소개 자료(한글) | 노을별 | 2022.01.13 | 216 |
302 | 106page 예제 3-3 질문.. | 김주형 | 2020.07.22 | 225 |
301 | 이지아밥 359page 혹시 t코드 아시나요? generic foreign key attached file confim please [1] | 리얼오버 | 2021.10.31 | 243 |
300 | access key 발급받는법 | 실버켓 | 2019.11.26 | 293 |
299 | 원페이퍼 권한 문의드립니다. [2] | 지구별원숭이 | 2019.08.02 | 334 |
298 | 134p 3-6-2 [1] | baishui | 2013.06.14 | 728 |
297 | 223page 5-3-1 [1] | baishui | 2013.07.02 | 758 |
296 | 229pgae 5-3-4 | baishui | 2013.07.02 | 763 |
295 | 150p 4-2-1 [3] | baishui | 2013.06.14 | 768 |
294 | 234page 예제 5-4-1 | baishui | 2013.07.03 | 783 |
293 | 171 page 예제 4-2-9 [3] | baishui | 2013.06.17 | 794 |
292 | p176 4-2-12 [3] | baishui | 2013.06.18 | 818 |
291 | p196 4-3-2 질문입니다 [1] | baishui | 2013.06.19 | 819 |
290 | 질문드립니다~ | kanel | 2013.05.21 | 820 |
289 | p218 5-2-3 [1] | baishui | 2013.06.21 | 823 |
288 | 216P 5-2-2 | baishui | 2013.06.21 | 827 |
287 | p198 4-3-3 질문이요 [2] | baishui | 2013.06.19 | 858 |
286 | 164page 예제 4-2-8 [1] | baishui | 2013.06.17 | 859 |
<FS>에 아무것도 assign 되지 않았기 때문에 오류가 납니다.
assign 구문에 디버그 찍고 실행 해보면 sy-subrc가 4로 나옵니다.
아래 소스에 수정한 부분 주석으로 표시하였습니다.
*------------------------------------------------------
REPORT ZFS2.
TABLES COSP. " tables를 추가 해주셔야 합니다. assign 에서 사용할 때 structure 처럼 사용하기 위함입니다.
FIELD-SYMBOLS <FS>.
DATA: FNAME(11) TYPE C.
DATA: SUM LIKE COSP-WTG001.
DATA: NIDX TYPE N VALUE 1 LENGTH 3. " 뒤쪽 숫자는 3자리.
DO 12 TIMES.
CONCATENATE 'COSP-WTG' NIDX INTO FNAME. " 필드명을 WTG로 수정하였습니다
WRITE: / FNAME.
ASSIGN (FNAME) TO <FS>.
IF SY-SUBRC EQ 0. " 정상 assign 되었는지 확인. tables 구문을 빼면 모두 오류가 나면서 실행이 안됩니다.
SUM = SUM + <FS>.
CLEAR : FNAME. ", <FS>.
CLEAR: <FS>.
ENDIF.
NIDX = NIDX + 1.
ENDDO.