埋め込みの説明
@1@ : 名標または"定数"
@2@ : REPLACING句で指定できる項類を表すキーワード
例題
[C3036.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3036. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 A PIC X(10). 000007 01 B PIC 99 VALUE 10. 000008 PROCEDURE DIVISION. 000009 P-START. 000010 INITIALIZE A REPLACING ALPHABETIC BY B 000011 NUMERIC BY B. 000012 STOP RUN.
C3036.cob 10: JMN3036I-S INITIALIZE文のREPLACING指定で,'B'は,項類ALPHABETICの項目へ転記できる項類でなければなりません.