埋め込みの説明
@1@ : 文
@2@ : 一意名
例題
[C3330.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3330. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 A1 PIC 99V9. 000006 PROCEDURE DIVISION. 000007 MOVE 11.23 TO A1. 000008 END PROGRAM C3330.
C3330.cob 7: JMN3330I-W MOVE文の数字定数から'A1'への転記には,小数部のけた落ちが起こります.