关于数据的赋值

数据的赋值是程序经常使用的操作。

单字段的赋值

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: TYPE C. "若定义了类型，则下面赋值时必须要与定义的类型一致
ASSIGN '1' TO  .
WRITE .
FIELD-SYMBOLS: TYPE D. "若定义的类型与需要赋值的字段类型不一致，可以在下面赋值时定义为类型一致
ASSIGN '18611111' TO  TYPE 'D'.
WRITE .
FIELD-SYMBOLS: . "若没有定义类型，则下面赋值时继承字段的类型，为C
ASSIGN '18611111' TO  .
WRITE .