埋め込みの説明
@1@ : 一意名
例題
[C3054.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3054. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-FILE ASSIGN TO DA-S-SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-FILE LABEL RECORD STANDARD. 000010 01 REC. 000011 02 REC-NO PIC 9(4). 000012 02 REC-DATA PIC X(8). 000013 02 FILLER PIC X(68). 000014 WORKING-STORAGE SECTION. 000015 77 AA PIC 1(8). 000016 PROCEDURE DIVISION. 000017 P-START. 000018 ACCEPT AA FROM DATE. 000019 STOP RUN.
C3054.cob 18: JMN3054I-S ACCEPT文のFROM指定に,DATE,DAY,DAY-OF-WEEKまたはTIMEが指定された場合,'AA'は,固定長集団項目,英数字,英数字編集,数字編集,外部10進または2進項目でなければなりません.