::Old to New:: VALUE 3( with BASE )

📌 Value 구문 심화 ( VALUE with BASE )

심화라고 적긴 했지만, VALUE를 사용하면서 기본적으로 함께 사용하게 되는 BASE를 이야기 해볼까 합니다.

Value 구문을 사용하여 값을 추가하려고 할 때 필드명을 적지 않으면, 빈 값이 들어가는 것을 알 수 있습니다. 구문법에서는 MOVE-CORRESPODING 문법을 사용했을 때 동일한 필드에 값이 없다면 위와 같이 빈 값이 들어가게 됩니다. MOVE-CORRSPONDING 문법은 기존의 필드 값을 유지하기 위해 EXPANDING NESTED TABLES, KEEPING TARGET LINES와 같은 구문을 사용과 비교하여 쉽게 이해할 수 있도록 예제를 준비했습니다.

---

1. Old version

먼저 구문법입니다. 입력할 필드명만 적게 되면 다른 필드는 영향 받지 않습니다.

*OLD
DATA: BEGING OF GS_SBOOK.
	INCLUDE STRUCTURE SBOOK.
DATA: NAME TYPE SCUSTOM-NAME,
	END OF GS_SBOOK,
     ,GT_SBOOK LIKE TABLE OF GS_SBOOK
     
     ,GS_CUST  TYPE SCUSTOM
     ,GT_CUST  TYPE TALBE OF SCUSTOM.

"-- SQL 생략"
LOOP AT GT_SBOOK INTO GS_SBOOK.
  READ TABLE GT_CUST INTO GS_CUST WITH KEY ID = GS_SBOOK-BOOKID.
  IF SY-SUBRC EQ 0.
     GS_SBOOK-NAME = GS_CUST-NAME.
  ENDIF.
ENDLOOP.

2. New version - BASE & VALUE

구문법과 같은 방법으로 단일 필드에만 값을 넣고 싶다면, 아래와 같이 VALUE 타입명( BASE 구조체명 필드명 = 입력할 값 ) 으로 BASE에 적힌 구조체의 값을 유지되며, LS _CUST의 NAME1 필드값만 LS_BOOK로 전달 됩니다.

*NEW
"-- 데이터 선언 및 SQL 생략"
  LOOP AT GT_SBOOK INTO GS_SBOOK.
    READ TABLE GT_CUST INTO GS_CUST WITH KEY BOOKID = GS_SBOOK-BOOKID.
    GS_SBOOK = VALUE #( BASE GS_SBOOK NAME = GS_CUST-NAME ).
  ENDLOOP.

 

---

다음은 CORRESPONDING입니다. 동일한 필드명의 값을 이동과 동시에 기존 필드 값을 유지 할 수 있습니다.

1. Old version

먼저 구문법입니다. 아래와 같이 코딩하게 되면 BASE의 필드 중 NEW 필드명과 동일한 값만 이동하게 됩니다. 여기서 NEW-COL4의 값은 EXPANDING NESTED TABLES의 영향으로 'ZZ'값을 가지고 있습니다.

*OLD
TYPES: BEGIN OF STRUC1,
   ,COL1 TYPE C LENGTH 2
   ,COL2 TYPE C LENGTH 2
   ,COL3 TYPE C LENGTH 2
  END OF STRUC1.

TYPES: BEGIN OF STRUC2,
   ,COL2 TYPE C LENGTH 2
   ,COL3 TYPE C LENGTH 2
   ,COL4 TYPE C LENGTH 2
  END OF STRUC2.

  DATA: BASE TYPE STRUC1
       ,NEW  TYPE STRUC2.

  BASE-COL1 = "AA". "-- 가독성을 위해서 쌍따옴표로 표기"
  BASE-COL2 = "AB".
  BASE-COL3 = "AC".

  NEW-COL4 = "ZZ".
  MOVE-CORRESPONDING BASE TO NEW EXPANDING NESTED TABLES.

2. New version - BASE & CORRESPONDING 

CORRESPODING구문에서 "#" NEW구조체의 타입을 유지하게 됩니다. NEW-COL4에 입력된 'ZZ'값을 가지고 BASE의 COL2, COL3 값이 NEW로 입력됩니다. 

 

*NEW
*TYPE 선언 생략

  DATA(BASE) = VALUE STRUC1( COL1 = "AA" COL2 = "AB" COL3 = "AC" ).
  DATA(NEW)  = VALUE STRUC2( COL4 = "ZZ" ).
  NEW = CORRESPONDING #( BASE ( NEW ) BASE ).

 

 

신문법은 구조체 없이도 테이블에 값을 입력할 수 있어서 불필요한 구조체 선언을 줄일 수 있습니다.

  TYPES: BEGIN OF T_STRUC1,
           FIELD1 TYPE C LENGTH 100,
           FIELD2 TYPE C LENGTH 100,
         END OF T_STRUC1.

  TYPES: BEGIN OF T_STRUC2,
           COMP1 TYPE STRING,
           COMP2 TYPE T_STRUC1 BOXED, "-- T_STRUC1 구조체를 TABLE 타입으로 선언"
         END OF T_STRUC2.

  TYPES: BEGIN OF T_STRUC3,
           FIELD2 TYPE C LENGTH 100,
           FIELD3 TYPE C LENGTH 100,
         END OF T_STRUC3.

  TYPES: BEGIN OF T_STRUC4,
           COMP1 TYPE STRING,
           COMP2 TYPE T_STRUC3 BOXED,
         END OF T_STRUC4.

  DATA(LT_STR2) = VALUE T_STRUC2( COMP1 = "1-1"
                                  COMP2 = VALUE #( FIELD1 = "2-1"
                                                   FIELD2 = "2-2" ) ).
  DATA(LT_STR3) = VALUE T_STRUC4( COMP2 = VALUE #( FIELD2 = "2-4" ) ).
  LT_STR2-COMP2 = CORRESPONDING #( BASE ( LT_STR2-COMP2 ) LT_STR3-COMP2 ).

위 구문을 말로 해석하자면, LT_STR2의 COMP2 테이블와 LT_STR3의 COMP 테이블의 필드명이 동일할 때 값을 입력하는데 이때 FIELD2 필드가 같으니 2-2였던 COMP2-FIELD2 값은 2-4로 덮어 씌워지면서 좌측 이미지와 같은 결과를 확인할 수 있습니다.