우선 FIELD-SYMBOL 의 여러가지 변형을 살펴보면
1. ASSIGN f TO <fs>.
단순히 field f의 값을 <fs>가 가리키도록 한다.
2. ASSIGN (f) TO <fs>.
동적 field를 이용한것인데 field f안의 값을 또 field명으로 보고 그 field의 값
을 <fs>가 가리키도록 한다.
3. ASSIGN TABLE FIELD (f) TO <fs>.
2와 같은 경우이나 f 의 값이 table의 field명 일때 그 table field의 값을
<fs>가 가리키도록 한다.
4. ASSIGN LOCAL COPY OF MAIN TABLE FIELD (f) TO <fs>.
3와 같은 경우이나 tables로 선언된 main program의 table field값을
<fs>가 가리키는 것이 아니라 값만 복사 하여 사용하기 때문에 변경할 수 없다.
5. ASSIGN COMPONENT idx OF STRUCTURE rec TO <fs>.
structure의 구성요소 순서를 idx에서 읽어 그 순서에 위치한 구성요소의 값을
<fs>에 할당한다.
6. ASSIGN COMPONENT name OF STRUCTURE rec TO <fs>.
structure의 구성요소명(field명)을 name에서 읽어 그 구성요소의 값을
<fs>에 할당한다.
5번을 제외한 모든 경우는 field명을 사용하는 것이라서 field명에 규칙이 없으면
coding line 줄이는데 효과를 보지 못한다.
따라서 여기서는 field명에 규칙이 없더라도 coding line을 획기 적으로 줄일 수 있는
5번경우를 사용한 예제만 소개하겠다.
예제)
FIELD-SYMBOLS : <FS1>, <FS2>.
DATA:IDX1 LIKE SY-INDEX.
DATA: BEGIN OF ITAB1 OCCURS 0,
CCYYMM(8),
WERKS LIKE MARD-WERKS,
MATNR LIKE MARD-MATNR,
LABST LIKE MARD-LABST,
UMLME LIKE MARD-UMLME,
INSME LIKE MARD-INSME,
EINME LIKE MARD-EINME,
SPEME LIKE MARD-SPEME,
RETME LIKE MARD-RETME,
VMLAB LIKE MARD-VMLAB,
VMUML LIKE MARD-VMUML,
VMINS LIKE MARD-VMINS,
VMEIN LIKE MARD-VMEIN,
VMSPE LIKE MARD-VMSPE,
VMRET LIKE MARD-VMRET,
END OF ITAB1.
DATA: ITAB2 LIKE ITAB1 OCCURS 0 WITH HEADER LINE.
경우1) FIELD-SYMBOL 사용하지 않았을 경우
LOOP AT ITAB1.
READ TABLE ITAB2 WITH KEY CCYYMM = ITAB1-PERIOD
WERKS = ITAB1-WERKS
MATNR = ITAB1-MATNR
BINARY SEARCH.
IF SY-SUBRC <> 0.
WRITE : / 'Not found in ITAB2 : ',
ITAB1-CCYYMM,
ITAB1-WERKS,
ITAB1-MATNR.
ELSE.
IF ITAB1-LABST <> ITAB2-LABST.
WRITE : / SY-INDEX,
ITAB2-CCYYMM,
ITAB2-WERKS,
ITAB2-MATNR,
ITAB1-LABST,
ITAB2-LABST.
ENDIF.
IF ITAB1-UMLME <> ITAB2-UMLME.
WRITE : / SY-INDEX,
ITAB2-CCYYMM,
ITAB2-WERKS,
ITAB2-MATNR,
ITAB1-UMLME,
ITAB2-UMLME.
ENDIF.
.............. 12번 반복 ........
ENDIF.
ENDLOOP.
경우2) FIELD-SYMBOL 사용했을 경우
LOOP AT ITAB1.
READ TABLE ITAB2 WITH KEY CCYYMM = ITAB1-PERIOD
WERKS = ITAB1-WERKS
MATNR = ITAB1-MATNR
BINARY SEARCH.
IF SY-SUBRC <> 0.
WRITE : / 'Not found in ITAB2 : ',
ITAB1-CCYYMM,
ITAB1-WERKS,
ITAB1-MATNR.
ELSE.
IDX1 = 3.
DO 12 TIMES.
IDX1 = IDX1 + 1.
ASSIGN COMPONENT IDX1 OF STRUCTURE ITAB1 TO <FS1>.
ASSIGN COMPONENT IDX1 OF STRUCTURE ITAB2 TO <FS2>.
IF <FS1> <> <FS2>.
WRITE : / SY-INDEX,
ITAB2-CCYYMM,
ITAB2-WERKS,
ITAB2-MATNR,
<FS1>,
<FS2>.
ENDIF.
ENDDO.
ENDIF.
ENDLOOP.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
404 | abap general | sapjoy | 2007.06.12 | 5521 |
403 | Users_and_Roles_620 [5] | sapjoy | 2007.02.28 | 5525 |
402 | Screen_Painter_and_Menu_Painter [2] | sapjoy | 2007.03.12 | 5535 |
401 | BADI for CMOD [4] | 마달수 | 2007.03.28 | 5535 |
400 | SAPSCRIPTS Guide (ACCENTURE).pdf [6] | sapjoy | 2007.02.15 | 5538 |
399 | Web Dynpro를 아세요? - III [6] | 이선구 | 2007.03.06 | 5547 |
398 | ABAP Debugging Tips and Tricks [4] | 아밥뽀 | 2016.03.31 | 5562 |
397 | NEW ABAP EDITOR [9] | sapjoy | 2007.03.02 | 5564 |
396 | selection screen program [1] | 철죽1 | 2012.09.02 | 5575 |
395 | ABAP 개발 가이드 입니다. [6] | pimpjin | 2008.03.03 | 5600 |
394 | APO&BW [1] | sonata | 2009.09.22 | 5608 |
393 | Sap User-Exit [13] | 곰돌이 | 2007.07.27 | 5612 |
392 | ALV개념 정리 [20] | 팡다루 | 2007.03.22 | 5615 |
391 | Essential_ABAP_Objects | 우하하 | 2007.06.27 | 5648 |
390 | 유용한 함수 모음 입니다...^^; [11] | 이원욱 | 2007.03.15 | 5661 |
389 | ABAP INTERPACE에 관한 개념정리 문서 [5] | 초보보초보 | 2007.02.28 | 5667 |
388 | bdc레코딩및예제 [31] | BC고 | 2009.05.14 | 5686 |
» | FIELD-SYMBOL 정리 [1] | 하얀천군 | 2007.11.02 | 5701 |
386 | 로컬 파일 삭제 [2] | 밤의화신 | 2014.12.23 | 5712 |
385 | open sql [1] | 김경재 | 2008.01.07 | 5721 |