埋め込みの説明
@1@ : ROUNDED．
例題
[P2588.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2588. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WNUM1 PIC S9(4) BINARY. 000007 01 WNUM2 PIC S9(4) BINARY. 000008 01 WNUM3 PIC S9(9) BINARY. 000009 PROCEDURE DIVISION. 000010 ADD WNUM1 TO WNUM2 ROUNDED 000011 GIVING WNUM3 000012 END PROGRAM P2588.
P2588.cob 10: JMN2588I-S 予約語ROUNDEDは，ADD/DIVIDE/MULTIPLY/SUBTRACT文のGIVING指定の前には記述できません．
詳細な説明
ADD/DIVIDE/MULTIPLY/SUBTRACT文にGIVING指定を書いた場合は，GIVING指定で指定した項目にだけROUNDED指定を指定できます．
