COBOL2002 言語 拡張仕様編
-DigitsTruncを指定すると,COBOL原始プログラム中の転記文で受け取り側作用対象が2進項目の場合,送り出し側作用対象の有効けた(PICTURE句で指定した10進けた数)が受け取り側作用対象のけた数より大きいとき,上位けたの切り捨てを行う。
-DigitsTruncを指定しないと,COBOL原始プログラム中の転記文で受け取り側作用対象が2進項目の場合,送り出し側作用対象の値の有効けたが受け取り側作用対象の領域(2,4または8バイト)に入らないとき,そのバイト数に入りきらない部分を切り捨てる。
77 A PIC S9(5) COMP VALUE 12345. 77 B PIC S9(4) COMP. : MOVE A TO B
All Rights Reserved. Copyright (C) 2003, 2013, Hitachi, Ltd.