埋め込みの説明
@1@ : COPY,INCLUDE,REPLACE
例題
[C1081.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1081. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 REPLACE ==A== BY ==B==. 000006 01 A PIC X. 000007 REPLACE OFF.A 000008 END PROGRAM C1081.
C1081.cob 7: JMN1081I-S REPLACE文の終止符の直後は,空白でなければなりません.