参照変更の例

この例では、変数 whole-name 内の最初の 25 字を、変数 last-name に転送しています。
MOVE whole-name(1:25) TO last-name