ABAP偏移和复制

偏移

例子：

DATA:f1(10) VALUE 'ABCDEFGHIJKL',
	f2(5).
f2 = f1+3(5).  "取f1从第3位开始取5位，DEFGH
WRITE:f1, / f2.

注意：如果括号里是*就是取后面的全部；f1+3(5)+号左右不能有空格

例子：

DATA:lv_date1LIKE sy-datum,
	lv_date2 LIKE sy-datum.
	
lv_date1 = sy-datum.
*lv_date2 等于当前日期所在月的最后一天
lv_date2  = lv_date1.
lv_date2+6(2) = '30'.
WRITE lv_date1.
SKIP.
WRITE lv_date2.

复制

MOVEE-CORRESPONDING <String1> TO <String2>.

用于结构体的赋值，将String1中的field组件的数据复制至String2中，仅复制相同名称的字段。

例子：

DATA:BEGIN OF add,
  first(10) VALUE 'ABC',
  last(10) VALUE 'DEF',
  tel(10) VALUE '123456',
  END OF add.

DATA:BEGIN OF name1,
  first(10),
  last(10),
  e_mail(30) VALUE 10223,
  END OF name1.

MOVE-CORRESPONDING add TO name1.

WRITE: name1.