埋め込みの説明
@1@ : REWRITE,DELETE
@2@ : ファイル名
例題
[C3373.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3373. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT F1 ASSIGN TO SYS006 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS AAA WITH DUPLICATES. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD F1. 000013 01 REC-1. 000014 02 AAA PIC X(4). 000015 02 FILLER PIC X(76). 000016 PROCEDURE DIVISION. 000017 P-START. 000018 OPEN I-O F1. 000019 REWRITE REC-1. 000020 END PROGRAM C3373.
C3373.cob 19: JMN3373I-S 乱呼出しで主キーにDUPLICATES指定がある索引ファイル'F1'をREWRITE文に指定できません.