MOVE-PERCENTAGE(文字列の部分の代入)

以下の MOVE 命令のバリアントは、c 型項目についてのみ機能します。

MOVE c1 TO c2 PERCENTAGE p [RIGHT].

左寄せした (RIGHT オプションを指定した場合は右寄せ) 項目 c1 の p パーセントが c2 にコピーされます。

p の値として 0 から 100 までの数値を指定することができます。f1 からコピーされる長さは、次の整数まで切り上げまたは切り下げされます。

命令に含まれる引数のいずれかが c 型ではない場合、パラメータ PERCENTAGE は無視されます。

将左对齐的字符字段<c1>的百分比<p>（或如果用RIGHT选项指定，则为右对齐）复制到<c2>。
<p>值可为0和100之间的任何数。将要从<f1>复制的长度取整为下一个整数。
如果语句中某一参数不是类型C，则忽略参数PERCENTAGE。

DATA c1(10) TYPE c VALUE 'ABCDEFGHIJ',
     c2(10) TYPE c.
MOVE c1 TO c2 PERCENTAGE 40.
WRITE c2.
MOVE c1 TO c2 PERCENTAGE 40 RIGHT.
WRITE / c2.

　出力

ABCD      

      ABCD