埋め込みの説明
@1@ : ファイル名
@2@ : 'INVALID KEY','NOT INVALID KEY'
例題
[C3165.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3165. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO S-SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS SEQUENTIAL 000009 RECORD KEY IS REC-KEY. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 REC-KEY PIC XX. 000015 02 FILLER PIC XX. 000016 PROCEDURE DIVISION. 000017 DELETE FILE-1 INVALID KEY GO TO L1. 000018 L1. STOP RUN.
C3165.cob 17: JMN3165I-S 順呼出しのファイル'FILE-1'の場合,INVALID KEY指定はDELETE文に記述できません.