埋め込みの説明
@1@ : 'AT EOP'，'NOT AT EOP'，'INVALID KEY'，'NOT INVALID KEY'
@2@ : 編成種別
例題
[C3141.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3141. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS INDEXED 000008 ACCESS MODE IS RANDOM 000009 RECORD KEY IS KEY-REC. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD FILE-1. 000013 01 REC-1. 000014 02 KEY-REC PIC XX. 000015 02 FILLER PIC X(78). 000016 WORKING-STORAGE SECTION. 000017 77 DATA-1 PIC XX. 000018 PROCEDURE DIVISION. 000019 WRITE REC-1 AT EOP GO TO L1. 000020 MOVE "AA" TO DATA-1. 000021 L1. STOP RUN.
C3141.cob 19: JMN3141I-S AT EOP指定は，索引ファイルに記述できません．
