數據的賦值是程序經常使用的操作。

單字段的賦值

EX.

DATA COL(10) TYPE C VALUE ‘我是中國人‘.
DATA A(10) TYPE C.
DATA B(10) TYPE C.
DATA C(10) TYPE C.
A = COL+1(3). "直接賦值
MOVE COL+1(2) TO B. "賦值給數字格式時會dump
WRITE COL+1(4) TO C."不經常用，也是賦值
WRITE:/ A,/ B,/ C.
"字段字符不足時只顯示本身長度
DATA: F1(10)  VALUE  ‘ABCDEFGHIJ‘,
      F2(5),
      F3(
 
3).
F2 = F1+3(5).
F3 = F1+3(5).
WRITE: / F1, / F2,/ F3.

結構賦值。

MOVE –CORRESPONDING，用於結構體的賦值，將結構1中的field組件的數據復制至結構2中, 僅復制相同名稱的字段。

EX.

DATA:BEGIN OF WA_TEST,
       A(10) VALUE ‘我‘,
       B(10) VALUE ‘是‘,
       C(10) VALUE ‘中‘,
       D(10) VALUE ‘國‘,
       E(10) VALUE ‘人‘.
DATA:END
 
 OF WA_TEST.

DATA: BEGIN OF WA_TEST1,
        A1(10),
        B1(10),
        C(10),
        D(10),
        E(10).
DATA:END OF WA_TEST1.
MOVE-CORRESPONDING WA_TEST TO WA_TEST1.
WRITE:/ WA_TEST,/, 3 WA_TEST1."數字用於定位橫坐標位置

指針賦值。

EX.

FIELD-SYMBOLS:<F1> TYPE C. "若定義了類型，則下面賦值時必須要與定義的類型一致
 

ASSIGN ‘1‘ TO <F1> .
WRITE <F1>.
FIELD-SYMBOLS:<F2> TYPE D. "若定義的類型與需要賦值的字段類型不一致，可以在下面賦值時定義為類型一致
ASSIGN ‘18611111‘ TO <F2> TYPE ‘D‘.
WRITE <F2>.
FIELD-SYMBOLS:<F3> . "若沒有定義類型，則下面賦值時繼承字段的類型，為C
ASSIGN ‘18611111‘ TO <F3> .
WRITE <F3>.

關於數據的賦值