DE-EDIT

数字編集項目から他の数字編集項目、または数字項目への逆編集転記の動作を指定する。

構文:
>>-.---.--DE-EDIT--"integer"---------------><
   +-/-+
パラメータ:
integer 以下に、必要な互換性を示す。
1 旧バージョンの場合と同様の動作。送出し側フィールドの PICTURE句を無視する。
2 送出し側フィールドのPICTURE句に従い逆編集を行う。これに より、ANSI'85への適合性が得られる。
属性:
省略値: DE-EDIT"2" (方言 )
段階: 構文チェック
$SET: 任意
例:
 01 a  pic 909V99 value "30456".
 01 b  pic 9(5).
        ...
     move a to b

DE-EDIT"1"の場合は、bは30456を含む。DE-EDIT"2"の場合は、bは00034を含む。3の後の0が脱落するのは、a の PIC 文字の中の挿入文字 0と対応するためであり、.56 が脱落するのは、b に小数位がないためである。

他参照:

関連項目