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 に小数位がないためである。

他参照:

関連項目