필드 심볼(Field Symbol)

필드 심볼의 특징

• 변수에 동적인 접근을 가능하게 해줍니다
• 자기 자신을 위한 메모리 공간을 점유하지 않습니다
• 데이터 이름과 속성은 런타임에 결정됩니다.
• 모든 데이터 오브젝트에 지정될 수 있습니다
• MOVE와 같은 ABAP 명령어도 같이 사용할 수 있습니다
• 타입을 명시하거나, 타입 없이 생성할 수 있습니다.
  • 타입이 명시되지 않으면 할당되는 오브젝트의 타입을 그대로 상속받습니다

필드 심볼 타입 (Generic Type과 Fully Type)

• Generic Type

필드 심볼을 선언할 때 타입을 지정하지 않고, assign 되는 데이터 오브젝트 유형에 따라 타입을 상속받게 됩니다

FIELD-SYMBOLS <fs1>.
FIELD-SYMBOLS <fs2> TYPE ANY [TABLE].

TYPE ANY TABLE : 할당되는 오브젝트가 인터널 테이블 타입이어야 합니다. 인터널 테이블처럼 READ 구문에 사용할 수 있습니다.

TYPE ANY : LINE 타입의 구조체로 활용가능합니다.

필드 심볼을 이용하여 인터널 테이블을 변경하게 되면 work area로 복사하는 과정이 생략되어 성능이 향상됩니다.

 

참고로 Generic Type을 사용하면 정적으로 주소를 호출하여 사용할 수 없습니다.

 

이게 무슨 말이냐면 아래코드 16번 라인에

 

READ TABLE WITH TABLE KEY col1 = 'X'.

 

와 같이 필드명을 명시적(정적)으로 사용하지 못 한다는 뜻 입니다.

TYPES: BEGIN OF t_line.
    col1 TYPE c,
    col2 TYPE c,
END OF t_line.

DATA: gs_str type t_line.

DATA: gt_itab1 TYPE SORTED TABLE OF t_line WITH UNIQUE KEY col1.

DATA: gv_fname(4) TYPE c VALUE 'COL1'.

FIELD-SYMBOLS <fs> TYPE ANY TABLE.

ASSIGN gt_itab1 TO <fs>.

READ TABLE <fs> WITH TABLE KEY (gv_fname) = 'X' INTO gs_str.

즉 READ TABLE WITH TABLE KEY (gv_fname) = 'X' INTO gs_str. 와 같이 동적 구문을 사용해야 합니다.

• Fully Type

필드 심볼을 정의할 때 부터 타입이 완전히 정해진 형태로 선언합니다.

FIELD-SYMBOLS <fs3> TYPE SFLIGHT.
FIELD-SYMBOLS <fs4> LIKE LINE OF gt_tab.

Fully Type을 이용하면 아래와 같이 정적으로 주소를 호출하여 사용할 수 있습니다.

MOVE <fs3>-carrid TO <fs4>-carrid.

Static Assign & Dynamic Assign

• Static Assign

ASSIGN dobj [+off] [(len)] TO <fs>.

offset 과 len을 활용해서 필드의 일부분만 필드 심볼에 할당할 수 있습니다.

DATA: BEGIN OF line,
    col1(12) VALUE 'ABCDEFGHIJKL',
END OF line.

FIELD-SYMBOLS : <FS>.

ASSIGN line-col1+6(*) TO <fs>. " GHIJKL

ASSIGN line-col1+6(6) TO <fs>. " GHIJKL

ASSIGN line-col1+5(5) TO <fs>. " FGHIJ

* ASSIGN line-col1+5 TO <fs>.

* ASSIGN line-col1+5(10) TO <fs>.

13, 15라인의 경우에는 필드 심볼이 오브젝트의 길이를 넘어서기 때문에 에러가 발생합니다.

 

따라서 OFFSET이 0보다 크게 할당된 경우 ASSIGN line-col1+5(*) TO <fs> 와 같이 애스터리크(*) 문자를 사용해야 합니다.

• Dynamic Assign

필드심볼에 할당하는 필드명을 알 수 없는 경우 동적 ASSIGN 구문을 이용합니다.

ASSIGN (dobj) TO <fs>.

ASSIGN TABLE FIELD (dobj) TO <fs>.

DATA : gv_1 TYPE c VALUE 'A',
	   gv_2 TYPE c VALUE 'B',
       gv_3 TYPE c VALUE 'C',
       gv_4 TYPE c VALUE 'D',
       gv_5 TYPE c VALUE 'e'.
       
DATA : gv_fname TYPE c LENGTH 10.
DATA: gv_idx TYPE n.

FIELD-SYMBOLS : <fs>.

DO 5 TIMES.
	CLEAR : gv_fanme.
    gv_fname = 'GV_'.
    gv_idx = sy-index.
    CONCATENATE gv_fname gv_idx INTO gv_fname.
    
    ASSIGN (gv_fname) TO <fs>.
    WRITE : / gv_fname, ' : ', <fs>.
ENDDO.

GV_1 : A
GV_2 : B
GV_3 : C
GV_4 : D
GV_5 : E

 

 필드심볼 Casting

• 암묵적 형 변환

필드 심볼의 데이터 타입이 Fully Type으로 선언되어 있거나 기본 데이터 타입 (c, n, p, x)를 사용한 경우 암묵적 형 변환을 수행합니다.

 

암묵적 형 변환은 CASTING 구문만 사용합니다.

 

TYPES: BEGIN OF t_line,
	col1 TYPE char5,
    col2 TYPE char10,
    col3 TYPE char15,
    END OF t_line.
    
DATA : gv_addr(30) TYPE c VALUE 'KOREA SEOUL TWIN BUILDING'.

FIELD-SYMBOLS: <fs> TYPE t_line.

ASSIGN gv_addr TO <fs> CASTING.

WRITE : <fs>-col1, <fs>-col2, <fs>-col3.

KOREA SEOUL       TWIN BUILDLING

 

위 코드를 보면 필드심볼 <fs> 는 t_line 즉 Fully Type으로 선언되어 있습니다.

 

따라서 암묵적 형 변환을 수행합니다. 

 

CASTING 구문을 사용해서 암묵적 형 변환을 수행하게 되면 gv_addr 이라는 길이가 30인 char 타입의 변수가 t_line 타입의 필드심볼 <fs>로 형 변환 됩니다.

 

• 명시적 형 변환

필드 심볼의 데이터 타입이 Generic Type으로 선언된 경우 명시적 형 변환을 수행해줘야 합니다.

 

Generic Type 필드심볼

FIELD-SYMBOLS : <f1> TYPE ANY.

 

명시적 형 변환은 CASTING TYPE 구문을 사용합니다.

ASSIGN ADDR TO <f1> CASTING TYPE line.

 

 

 

 

 

출처  : EASY ABAP 2.0