>>-.---.--DE-EDIT--"integer"--------------->< +-/-+
デフォルト: | 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 の挿入文字 0 に相当するため失われ、B には小数点以下の桁がなく、.56 が失われるためです。