项目中常用:MOVE-CORRESPONDING <string1> TO <string2>.
1 用MOVE赋值
基本赋值
MOVE <f1> TO <f2>.
<f2> = <f1>.
用指定偏移量赋值
MOVE <f1>[+<o1>][(<l1>)] TO <f2>[+<o2>][(<l2>)].
将字段<f1>从<o1>+1 位置开始且长度为<l1>的段内容赋给字段<f2>,覆盖从<o2>+1 位置开始且长度为<l2>的段。
在字符串组件之间赋值
MOVE-CORRESPONDING <string1> TO <string2>.
将字段串<string1>组件的内容赋给有相同名称的字段串<string2>组件。
2 用WRITE TO 赋值
WRITE <f1> TO <f2> [<option>].
WRITE TO 语句将源字段<f1>内容写入目标字段<f2>
<f1>可以是任何数据对象,<f2>必须是变量,且总是将源字段内容转换为类型 C
对于<option>,可以使用 WRITE 语句的所有格式化选项(UNDER 和 NO-GAP 除外)
运行时指定源字段
WRITE (<f>) TO <g>.
用指定偏移量写入值
WRITE <f1>[+<o1>][(<l1>)] TO <f2>[+<o2>][(<l2>)].
将字段<f1>中从<o1>+1 位置开始且长度为<l1>的内容赋给字段<f2>,覆盖从<o2>+1 位置开始且长度为<l2>的段。
目标字段的偏移量和长度指定可为变量。